Hallo,
ich mal wieder. Und zwar möchte ich eine Combobox durch Zellen einer anderen Datei mit definierten Namen füllen lassen mit folgenden Code:
Sub Datensuche_Combobox(Name As String, Objekt As Object)
Dim wks As Worksheet
Dim wksDaten As Worksheet
Dim wkbDaten As Workbook
With Application
.ScreenUpdating = False
.EnableEvents = False
.Calculation = xlCalculationManual
End With
Call Open_Pfad
Set wkbDaten = Workbooks("Informationstabelle.xlsx")
Set wksDaten = wkbDaten.Sheets("Informationstabelle")
Objekt.List = wksDaten.Range(Name).Value
wkbDaten.Close
Application.ScreenUpdating = True
End Sub
Durch Open_Pfad wird nur die Datei geöffnet. Über "Name" soll der definierte Name der anderen Datei eingefügt werden und mit Objekt wird das Objekt definiert, beispielsweise "Combobox1". Ich habe auch schon versucht List mit RowSource zu ersetzen, aber hatte leider keinen Erfolg.
Ich hoffe ihr könnt mir helfen. Mit freundlichen Grüßen, Phillip
|