Bereich kopieren, daneben Wert einfügen
03.08.2021 10:22:24
Samy
Ich kopieren einen Bereich mittels "letzte beschrieben Zeile ermitteln" von Tabelle1 auf Tabelle2 ab spalte B angefügt an letzte beschrieben Zeile.
Das klappt.
Gerne würde ich aber nun in der Tabelle2 in Spalte A gleichzeitig immer denn gleichen Wert (Verwaltung) daneben miteinfügen.
Wie kann ich das am besten umsetzten?
hier den bisherige Code für das kopieren:
Sub copy()
Dim letztezeile1, letzteSpalte As Long
Dim WS1, WS2 As Worksheet
Set WS1 = Sheets("Tabelle1")
Set WS2 = Sheets("Tabelle2")
With WS1
letztezeile1 = Cells(.Rows.Count, 1).End(xlUp).Row
letzteSpalte = Cells(1, Columns.Count).End(xlToLeft).Column
End With
WS1.Range("A5:A" & letztezeile1, WS1.Cells(letztezeile1, letzteSpalte)).Copy
WS2.Cells(Rows.Count, 2).End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues
Application.CutCopyMode = False
End Sub
Samy