Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
656to660
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
656to660
656to660
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

mit for each für alle Checkboxen in UF ansprechen

mit for each für alle Checkboxen in UF ansprechen
23.08.2005 17:01:38
Rocky
Hallo excelfreunde,
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

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: mit for each für alle Checkboxen in UF ansprechen
23.08.2005 17:06:21
Nepumuk
Hi,
so:
Public Sub blanko_guv()
    Dim frmControl As MSForms.Control
    For Each frmControl In UserForm2.Controls
        If TypeOf frmControl Is MSForms.CheckBox Then
            ' Dein Code
        End If
    Next
End Sub

Gruß
Nepumuk
Excel & VBA – Beispiele
Anzeige
AW: mit for each für alle Checkboxen in UF ansprec
23.08.2005 17:16:43
Rocky
Oh da wär ich nicht drauf gekommen,
das brett war wohl berechtigter weise dort wos ist!
DANKE
gruß Rocky

301 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige