alle Captions in allen Userforms auflisten

Hallo,
ich habe eine Frage. Ich möchte in mit einer Schleife alle Userforms einer Arbeitsmappe durchlaufen und dann in jeder einzelnen Userform die einzelen Controls durchlaufen und jeden Caption-Eintrag in eine externe Tabelle schreiben (die Bezeichnugen sollen übersetzt werden).
Sobald ich die Werte in Variabelen stehen habe, kann ich diese dann in Tabellen schreiben.
Aber wie komme ich an die Caption-Werte ran. Welche Verweise müssen bei einem solchen Vorhaben aktiviert sein!?
Wäre nett, wenn mir jemand da für den Anfang auf die Sprünge helfen könnte, weiß nämlich nicht, wie ich auf die einzelnen Userforms in einer Schleife zugreifen kann. Die Userforms haben alle NAmen in der Art frmABCDEEFG. Wenn ich die Userform dann als Objekt ansprechen kann, kann ich alle Controls durchlaufen und die Controls "bearbeiten", deren Caption "" sind oder diese Eigenschaft gar nicht besitzen.
Ich hoffe, das Problem ist klar. Vorab schon mal vielen Danl fürs Lesen :)
Gruß Turbo

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub CommandButton16_Click() Dim objUF As Object Dim objControls As Control Dim objHelp As Object Dim lngi As Long lngi = 1 With ActiveWorkbook.VBProject For Each objUF In .VBComponents If objUF.Type = 3 Then Set objHelp = UserForms.Add(objUF.Name) For Each objControls In objHelp.Controls ActiveSheet.Cells(lngi + 39, 1) = objUF.Name On Error Resume Next ActiveSheet.Cells(lngi + 39, 2) = objControls.Caption On Error GoTo 0 lngi = lngi + 1 Next objControls End If Next objUF End With Exit Sub ' Bei Fehlernummer 1004, diese Meldung ausgeben. Errorhandler: If Err.Number = 1004 Then MsgBox "Der Zugriff auf den VBA Coode ist fehlgeschlagen!" & vbCr & _ "Bitte überprüfen Sie folgende Einstellung! " & vbCr & _ "EXTRAS -> MAKRO -> SICHERHEIT -> Vertrauenwürdige Quellen." & vbCr & _ "'Zugriff auf Visual Basic Projekt vertrauen' muss aktiviert sein! ", vbCritical, _ " Meldung vom XYZ " Else MsgBox "Err.Number = " & Err.Number & ". " & Err.Description, vbCritical End If End Sub

Hallo Turbo ?,
oder besser noch so !!!


Private Sub CommandButton16_Click()
Dim objUF As Object
Dim objControls As Control
Dim objHelp As Object
Dim lngi As Long
Dim strhelp As String
lngi = 1
On Error GoTo Errorhandler
With ActiveWorkbook.VBProject
On Error GoTo 0
For Each objUF In .VBComponents
If objUF.Type = 3 Then
Set objHelp = UserForms.Add(objUF.Name)
For Each objControls In objHelp.Controls
On Error Resume Next
strhelp = objControls.Caption
If Err.Number = 0 Then
ActiveSheet.Cells(lngi + 39, 1) = objUF.Name
ActiveSheet.Cells(lngi + 39, 2) = objControls.Name
ActiveSheet.Cells(lngi + 39, 3) = objControls.Caption
lngi = lngi + 1
End If
On Error GoTo 0
Next objControls
End If
Next objUF
End With
Exit Sub
' Bei Fehlernummer 1004, diese Meldung ausgeben.
Errorhandler:
If Err.Number = 1004 Then
MsgBox "Der Zugriff auf den VBA Coode ist fehlgeschlagen!" & vbCr & _
"Bitte überprüfen Sie folgende Einstellung! " & vbCr & _
"EXTRAS -> MAKRO -> SICHERHEIT -> Vertrauenwürdige Quellen." & vbCr & _
"'Zugriff auf Visual Basic Projekt vertrauen' muss aktiviert sein! ", vbCritical, _
" Meldung vom XYZ "
Else
MsgBox "Err.Number = " & Err.Number & ".   " & Err.Description, vbCritical
End If
End Sub

Gruß Heiko
PS: Rückmeldung wäre nett !

Beliebteste Forumthreads (12 Monate)

alle Captions in allen Userforms auflisten

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

alle Captions in allen Userforms auflisten

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread