UF Controls in Tabelle

[Florian20]

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

[schauan]

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

[Florian20]

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

[schauan]

Hallöchen,

wenn's eine gibt sollte auch die Caption möglich sein. Müsstest aber eventuell On Error Resume Next verwenden.

[Florian20]

Also die Caption geht nicht gibt es eine andere Möglichkeit die auszulesen?

Lg flo

[Klaus-Dieter]

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

[Florian20]

ups stimmt hab Ich nicht gesehen.

Aber Danke schön

[Florian20]

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.

[Klaus-Dieter]

Hallo Florian,

den Fehler sollen wir jetzt selbst suchen? Oder wie?

[Florian20]

Sorry,
 
Der Fehler ist in der For schleife