Checkbox mit Schleife
18.06.2015 21:32:29
Martin
ich komme an einer Stelle nicht weiter.
Zwar gibt es einige Beiträge dazu, aber ganz bekomme ich es nicht hin.
Ich möchte, dass nach klick eines Commandbuttons alle Checkboxen einer Spalte geprüft werden. Ist ein Haken gesetzt, soll von dieser Zeile Die Spalten A:E kopiert und in Tabelle2 am Ende eingefügt werden.
Hier mein bisheriger Code:
Private Sub CommandButton1_Click()
Dim LetzteZeileT2 As Long, LetzteZeileT1 As Long, Zeile As Long, Startzeile As Long
LetzteZeileT1 = Tabelle1.Cells(1048576, 1).End(xlUp).Row
For Zeile = Startzeile To LetzteZeileT1
LetzteZeileT2 = Tabelle2.Cells(1048576, 1).End(xlUp).Row
If CheckBox1.Value = True Then
Tabelle1.Range("A" & Zeile & ":E" & Zeile).Copy
Tabelle2.Cells(LetzteZeileT2 + 1, 1).PasteSpecial Paste:=xlValues
Application.CutCopyMode = False
End If
End Sub