Hallo zusammen,
ich möchte das kopieren einer Zeile in meinem zweiten Reiter einfügen und diese erweitern. Ich will, dass ich durchs Hinzufügen von weiteren Zeilen meine Tabelle sich nach unten verschiebt, damit die neue Zeile oben wieder Platz hat. Die neue Zeile soll also immer oben und nicht unten stehen.
Wie schaffe ich das? In diesem Code steht die neue Zeile nämlich immer unten dran statt oben.
Worksheets("Bus").Select
Worksheets("Bus").Range("A6").Select
If Worksheets("Bus").Range("A6").Offset(1, 0) <> "" Then
Worksheets("Bus ").Range("A6").End(xlDown).Select
End If
Danke für eure Unterstützung!
|