Dropdown mit Daten aus .xla füllen
21.01.2008 08:48:00
Herbert
Ich habe eine Adressentbelle in einem AddIn hinterlegt und über einen Menüpunkt öffne ich ein Formular (.xlt) jetzt möchte ich über ein DropDown die Adressen aus wählen und bekommen beim schrittweisen ausführen
Laufzeitfehler '-2147467259 (80004005)'
Automatisierungsfehler, unbekannter Fehler'
angezeigt .
Was mache ich falsch?
Private Sub ComboBox1_Change()
Dim shAdressen As Worksheet
Set shAdressen = Workbooks("DezBesch08.xla").Sheets("Adr")
With ComboBox1
Range("Firma") = shAdressen.Cells(.ListIndex + 2, 1)
Range("Ort") = shAdressen.Cells(.ListIndex + 2, 2)
Range("Strasse") = shAdressen.Cells(.ListIndex + 2, 3)
Range("KdNr") = shAdressen.Cells(.ListIndex + 2, 4)
Range("RV") = shAdressen.Cells(.ListIndex + 2, 5)
End With
Range("Nummer").Select
End Sub
Gruß Herbert