Office: (Office 2013) Label in Userform leeren

Hallo zusammen
In einer Userform werden Label 1 bis Label 15 befüllt. Nach einer bestimmten Handlung sollen diese wieder gelöscht werden. Ich habs probiert. Das funktioniert aber nur von Label1 bis Label9, sobald es 2stellig wird geht das nicht mehr.
Ich will euch leider die Datei nicht hochladen, da mein Windows nur RAR besitzt. Als ich eine große Datei als RAR hochgeladen habe, ist das nicht so gut angekommen. Vll kann mir jemand mit dem Code helfen

Public Sub Labels_clearen()
Dim c As Control

For Each c In Me.MultiPage1.Pages(0).Controls
If TypeName(c) = "Label" Then
If Replace(c.Name, "Label", "") Like "[1-9]" Then c.Caption = ""
End If
Next c
End Sub

LG
Michael

:)

 

Ungetestet
Code:

 

Danke Mister Burns

Das klappt.
Und Hajo hab ich schon vergessen. Keine Ahnung was das Gemotze von ihm sollte

Trotzdem ein tolles Forum
LG
Michael

 

Moin Michael,

hier mal n bissl Futter für den Winter, um wieder Speck anzulegen:

German
VBA-Tutorial
Online Excel

English
Excel Macromastery
https://www.youtube.com/user/WiseOwlTutorials


Hinweis:
Hajo hat ziemlich was geleistet in der Szene.
U.a wird er als Autor im zweiten Link genannt, sowie, nicht zu vergessen, unterhält er eine eigene Webseite oder die Suchmaschine kramt Links aus diversen Foren tief aus der Vergangenheit vor.
Speziell in den Wiederanfängen lohnt es sich auch da mal reinzuschauen. Gibt einige Beispiele sowie Verlinkungen, welche interessant für Dich sein könnten.

 

Hallo nochmal
Ich habe das als erledigt gekennzeichnet. Leider funktioniert der Code nicht (nicht böse gemeint)
Ich probiere es nochmal
In einer Userform werden Label 1 bis Label 12 befüllt. Nach einer bestimmten Handlung sollen diese wieder gelöscht werden. Ich habs probiert.
Das funktioniert aber nur von Label1 bis Label9, sobald es 2stellig wird geht das nicht mehr.
Public Sub Labels_clearen()
Dim c As Control

For Each c In Me.MultiPage1.Pages(0).Controls
If TypeName(c) = "Label" Then
If Replace(c.Name, "Label", "") Like "[1-9]" Then c.Caption = ""
End If
Next c
End Sub
Und dieser Code geht nicht
If CInt(Replace(c.Name, "Label", ""))

 

Jawoll Dankeeeeee das Funktioniert (Das war der Hund If IsNumeric(Replace(c.Name, "Label", "")) Then)
Jetzt habe ich nur noch das Problem mit den Uhrzeiten


LG
Michael

 

Edit: Hat sich wohl erledigt

 

Wegen der Uhrzeiten? Soll ich das Thema auf erledigt setzen? und einen neuen Threat aufmachen? vll kann mir wer helfen

LG
Michael