1: 2: 3: 4: 5: 6: 7:
Sub Test () ' Strecke („A1“). Auserwählt ActiveCell.Select Selection.AutoFill Bestimmungsort: =ActiveCell.Range („A1: A3285“) ActiveCell.Range („A1: A3285“). Auserwählt Ende Sub