Überschrift und ".End(x1Up).Row"
29.07.2014 01:11:20
Astis
Ich will mit Hilfe von diesem Code hier per VBA Zellen füllen:
...
Dim z As Long
z = Worksheets("EinzelJournal").Range("A65536").End(x1Up).Row
ActiveCell.FormulaR1C1 = "=Einzeljournal!R[3]C[6]&Einzeljournal!R[3]C[7]"
Selection.AutoFill Destination:=Range("A1:A" & z), Type:=xlFillDefault
...
Problem ist nur dass im Tabellenblatt "EinzelJournal" 3 Zeilen Überschrift stehen.
Somit müsste ich im Ergebnisbild 3x weniger auto-ausfüllen lassen...
wie kann ich das anstellen ?
Vielen Dank
Anzeige