Wenn Label leer dann Unsichtbar

[Eizi100]

Hallo zusammen

Ich brauche bitte eure Hilfe. Ich in ja der volle ExcelProfi   
In einer UF habe ich viele Labels, welche unsichtbar werden, wenn sie leer sind. Das mache ich momentan über einen Button
Ich habe das immer so gemacht

PHP-Code:

If Label1.caption = "" then
Label1.visible = False
else 
Label1.visible = true
end if 


usw. usw. Nur wie gesagt habe ich viele Labels
ich wollte das jetzt so lösen

PHP-Code:

For c = 1 To 48

      If Me.Controls("Label" & c).Caption = "" Then
      
      Me.Controls("Label" & c).Visible = False
      Else
        Me.Controls("Label" & c).Visible = True
Next c 


Irgendwas mach ich aber falsch, da immer wieder Fehlermeldungen kommen wie "next ohne for"
Könnte mir jemand helfen? Ich spiele mich jetzt schon ein paar Stunden damit und verzweifle daran. 
LG
Michael

[Klaus-Dieter]

Hallo,

in deinem Quelltext fehlt End IF.

Code:

For c = 1 To 48

      If Me.Controls("Label" & c).Caption = "" Then
     
      Me.Controls("Label" & c).Visible = False
      Else
        Me.Controls("Label" & c).Visible = True
End If
Next c

[Werner.M]

Hallo,

na ja, bei deiner Schleifenversion fehlt halt auch ein End If vor dem Next.

Würde ich so machen:

Code:

Dim i As Long

For i = 1 To 8
    Me.Controls("Label" & CStr(i)).Visible = IIf(Me.Controls("Label" & CStr(i)).Caption = "", False, True)
Next i

Gruß Werner

[Eizi100]

Verdammt

Das mit dem If ist mir echt peinlich. Ich sage einfach , dass der Nachtdienst Schuld ist.

Ich danke euch beiden. EinTraum..
Jetzt kann ich beruhigt schlafen gehen

G
Michael

---

Achso
Danke an Werner

Ich habe deinen Code eingebaut, Gefällt mir noch besser. Und klappt gut

Wie man nur auf sowas kommt ist mir ein Rätsel

LG
Michael