mit for each für alle Checkboxen in UF ansprechen
23.08.2005 17:01:38
Rocky
ich möchte mit einer For Each schleife gern alle checkboxen in meiner userform ansprechen, doch ich hab nen fehler und ich komm nich dauf.
Sub blanko_guv()
Dim cb As CheckBox
Application.ScreenUpdating = False
Sheets("blanko GuV").Visible = True
For Each cb In UserForm2
If cb.Value = True Then
Sheets("blanko GuV").Copy after:=Sheets(Sheets.Count)
With Sheets(Sheets.Count)
.Name = cb.Caption
.Cells(7, 1) = cb.Caption
End With
End If
Next
Sheets("blanko GuV").Visible = xlVeryHidden
Application.ScreenUpdating = True
End Sub
kann mir mal jemand das brett vorm kopf wegnehmen bitte!
gruß Rocky
Anzeige