Hallo Leute,
ich habe folgendes Problem. Ich möchte mit einem CommandButton Werte von einem Tabellenblatt in ein anderes kopieres. Diese Werte sollen an eine bestimmte Startposition beim ersten Klicken des Buttons kopiert werden (hier: D23) und bei einem weiteren Klicken sollen die Werte eine Zeile darunter eingefügt werden.
Also 1.Klick --> D23, zweiter Klick --> D24 usw....
Mit meinem Code bekomme ich es hin die Werte zu kopieren und auch untereinander anzuorden, aber das speichern beginnt bei mir in D2 und nicht D23. Ich weiß nicht, wie ich diese Zelle auswählen kann. (Bei euren Lösungen beachtet bitte, dass ich keine neue Zeile einfügen möchte, da das mein Zieltabellenblatt verändert)
Private Sub CommandButton2_Click()
Dim lngZeile As Long
With Worksheets("Tabelle3")
Range("G3,H3,I3,J3,K3,L3").Copy
lngZeile = .UsedRange.Row + .UsedRange.Rows.Count
Worksheets("Tabelle3").Range("D" & lngZeile).PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False
End With
End Sub
Vielen Dank
SpreeQuell