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
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen