Userform Name in Makro als Variable aus Zelle?

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub Auswahl_der_Gesamtkonten_Überschriften_einfügen_Gesamtkonto_Test() Dim rng As Range Dim i As String Dim suchbegriff As String Dim UFName As String 'neu eingefügt UFName = Worksheets("Hilfstabelle2").Range("P5").Value 'neu eingefügt 'suchbegriff = UF_Buchung.TextBox12 '= Orginal suchbegriff = UserForms(UFName).TextBox12 'neu eingefügt - Fehlermeldung Worksheets("Hilfstabelle").Activate Set rng = ActiveSheet.Range("A2:A201").Find(suchbegriff) If rng Is Nothing Then MsgBox "Nichts gefunden" Exit Sub End If 'MsgBox "Zeile: " & rng.Row & "; Adresse: " & rng.Address 'i wählt die akuelle gesuchte und markierte Zeile i = rng.Row Range(Cells(i, 4), Cells(i, 14)).Copy 'fügt die kopierten Daten in Gesamtkonto Zeile2 ein Sheets("Gesamtkonto").Cells(2, 1).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, _ SkipBlanks:=False, Transpose:=False Sheets("Gesamtkonto").Activate End Sub

Peter,
Wenn, dann über Klassenprogrammierung und der dynamischen Instanzierung von Userform(s). Aber das liegt weit über einem Basis-Kenntnis-Level. Google halt "VBA Klassenprogrammierung" oder schau Dir Filmchen auf Youtube dazu an!
Ich frage mich schon, warum mit Basiskenntnissen gleich in solche Konstrukte eingetaucht wird. Ich bin der Meinung, dass man erst das Objekt-Modell von Excel verstehen sollte, treffe aber immer wieder Anfänger, die weder dir F1, noch die F2 Taste im VBA-Editor benutzen. Ich würde Dir Empfehlen mir Fragen bezüglich der Funktionalität (Eingabe-Verarbeitung-Ausgabe), die du erreichen willst, zu stellen. Dich also weniger auf einen bereits festgelegten Weg (in deinem Beispiel Userforms), zu versteifen. Dann gibt es oft hilfreiche Tipps von Helfern wie man das Ganze aufbauen könnte.
Gruess Hansueli

Hallo Peter,
ich verstehe dein Makro zwar nicht, aber hier die prinzipielle Lösung wie du das UserForm per Namen aus einer Zelle finden und ansprechen kannst:

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      'neu eingefügt
UFName = Worksheets("Hilfstabelle2").Range("P5").Value   'neu eingefügt
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
'MsgBox "Zeile: " & rng.Row & "; Adresse: " & rng.Address
'i wählt die akuelle gesuchte und markierte Zeile
i = rng.Row
Range(Cells(i, 4), Cells(i, 14)).Copy
'fügt die kopierten Daten in Gesamtkonto Zeile2 ein
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

Viele Grüße
Martin

UserForm Object A UserForm object is a window or dialog box that makes _ up part of an application's user interface. The UserForms collection is a collection whose elements represent each loaded UserForm in an application. The UserForms collection has a Count property, an Item property, and an Add method. Count specifies the number of elements _ in the collection; Item (the default member) specifies a specific collection member; and Add places a new UserForm element in the collection. Syntax UserForm UserForms[.Item](index) The placeholder index represents an integer with a range from 0 to UserForms.Count – 1. Item is the default member of the UserForms collection and need not be specified. _ Remarks You can use the UserForms collection to iterate through all loaded user forms in an application. It identifies an intrinsic global variable named UserForms. You can pass UserForms(index) to a function whose argument is specified as a UserForm class.

Beliebteste Forumthreads (12 Monate)

Userform Name in Makro als Variable aus Zelle?

20
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

306 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Userform Name in Makro als Variable aus Zelle?

20 Beiträge zum Forumthread Beiträge zu diesem Forumthread

306 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

20
Beiträge zum Forumthread

Beiträge zu diesem Forumthread