Inhalt ComboBox aus andere Datei
13.01.2016 15:02:51
Dirk
vielleicht..., na eher wahrscheinlich, könnt ihr mir bei dem folgenden Problem helfen.
Ich habe zwei Dateien; einen Vordruck und eine Datendatei. Im Vordruck ist eine Combobox enthalten, in der ich die Zellinhalte aus der Spalte A der Datendatei einlese. Das klappt auch soweit. Problem an der Sache ist, dass sich der Dateiname der Datendatei, bis auf den Anfang jedes Jahr ändert (Jahreszahl).
Hier nun die Aufgaben:
1. Überprüfe, ob eine Datei geöffnet ist, die mit "Reklamationsübersicht" beginnt und die Dateiendung ".xlsx" hat.
2. Lese aus dieser Datei den Zellinhalt aus Spalte A in die Combobox des Vordrucks ein.
Vordruck und Datendatei befinden sich nicht im gleichen Verzeichnis.
Mein Ansatz:
Private Sub Worksheet_Activate()
Dim ReklNr As Long
ReklNr = Workbooks("Reklamationsübersicht_2016.xlsx").Sheets("Reklamationen").Range("A65536"). _
End(xlUp).Row
Me.cbbReklNr.List = Workbooks("Reklamationsübersicht_2016.xlsx").Sheets("Reklamationen").Range(" _
A4:A" & ReklNr).Value
End Sub
Gruß
Dirk
Anzeige