Frames umbenennen
26.10.2021 15:47:36
Chris
ich habe eine Userform mit 32 Frames. Diese möchte ich per Schleife durchnummieren, bsp: "Haus 1", "Haus 2" etc.
Der erste Teil des Makro funktioniert.
Nun möchte ich per Array (wenn das Sinn macht...) bestimmte Frames umbennen. Z.b "Haus 1" in "Büro", "Haus 3" in Büro. etc.
Der zweite Teil des Makros benennt mir alle Frames in Büro um, wo liegt der Fehler?
Schon mal danke. Chris
Private Sub UserForm_Activate()
On Error Resume Next
Dim i As Integer, Rahmen As Frame
i = 1
For Each Rahmen In Me.Controls
Rahmen.Caption = "Haus " & CStr(i)
i = i + 1
Next
b = Array("Haus 1", "Haus 2")
For Each Rahmen In Me.Controls
If Rahmen.Caption = b Then
Rahmen.Caption = "Büro"
End If
Next