Hallo Zusammen
Ich möchte die Zelle I5-I9 von meiner Tabelle1 in die Tabelle2 in die erste freie Zelle der Spalte D kopieren. Das habe ich alles soweit geschafft nun soll es aber erst ab der Zelle D4 nach leeren Zellen suchen und sie dann in die erste freie Zelle einfügen. Ich habe folgendes:
Dim lngLR As Long
With Sheets("Tabelle2")
lngLR = IIf(IsEmpty(.Cells(Rows.Count, 3)), .Cells(Rows.Count, 3).End(xlUp).Row, Rows.Count)
.Cells(lngLR + 1, 3).Resize(5, 1).Value = Sheets("Tabelle1").Range("I5:I9").Value
End With
Kann mir da jemand helfen?
Ich danke euch schon im voraus.
Gruss Tobi
|