Userform Name in Makro als Variable aus Zelle übernehmen
Schritt-für-Schritt-Anleitung
Um den Namen einer Userform in einem VBA-Makro als Variable aus einer Zelle zu übernehmen, kannst du folgende Schritte ausführen:
- Erstelle eine Userform in deinem Excel-Projekt, z.B. nenne sie
UF_Buchung.
- Füge eine TextBox zu der Userform hinzu, die du zur Eingabe von Daten nutzen möchtest (z.B.
TextBox12).
- Öffne den VBA-Editor (Alt + F11).
- Füge ein neues Modul hinzu und schreibe den folgenden Code:
Sub Auswahl_der_Gesamtkonten_Überschriften_einfügen_Gesamtkonto_Test()
Dim rng As Range
Dim i As String
Dim suchbegriff As String
Dim objUserForm As UserForm
Dim UFName As String
' Den Namen der Userform aus Zelle P5 übernehmen
UFName = Worksheets("Hilfstabelle2").Range("P5").Value
Set objUserForm = FindUserFormByName(UFName)
If objUserForm Is Nothing Then
MsgBox "Es gibt kein geöffnetes UserForm mit dem Namen " & UFName, vbExclamation
Exit Sub
End If
suchbegriff = objUserForm.TextBox12
Worksheets("Hilfstabelle").Activate
Set rng = ActiveSheet.Range("A2:A201").Find(suchbegriff)
If rng Is Nothing Then
MsgBox "Nichts gefunden"
Exit Sub
End If
i = rng.Row
Range(Cells(i, 4), Cells(i, 14)).Copy
Sheets("Gesamtkonto").Cells(2, 1).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Sheets("Gesamtkonto").Activate
End Sub
Function FindUserFormByName(strUserFormName As String) As Object
Dim i As Integer
Set FindUserFormByName = Nothing
For i = 0 To UserForms.Count - 1
If UserForms(i).Name = strUserFormName Then
Set FindUserFormByName = UserForms(i)
Exit Function
End If
Next
End Function
- Testen: Stelle sicher, dass die Userform geöffnet ist, und teste das Makro.
Häufige Fehler und Lösungen
Alternative Methoden
Eine alternative Methode besteht darin, die Userform mit der Add-Methode zu erstellen:
Dim suchbegriff As String
Dim UFName As String
UFName = Worksheets("Hilfstabelle2").Range("P5").Value
suchbegriff = UserForms.Add(UFName).TextBox12.Value
Beachte, dass diese Methode die Userform neu erstellt, was in manchen Fällen zu Problemen führen kann, wenn die Userform bereits geöffnet ist.
Praktische Beispiele
Hier ein praktisches Beispiel, wie man den Namen einer Userform als Variable nutzen kann:
Sub Beispiel()
Dim UFName As String
UFName = Worksheets("Hilfstabelle2").Range("P5").Value
MsgBox "Die Userform heißt: " & UFName
End Sub
Das Beispiel zeigt, wie du den Namen der Userform in einer MessageBox ausgeben kannst.
Tipps für Profis
- Verwende die
UserForms-Collection, um einfach auf alle Userforms in deinem Projekt zuzugreifen. Dies ist besonders hilfreich, wenn du mehrere Userforms verwaltest.
- Denke daran, dass die Funktionsweise der Userforms in verschiedenen Excel-Versionen variieren kann. Teste deinen Code in der Version, die du verwendest.
FAQ: Häufige Fragen
1. Kann ich den Namen der Userform dynamisch ändern?
Ja, du kannst den Namen der Userform zur Laufzeit ändern, aber sei vorsichtig, da dies Auswirkungen auf alle Referenzen haben kann.
2. Was passiert, wenn die Userform nicht geöffnet ist?
Das Makro wird eine Fehlermeldung ausgeben. Stelle sicher, dass die Userform vor dem Ausführen des Makros geöffnet ist.
3. Ist es möglich, mehrere Userforms gleichzeitig zu öffnen?
Ja, es ist möglich, mehrere Instanzen einer Userform zu öffnen. Dies kann jedoch zu Verwirrung führen, wenn du nicht sorgfältig damit umgehst.