Inhalt ComboBox aus andere Datei

Hallo VBA-Profis,
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

Danke euch im Voraus.
Gruß
Dirk

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

' ********************************************************************** ' Modul: Tabelle1 Typ: Element der Mappe(Sheet, Workbook, ...) ' ********************************************************************** Option Explicit Private Sub Worksheet_Activate() Dim objWB As Workbook Dim lngLast As Long, strFileName As String strFileName = "Reklamationsübersicht_" & CStr(Year(Date)) & ".xlsx" For Each objWB In Application.Workbooks If objWB.Name = strFileName Then With objWB.Sheets("Reklamationen") lngLast = Application.Max(4, .Cells(.Rows.Count, 1).End(xlUp).Row) Me.cbbReklNr.List = .Range("A4:A" & lngLast).Value Exit For End With End If Next If lngLast = 0 Then MsgBox "Datei '" & strFileName & "' ist nicht geöffnet!" End If End Sub

Private Sub Worksheet_Activate() Dim objWB As Workbook Dim lngLast As Long, strFileName As String strFileName = "Reklamationsübersicht_*.xlsx" For Each objWB In Application.Workbooks If objWB.Name Like strFileName Then With objWB.Sheets("Reklamationen") lngLast = Application.Max(4, .Cells(.Rows.Count, 1).End(xlUp).Row) Me.cbbReklNr.List = .Range("A4:A" & lngLast).Value Exit For End With End If Next If lngLast = 0 Then MsgBox "Datei '" & strFileName & "' ist nicht geöffnet!" End If End Sub

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

302 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Inhalt ComboBox aus andere Datei

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

302 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread