Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema CheckBox
BildScreenshot zu CheckBox CheckBox-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema Userform
BildScreenshot zu Userform Userform-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema Label
BildScreenshot zu Label Label-Seite mit Beispielarbeitsmappe aufrufen

Label in Userform umbenennen | Herbers Excel-Forum


Betrifft: Label in Userform umbenennen von: Ron
Geschrieben am: 08.12.2009 18:23:20

Hallo Forum,

ich bräuchte noch mal eure Hilfe.
Ich habe auf einer Userform zig Labels (200 Stück) die den Namen "Label1", "Label2" usw. haben. Nun möchte ich ca.80 dieser Labels den Namen umbenennen in "lb_zeile1_1", "lb_zeile1_2" usw.

Kann mir einer von euch sagen wie das am besten geht?

Vielen Dank für eure Hilfe.

Gruß Ron

  

Betrifft: AW: Label in Userform umbenennen von: Ron
Geschrieben am: 08.12.2009 18:48:49

Ergänzung: ich möchte den Namen im VBA-Fenster ändern und nicht beim Initialisieren einer Userform. Wie das geht weiß ich.


  

Betrifft: kannst ja mal testen... von: Tino
Geschrieben am: 08.12.2009 19:16:24

Hallo,
, den Zugriff auf VBA Projekte musst Du aber vertrauen sonst gehts nicht.

Sub ControlsUmbenennen()
Dim objUF As Object
Dim i As Integer, ii As Integer
    
    With ThisWorkbook.VBProject
        For i = 1 To .VBComponents.Count
          'Userform anpassen wo die Labels sich befinden 
          If .VBComponents(i).Name = "UserForm1" Then
           Set objUF = .VBComponents(i)
           Exit For
          End If
        Next i
    End With
    
    For i = 0 To objUF.Designer.Controls.Count - 1
     If TypeName(objUF.Designer.Controls.Item(i)) = "Label" Then
        ii = ii + 1
        objUF.Designer.Controls.Item(i).Name = "lb_zeile1_" & ii
        If ii = 80 Then Exit For 'bei 80 ist ende 
     End If
    Next i

End Sub
Gruß Tino


Beiträge aus den Excel-Beispielen zum Thema "Label in Userform umbenennen"