Microsoft Excel

Herbers Excel/VBA-Archiv

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

Label-Schleife in XP

Betrifft: Label-Schleife in XP von: HerbertH
Geschrieben am: 16.08.2004 18:59:44

Hallo, schönen Abend,
könnnte mir jemand einen Tip geben, warum diese "Label-Schleife " unter
XP nicht läuft...



Sub Lab_ausbl()
Dim userfrm As UserForm
  Set userfrm = Userf_konz
  
Dim Lb As Control, i As Byte
i = 1
 
For Each Lb In userfrm.Controls
    If TypeName(Lb) = "Label" Then
        If Lb.Caption = "" Then
            Lb.Visible = False
        i = i + 1
     End If
   End If
  Next
  
End Sub

     
Danke
Gruß Herbert
  


Betrifft: AW: Label-Schleife in XP von: Ulf
Geschrieben am: 16.08.2004 19:10:09

Sub Lab_ausbl()
Dim Lb As Control, i As Byte
For Each Lb In Me.Controls
  If TypeName(Lb) = "Label" Then
    i = i + 1
    If Lb = "" Then Lb.Visible = False
  End If
Next
End Sub


Läuft unter 2003

Ulf


  


Betrifft: ...und auch 2002 oT von: Ulf
Geschrieben am: 16.08.2004 19:10:57

j


  


Betrifft: Danke Ulf ! oT von: HerbertH
Geschrieben am: 16.08.2004 22:14:48

....


  


Betrifft: AW: Label-Schleife in XP von: HerbertH
Geschrieben am: 17.08.2004 14:43:08

hallo Ulf,
funktioniert leider doch nicht...

Compile error:
Invalid use of Me-keyword

gruß Herbert