Listboxauswahl in weiter Userform übergeben
06.01.2019 14:06:31
Tim
ich lese in eine Listbox auf Userform1 den Dateipfad ein, welchen ich bei Doppelclick und dem öffnen der Userform2 gern in ein Label geschrieben haben will, jedoch funktioniert das nicht.
Laut Recherchen bei Google sollte es ungefähr so .List(.ListCount - 1, 3) = UserForm2.Label19.Caption funktionieren, jedoch führt das zum Fehler.
Wie kann ich das Problem lösen?
Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Dim i As Long, strDatei As String
Application.ScreenUpdating = False
With Me.ListBox1
For i = 0 To .ListCount - 1
If .Selected(i) Then
strDatei = .List(i, 3) 'nimmt Dateipfad aus unsichtbarer Spalte 4 der Listbox um _
den Auftrag öffnen zu können
.List(.ListCount - 1, 3) = UserForm2.Label19.Caption
End If
Next i
End With
Workbooks.Open strDatei
Application.WindowState = xlMinimized
UserForm2.Show
End Sub