VBA-Code
05.07.2020 17:19:52
Rudi
Was ist an diesem Code falsch? Bei WkSh_Q.Range "Falsche Anzahl an Argumenten oder ungültige Zuweisung einer Eigenschaft. Das VBA sollte in Tabelle2 die Cells nebeneinander in Tabelle2 speichern.
Sub Kopieren()
Dim WkSh_Q As Worksheet
Dim WkSh_Z As Worksheet
Set WkSh_Q = ThisWorkbook.Worksheets("Tabelle1")
Set WkSh_Z = ThisWorkbook.Worksheets("Tabelle2")
WkSh_Q.Range("B3", "B5", "B7").Copy
WkSh_Z.Range("A" & WkSh_Z.Cells(WkSh_Z.Rows.Count, 1).End(xlUp).Row + 1).PasteSpecial _
Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
End Sub
Anzeige