Dim objExcel As Object
Dim objRegion As Object
Dim n As Integer
 
Set objExcel = GetObject("G:\Daten_log.xls")
With objExcel
Set objRegion = .Worksheets("NLde").[A1].CurrentRegion
 
ComboBox1.Text = "Bitte wählen Sie eine NL aus"
 
For n = 1 To 132
Call ComboBox1.AddItem(.Worksheets("NLde").Cells(n, 1))
Next
End With
Set objRegion = Nothing
Set objExcel = Nothing