Daten aus externer Tabelle einlesen

Private Sub Combobox33_GotFocus()
Dim Spaltenlänge, i As Long
Dim exapp As New Application
Dim datenquelle As Worksheet
Dim combobox33 As Integer
Set exapp = New Excel.Application       'Neue Excel Instanz eröffnen
exapp.Visible = False                   'Excel bleibt unsichtbar
exapp.Workbooks.Open "C:\Dokumente und Einstellungen\Andreas.SERVER.000\Eigene Dateien\Messprotokoll_Test_Kundenliste.xls" 'Quelldatei öffnen
Set datenquelle = exapp.Worksheets("Tabelle1")      'Quelltabelle angeben...
Spaltenlänge = datenquelle.Cells(Rows.Count, 1).End(xlUp).Row 'Einträge in Spalte A zählen
For i = 1 To Spaltenlänge
combobox33.AddItem datenquelle.Cells(i, 1) 'Combobox füllen mit Einträgen aus der Spalte A des Quellfiles
Next
Set datenquelle = Nothing           'Speicher wieder freigeben..
exapp.Workbooks(Quellmappe).Close Savechanges:=False
exapp.Quit
Set exapp = Nothing
End Sub