Überprüfung von Checkboxen in Userform
16.02.2022 15:28:02
Checkboxen
ich versuche via UserForm und mehreren Checkboxen verschiedene Tabellen zusammen zu führen. D.H. klicke ich eine Checkbox an soll die entsprechende Tabelle in auf ein neues Blatt übertragen werden (individuelles Zusammenstellen einer Checkliste, je nachdem was ich prüfe).
Das übertragen der Punkte von einem Blatt ins andere klappt wunderbar, aber im Moment holt der Loop mir Listen mehrfach und ich hab nicht raus bekommen, wie ich den Loop beendet bekomme.
Private Sub CommandButton_Übertragen_Click()
'Dim i As Worksheet,
Dim wksZiel As Worksheet
Dim ctl As Control
Dim test As String
Set wksZiel = Worksheets("Instandhaltung (2)")
Dim i As Long
For Each ctl In Me.Controls
For i = 1 To 20
If TypeName(ctl) = "CheckBox" And ctl = True Then
If Controls("checkbox" & i).Value = True Then
test = Controls("checkbox" & i).Caption
MsgBox Controls("checkbox" & i).Caption
With Worksheets(test)
.Range(.Cells(5, 1), .Cells(.Cells(.Rows.Count, 1).End(xlUp).Row, 15)).Copy
wksZiel.Cells(wksZiel.Cells(wksZiel.Rows.Count, 1).End(xlUp).Offset(1).Row, 1) _
.PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
End With
End If
End If
Next
Next ctl
End Sub
Gruß Lars
Anzeige