ComboBox mit Werten aus anderen Mappe fü

Private Sub UserForm_Activate() Dim arrDaten Dim lngLetzte As Long Dim Pfad As String Dim Datei As String Dim Blatt As String Pfad = "x:\xxxxxx\xxxxxxx\xxxxxxxxx\" Datei = "Board.xlsm" Blatt = "Data Base" With Worksheets("Data Base") lngLetzte = .Cells(Rows.Count, 2).End(xlUp).Row arrDaten = .Range(.Cells(7, 2), .Cells(lngLetzte, 2)) cb_Bereich.List = arrDaten lngLetzte = .Cells(Rows.Count, 4).End(xlUp).Row arrDaten = .Range(.Cells(7, 4), .Cells(lngLetzte, 4)) cb_Team.List = arrDaten End with End sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo MarC,
aus geschlossenen Dateien funktioniert die Funktion .End nicht.
Du kannst die Datei als ReadOnly öffnen, die Daten einlesen und dann wieder schließen.
Wenn die Datei manchmal geöffnet und manchmal nicht geöffnet ist empfehl iuch dir die Folgende Funktion

Dim Datei As Excel.Workbook
Set Datei = Getworkbook(Pfad)
Public Function GetWorkbook(ByVal sFullName As String) As Workbook
Dim sFile As String
Dim wbReturn As Workbook
sFile = Dir(sFullName)
On Error Resume Next
Set wbReturn = Workbooks(sFile)
If wbReturn Is Nothing Then
Set wbReturn = Workbooks.Open(sFullName)
End If
On Error GoTo 0
Set GetWorkbook = wbReturn
End Function

Dadurch setzt du das Worbook als Variable ein und kannst weiterhin z: damit arbeiten

With Datei.Sheets(Blatt).

VLG Felix

Hallo Marc,
hier noch eine Idee:

Option Explicit

Private Sub UserForm_Activate()

 Dim arrDaten, lngLetzte As Long

 Dim sPfad As String, sDatei As String, sBlatt As String

 sPfad = "x:&bsol;xxxxxx&bsol;xxxxxxx&bsol;xxxxxxxxx&bsol;"

 sDatei = "Board.xlsm"

 sBlatt = "Data Base"

 With GetObject(PathName:=sPfad & sDatei)

   With .Sheets(sBlatt)

     lngLetzte = .Cells(Rows.Count, 2).End(xlUp).Row

     arrDaten = .Range(.Cells(7, 2), .Cells(lngLetzte, 2))

     cb_Bereich.List = arrDaten

     lngLetzte = .Cells(Rows.Count, 4).End(xlUp).Row

     arrDaten = .Range(.Cells(7, 4), .Cells(lngLetzte, 4))

     cb_Team.List = arrDaten

   End With

   .Close savechanges:=False

 End With

 UserForm1.Show

End Sub

viele Grüße
Karl-Heinz

Beliebteste Forumthreads (12 Monate)

ComboBox mit Werten aus anderen Mappe fü

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

ComboBox mit Werten aus anderen Mappe fü

3 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread