Checkbox mit Schleife

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
Bild

Betrifft: Checkbox mit Schleife
von: Martin
Geschrieben am: 18.06.2015 21:32:29

Guten Abend,
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

Bild

Betrifft: Probiere es...
von: Case
Geschrieben am: 19.06.2015 07:12:18
Hallo, :-)
... mal so:
Beispieldatei
Servus
Case


Bild

Betrifft: AW: Checkbox mit Schleife
von: Martin
Geschrieben am: 19.06.2015 19:53:14
Hallo,
das sieht schon sehr gut aus, vielen Dank.
Ich baue das mal bei mir ein am Wochenende und melde mich nochmal.
Gruß,
Martin

Bild

Betrifft: AW: Checkbox mit Schleife
von: Martin
Geschrieben am: 20.06.2015 20:43:28
Hallo nochmals.
Habe den Code eingebaut und er funktionier super.
Da brauch ich noch ein bisschen VBA-Verständnis für den.
Danke,
Martin

Bild

Betrifft: Brauchst...
von: Case
Geschrieben am: 24.06.2015 21:32:09
Hallo Martin, :-)
... Du eine Zeilenweise Erklärung für den Code?
Servus
Case


 Bild

Beiträge aus den Excel-Beispielen zum Thema "Checkbox mit Schleife"