Aus einer Userform(frmA) die in der Arbeitsmappe(A) ist rufe ich eine andere Arbeitsmappe auf und starte eine weitere Prozedur zum öffnen einer zweiten Userform in Mappe a auf.
Private Sub CommandButton1_Click()
Workbooks.Open "C:\Users\Chatzebuseli\Documents\VBA Michael Jeker\Temp\Kontakte.xlsm"
Application.OnTime Now, "UserformKontaktStart"
Unload Me
End Sub
Public Sub UserformKontaktStart()
frmKontakte.Show
End Sub
In der zweiten Userform ist eine mehrspaltige Listbox diese möchte ich nu mit dem Inhalt einzelner Spalten von Mappe B tabelle 1 füllen.
In etwa so:
Wie muss ich jetz diese Beiden Objekte genau ansprechen um die Listbox zu füllen?
listbox füllen machte ich in der vergangenheit so:(Immer innerhalb der selben Arbeitsmappe) Und oft in Userform_Initialize()
Do While Trim(CStr(Tabelle1.Cells(intZei, 1).Value)) ""
ListBox1.AddItem , 0
ListBox1.List(0, 0) = .Tabelle1.Cells(intZei, 1).Value
ListBox1.List(0, 1) = .Tabelle1.Cells(intZei, 2).Value
ListBox1.List(0, 2) = .Tabelle1.Cells(intZei, 18).Text
ListBox1.List(0, 3) = .Tabelle1.Cells(intZei, 5).Value
ListBox1.List(0, 4) = .Tabelle1.Cells(intZei, 21).Text
ListBox1.List(0, 5) = .Tabelle1.Cells(intZei, 19).Value
intZei = intZei + 1
Loop
soll ich das im Userform_initalise() unterbringen oder in einem Standartmdul?