ich möchte gerne die RowSource einer Listbox extern auf eine andere Excel-Datei und Sheet verlinken.
Wie geht das?
Könntet ihr mir da auch einen Sample geben?
Ich habe leider eine lange Leitung.
Euer
Henrik
(AS)
(Honduras)
Private Sub UserForm_Initialize()
Dim i As Integer, x As Integer
Dim strquelle As String
Dim wbk As Workbook
Dim wbk2 As String
'On Error GoTo fehler
wbk2 = InputBox("Bitte geben Sie den genauen Dateinamen der einzulesenden Datei ein", "DATEI EINLESEN !!!")
For Each wbk In Application.Workbooks
If wbk.Name = wbk2 Then x = x + 1
Next
If x = 0 Then Application.Workbooks.Open (ThisWorkbook.Path & wbk2)
For i = 1 To 5 ' Zeile 1 bis 5
strquelle = Workbooks(wbk2).Worksheets("Tabelle1").Cells(i, 1)
Me.ListBox1.AddItem (strquelle)
Next
Application.Workbooks(wbk2).Close
Exit Sub
'fehler:
'MsgBox ("Die Datei konnte nicht geöffnet werden !!!")
End Sub