Hallo Liebe Community,
Ich habe eine Frage finde aber dazu nichts im Netz.
Ich möchte gerne von allen UF.controls die .caption und denn .controlTipText in eine Tabelle schreiben.
Und bei bedarf wieder auslesen.
Hoffe Ihr könnt mir helfen.
Lg Flo
Hallöchen,
z.B. so:
Code:
Private Sub UserForm_Click()
Call ListNames
End Sub
Public Sub ListNames()
'Variablendeklarationen
Dim ctrlUF As Control
Dim iCnt%
'Schleife ueber alle Controls
For Each ctrlUF In UserForm1.Controls
'Schleifenzaehler hochsetzen
iCnt = iCnt + 1
'Controleigenschaften auslesen und in Zellen eintragen
Cells(iCnt, 1).Value = ctrlUF.Name
Cells(iCnt, 2).Value = ctrlUF.ControlTipText
'Ende Schleife ueber alle Controls
Next
End Sub
Hallo,
Das klapp ja super aber die Caption kann man damit nicht holen oder?
Und Danke schön für die schnelle antwort
PS: Einlesen habe Ich
Hallöchen,
wenn's eine gibt sollte auch die Caption möglich sein. Müsstest aber eventuell On Error Resume Next verwenden.
Also die Caption geht nicht gibt es eine andere Möglichkeit die auszulesen?
Lg flo
Hallo Florian,
so geht es. Immer die ganzen Antworten lesen, gelle.
Code:
Sub ListNames()
'Variablendeklarationen
Dim ctrlUF As Control
Dim iCnt%
On Error Resume Next
'Schleife ueber alle Controls
For Each ctrlUF In UserForm1.Controls
'Schleifenzaehler hochsetzen
iCnt = iCnt + 1
'Controleigenschaften auslesen und in Zellen eintragen
Cells(iCnt, 1).Value = ctrlUF.Name
Cells(iCnt, 2).Value = ctrlUF.ControlTipText
Cells(iCnt, 3).Value = ctrlUF.Caption
'Ende Schleife ueber alle Controls
Next
End Sub
ups stimmt hab Ich nicht gesehen.
Aber Danke schön
Also Ich habe jetzt doch einen Fehler entdeckt.
Hoffe Ihr könnt mir nochmal helfen.
Die Sub Combobox3_Change geht nicht und ich weiß grad nicht warum.
Mappe stelle Ich online.
PS: der Code zum auslesen ist hier nicht drin, da dieser funktioniert.
Hallo Florian,
den Fehler sollen wir jetzt selbst suchen? Oder wie?
Sorry,
Der Fehler ist in der For schleife