Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema Userform
BildScreenshot zu Userform Userform-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema ListBox
BildScreenshot zu ListBox ListBox-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema TextBox
BildScreenshot zu TextBox TextBox-Seite mit Beispielarbeitsmappe aufrufen

Listbox mit Daten aus anderer Datei füllen


Betrifft: Listbox mit Daten aus anderer Datei füllen von: Christian
Geschrieben am: 17.01.2018 11:06:57

Hallo zusammen,

ich habe in einem Userform eine Listbox, die ich aktuell befüllen kann.

Der Code läuft schnell und sauber durch:

    Dim rngcellbooking As Range
    Dim booking As String
    With Tabelle1.Range("A1:A1000")

        UserForm4.ListBox1.Clear
        Set rngcellbooking = .Find(UserForm1.TextBox1)
        
        If Not rngcellbooking Is Nothing Then
            booking = rngcellbooking.Address
            Do
                With UserForm4.ListBox1
                    .ColumnCount = 5
                    .AddItem
                    .List(.ListCount - 1, 0) = rngcellbooking.Value
                    .List(.ListCount - 1, 1) = rngcellbooking.Offset(0, 1).Value
                    .List(.ListCount - 1, 2) = rngcellbooking.Offset(0, 2).Value
                    .List(.ListCount - 1, 3) = rngcellbooking.Offset(0, 3).Value
                    .List(.ListCount - 1, 4) = rngcellbooking.Offset(0, 4).Value
                 End With
                
                Set rngcellbooking = .FindNext(rngcellbooking)
                
            Loop While Not rngcellbooking Is Nothing And rngcellbooking.Address <> booking

        End If

    End With
Jetzt soll genau diese Sequenze aber eine andere Datei C:\User\Test.xlsx prüfen. Geht das überhaupt?

VG,
Chris

  

Betrifft: AW: Listbox mit Daten aus anderer Datei füllen von: Rudi Maintaire
Geschrieben am: 17.01.2018 12:48:40

Hallo,
wenn die Datei geöffnet ist:
With worksheets("test.xlsx").Tabelle1.Range("A1:A1000")

Gruß
Rudi


  

Betrifft: AW: Listbox mit Daten aus anderer Datei füllen von: Christian
Geschrieben am: 17.01.2018 13:03:33

Hi Rudi,

die Varinate hatte ich auch bereits, hilft aber nicht.

Hab es nochmal etwas umgestellt, hilft aber auch nicht:

Dim Arr() As Variant
Dim rngcellbooking As Range
Dim Search As String
Dim booking As String
    
UserForm4.ListBox1.Clear

Search = UserForm1.TextBox1
    
Workbooks.Open Filename:="C:\Users\Viamonda\Dropbox (Viamonda GmbH)\Team-Ordner „Viamonda GmbH“\ _
Viamonda\ViaNet\Data\Buchungen.xlsx"
    
    With Worksheets("Buchungen.xlsx").Tabelle1.Range("A1:A1000")

        Set rngcellbooking = .Find(Search)
        
        If Not rngcellbooking Is Nothing Then
            booking = rngcellbooking.Address
            Do
                With UserForm4.ListBox1
                    .ColumnCount = 5
                    .AddItem
                    .List(.ListCount - 1, 0) = rngcellbooking.Value
                    .List(.ListCount - 1, 1) = rngcellbooking.Offset(0, 1).Value
                    .List(.ListCount - 1, 2) = rngcellbooking.Offset(0, 2).Value
                    .List(.ListCount - 1, 3) = rngcellbooking.Offset(0, 3).Value
                    .List(.ListCount - 1, 4) = rngcellbooking.Offset(0, 4).Value
                 End With
                
                Set rngcellbooking = .FindNext(rngcellbooking)
                
            Loop While Not rngcellbooking Is Nothing And rngcellbooking.Address <> booking

        End If

    End With
VG,
Chris


  

Betrifft: AW: Listbox mit Daten aus anderer Datei füllen von: Rudi Maintaire
Geschrieben am: 17.01.2018 13:07:02

Hallo,
mein Fehler.
muss natürlich
With WorkBooks("Buchungen.xlsx").Tabelle1.Range("A1:A1000")
heißen


  

Betrifft: Korrektur von: Rudi Maintaire
Geschrieben am: 17.01.2018 13:10:57

Hallo,
auf Sheets in anderen Mappen kann man nicht per CodeName zugreifen.
With WorkBooks("Buchungen.xlsx").Sheets("Tabelle1").Range("A1:A1000")

Gruß
Rudi


  

Betrifft: AW: Korrektur von: Christian
Geschrieben am: 17.01.2018 14:25:19

Ach Mensch, jetzt gehts.

Danke Rudi! Made my day.


Beiträge aus dem Excel-Forum zum Thema "Listbox mit Daten aus anderer Datei füllen"