ich lade ein listbox, mit doppelClick öffne ich eine andere Mappe, aus der ich zwei Listboxen auffülle.
es läuft wenn ich die Mappen nicht schließe, sobald ich die Mappe schließe kommt beim nächsten DoppelClick
obwohl meine Aktive Mappe die mit der UserForm ist
Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
X = ListBox1.ListIndex + 2 'hier bestimme ich die Position
datei = ListBox1.Text + ".xls" 'Datei wird bestimmt
ChDir "c:\2016\" 'Pfad zum laden
Workbooks.Open Filename:=datei, UpdateLinks:=0, ReadOnly:=True 'datei geöffnet
'Listboxen laden
With ListBox2
.ColumnCount = 2
.ColumnWidths = "12cm;3cm;"
ListBox2.RowSource = "Tabelle1!A10:c15"
End With
With ListBox3
.ColumnCount = 5
.ColumnWidths = "10cm;3cm;0cm;2cm;2cm;"
ListBox3.RowSource = "Tabelle1!A23:E50"
End With
'ActiveWorkbook.Close
End Sub