Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 12:46:38
Nutzereingaben Speichern und Laden
26.04.2024 11:49:48
VAB und Bedingte Formatierung nimmt die Farbe im Makro nicht
26.04.2024 11:38:46
Acrobat PDF Formularfelder mit Excel ausfüllen
26.04.2024 11:23:04
zählen wenn - aber nur die selektierten Zeilen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1840to1844
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1840to1844
1840to1844
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Alle Labels in einer Schleife durchlaufe

Alle Labels in einer Schleife durchlaufe
12.08.2021 13:40:56
SteffenS
Hallo Zusammen,
ich habe eine Prozedur, wo ich global Eigenschaften für alle Userforms setzen.
In dieser möchte ich nun alle Objekte des Typs Label verändern.
Habt ihr einen Tipp für mich wie dies korrekt anspreche. Hier mein fehlerhafter Code:
Dim mn As Control
For Each mn In UF.Controls
'Buttons beschriften
If mn.Typ = "Label" Then
If Left(mn.Caption, 1) = "[" Then mn.Caption = Right(mn.Caption, Len(mn.Caption) - 1)
If Right(mn.Caption, 1) = "]" Then mn.Caption = Left(mn.Caption, Len(mn.Caption) - 1)
End If
Next mn
Danke Euch
VG Steffen

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Alle Labels in einer Schleife durchlaufe
12.08.2021 13:57:07
Nepumuk
Hallo Steffen,
im Prinzip so:

Public Sub Test()
Dim objControl As Control
For Each objControl In UserForm1.Controls
If TypeOf objControl Is MSForms.Label Then
With objControl
If Left$(.Caption, 1) = "[" Then .Caption = Right$(.Caption, Len(.Caption) - 1)
If Right$(.Caption, 1) = "]" Then .Caption = Left$(.Caption, Len(.Caption) - 1)
End With
End If
Next
End Sub
Gruß
Nepumuk
AW: Alle Labels in einer Schleife durchlaufe
12.08.2021 15:38:28
SteffenS
Hallo Nepumuk,
super genau das:
If TypeOf mn Is MSForms.Label Then
habe ich gesucht.
LG Steffen
Anzeige

Links zu Excel-Dialogen

Label UserForm

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige