Userform-Elemente mit Schleife umbenennen

Private Sub UserForm_Initialize() Dim a As String If Worksheets("Dienstoptionen").[c2] = True Then Me.MultiPage1.Page1.Caption = Worksheets("Dienstoptionen").[B2] Else Me.MultiPage1.Page1.Caption = "" Me.MultiPage1.Page1.Enabled = False End If If Worksheets("Dienstoptionen").[c7] = True Then Me.MultiPage1.Page2.Caption = Worksheets("Dienstoptionen").[B7] Else Me.MultiPage1.Page2.Caption = "" Me.MultiPage1.Page2.Enabled = False End If End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Option Explicit Private Sub CommandButton2_Click() Dim lngIndex1 As Long, lngIndex2 As Long With MultiPage1 For lngIndex1 = 0 To .Pages.Count - 1 With .Pages(lngIndex1) For lngIndex2 = 0 To .Controls.Count - 1 Debug.Print .Name, .Controls(lngIndex2).Name Next End With Next End With End Sub VBA/HTML - CodeConverter für Office-Foren AddIn für Excel/Word 2000-2010 - komplett in VBA geschrieben von Lukas Mosimann Projektbetreuung durch mumpel Code erstellt und getestet in Office 12

Private Sub UserForm_Initialize() Dim i1 As Integer, i2 As Integer Dim k As Integer Dim l As Integer i1 = Me.MultiPage1.Pages.Count k = 2 For i2 = 1 To i1 If Worksheets("Dienstoptionen").Cells(k, 3) = True Then Me.MultiPage1.Pages(i2 - 1).Caption = Worksheets("Dienstoptionen").Cells(k, 2) For l = 10 To 19 Me.MultiPage1.Pages(i2 - 1).Frames(l).Caption = "Test" Next l Else Me.MultiPage1.Pages(i2 - 1).Caption = "" Me.MultiPage1.Pages(i2 - 1).Enabled = False End If k = k + 5 Next i2 End Sub

Hallo,

Und an welcher Stelle und wie werden die Beschriftungen der Pages geändert?

gar nicht, da werden im Direktfenster nur die Namen der Pages und deren Controls ausgegeben, das sollte nur den Zugriff per Schleife demonstrieren, den Rest wollte ich jetzt Dir überlassen...
Aber das würde dann so natürlich auch mit Luschis Ansatz funktionieren:

Option Explicit

Private Sub CommandButton1_Click()
Dim lngIndex1 As Long, lngIndex2 As Long, lngCount As Long
With MultiPage1
    For lngIndex1 = 0 To .Pages.Count - 1
        lngCount = 0
        With .Pages(lngIndex1)
            .Caption = "MyPage" & lngIndex1 + 1
            For lngIndex2 = 0 To .Controls.Count - 1
                If TypeOf .Controls(lngIndex2) Is MSForms.Frame Then
                   lngCount = lngCount + 1
                   .Controls(lngIndex2).Caption = "MyFrame" & lngCount
                End If
            Next
        End With
    Next
End With
End Sub



VBA/HTML - CodeConverter für Office-Foren

AddIn für Excel/Word 2000-2010 - komplett in VBA geschrieben von Lukas Mosimann
Projektbetreuung durch mumpel


Code erstellt und getestet in Office 12

Stellt sich allerdings die Frage, ob das so benötigt wird, wenn Du die Frames alle gleich bennen willst, kannst Du darauf auch direkt über die Form zugreifen...
Gruß, Mullit

Beliebteste Forumthreads (12 Monate)

Userform-Elemente mit Schleife umbenennen

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

299 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Userform-Elemente mit Schleife umbenennen

9 Beiträge zum Forumthread Beiträge zu diesem Forumthread

299 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread