Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1192to1196
1192to1196
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Listbox mit mehrspaltigem Array füllen

Forumthread: Listbox mit mehrspaltigem Array füllen

Listbox mit mehrspaltigem Array füllen
KLE
Hallo,
ich nutze folgenden Code um eine Listbox (bisher nur eine Spalte) zu füllen, anhand eines Suchtextes.
Jetzt würde ich gern die Listbox so haben wollen, dass mir 3 Spalten angezeigt werden, wobei die Suche immernoch in der Spalte 1 stattfindet. Es soll eben nur , wenn in Spalte ein was passendes gefunden wird - auch die Spalte 2 und 3 passend dazu angezeigt werden. (Ohne Dopplungen in Spalte 1)
' Funktion zur Text-Suche

Function fncListe(Optional sText As String)
Dim oDaten As Object
i = 0
k = 0
n = 0
k = Worksheets("Liste").Cells(Rows.Count, 1).End(xlUp).Row
Set oDaten = CreateObject("Scripting.dictionary")
If k = 1 Then
ReDim Preserve arrListe(0)
fncListe = arrListe
Exit Function
Else
arrTmp = Worksheets("Liste").Range("G5:I" & k)
ReDim arrListe(1 To UBound(arrTmp))
For i = 1 To UBound(arrTmp)
If LCase(arrTmp(i, 1)) Like "*" & LCase(sText) & "*" Then
oDaten(arrTmp(i, 1)) = 0
' ... hier müsste nun doch noch die Spalte 2 und 3 rein - aber wie ?
End If
Next
On Error Resume Next
fncListe = oDaten.keys
End If
End Function
Komme irgendwie nicht weiter, egal was ich schreibe...
Vielen Dank !
Gruß
Kay
Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
vielleicht so...
16.01.2011 14:35:52
Tino
Hallo,
Du müsstest mindestens mit zwei Dictionary- Objeke arbeiten.
Müsste in etwa so funktionieren.
Function fncListe(Optional sText As String)
Dim oDaten1 As Object, oDaten2 As Object
Dim arrListe, NewArray()
Dim A As Long

    With Worksheets("Liste")
        A = .Cells(.Rows.Count, 1).End(xlUp).Row
    End With

    If A = 1 Then
       fncListe = arrListe
       Exit Function
    Else
            Set oDaten1 = CreateObject("Scripting.dictionary")
            Set oDaten2 = CreateObject("Scripting.dictionary")
          
          arrListe = Worksheets("Liste").Range("G5:I" & A)
          
          For A = 1 To Ubound(arrListe)
              If InStr(LCase(arrListe(A, 1)), LCase(sText)) > 0 Then
                oDaten1(arrListe(A, 1)) = arrListe(A, 2)
                oDaten2(arrListe(A, 1)) = arrListe(A, 3)
              End If
          Next
          
          If oDaten1.Count > 0 Then
            arrListe = oDaten1.keys
            
            Redim NewArray(Ubound(arrListe), 2)
            
            For A = Lbound(arrListe) To Ubound(arrListe)
                  NewArray(A, 0) = arrListe(A)
                  NewArray(A, 1) = oDaten1(arrListe(A))
                  NewArray(A, 2) = oDaten2(arrListe(A))
            Next
            
            fncListe = NewArray
          End If
    End If
End Function
Persönlich würde ich eine Sub anstelle einer Funktion verwenden und
an diese auch die Listbox mit übergeben und diese auch in der Sub füllen,
aber vom Prinzip her auch wie diese Funktion.
Gruß Tino
Anzeige
AW: klappt, aber nicht immer ?! FC381
16.01.2011 14:58:51
KLE
Hallo Tino,
...super und vielen Dank, im Großen und Ganzen scheint es zu funktionieren.
Erhalte nur vereinzelt eine Fehlermeldung:
Fehler: 381
Eigenschaft List konnte nicht gesetzt werden. Index des Eigenschaftenfeldes ungültig.
Bei Debugg geht er in die Sub auf:
.List = fncListe(sText)
Woran kann es liegen ? Denn sie kommt nicht immer ?
' Füllen der Liste aller Daten 
Private Sub DataAllFill_Suche()
Dim sText As String
sText = objTBSuche.Text
With objLBDataDefinition
.ListFillRange = ""
.List = fncListe(sText)
.ColumnCount = 3
.ColumnWidths = "300;20;50"
End With
End Sub

PS: Ich arbeite vorher mit einer Sub und übergebe nur an die Funktion. Wenn es einfacher geht ;o)
Bin ich über jeden Tip glücklich...
Gruß und Danke!
Kay
Anzeige
AW: klappt, aber nicht immer ?! FC381
16.01.2011 15:04:35
Tino
Hallo,
eventuelle wurde nichts gefunden.
Versuch es mal so.
Private Sub DataAllFill_Suche()
Dim sText As String
Dim ArrayData
sText = objTBSuche.Text
With objLBDataDefinition
.ListFillRange = ""
.ColumnCount = 3
.ColumnWidths = "300;20;50"
.Clear
ArrayData = fncListe(sText)
If IsArray(ArrayData) Then
.List = fncListe(sText)
Else
Msgbox "nix gefunden"
End If
End With
End Sub
Gruß Tino
Anzeige
AW: Jepp - leere Liste.
16.01.2011 23:12:43
KLE
Habe ich abgefangen und damit kommt es auch nicht mehr zu einer Fehlermeldung. Danke !!!
;
Anzeige
Anzeige

Infobox / Tutorial

Listbox mit mehrspaltigem Array füllen in VBA

Schritt-für-Schritt-Anleitung

Um eine Listbox in Excel VBA mit einem mehrspaltigen Array zu füllen, kannst du die folgende Schritt-für-Schritt-Anleitung befolgen:

  1. Erstelle eine Funktion zur Suchimplementierung: Definiere eine Funktion, die ein Suchwort als Parameter akzeptiert und ein mehrdimensionales Array zurückgibt. 

    Function fncListe(Optional sText As String)
   Dim oDaten As Object
   Dim arrListe(), arrTmp
   Dim k As Long, i As Long

   k = Worksheets("Liste").Cells(Rows.Count, 1).End(xlUp).Row
   Set oDaten = CreateObject("Scripting.dictionary")

   If k = 1 Then
       ReDim Preserve arrListe(0)
       fncListe = arrListe
       Exit Function
   Else
       arrTmp = Worksheets("Liste").Range("G5:I" & k)
       ReDim arrListe(1 To UBound(arrTmp))
       For i = 1 To UBound(arrTmp)
           If LCase(arrTmp(i, 1)) Like "*" & LCase(sText) & "*" Then
               oDaten(arrTmp(i, 1)) = Array(arrTmp(i, 2), arrTmp(i, 3))
           End If
       Next
       fncListe = oDaten.keys
   End If
End Function

  2. Fülle die Listbox in einer Subroutine: Verwende eine Subroutine, um die Listbox mit den Daten aus der Funktion zu befüllen.

    Private Sub DataAllFill_Suche()
   Dim sText As String
   Dim ArrayData
   sText = objTBSuche.Text
   With objLBDataDefinition
       .ListFillRange = ""
       .ColumnCount = 3
       .ColumnWidths = "300;20;50"
       ArrayData = fncListe(sText)
       If IsArray(ArrayData) Then
           .List = ArrayData
       Else
           MsgBox "Nichts gefunden"
       End If
   End With
End Sub

Häufige Fehler und Lösungen

Fehler: 381 - Eigenschaft List konnte nicht gesetzt werden.

  • Ursache: Möglicherweise wurde nichts gefunden und das Array ist leer.
  • Lösung: Überprüfe, ob das Array tatsächlich Daten enthält, bevor du versuchst, es der Listbox zuzuweisen. Verwende eine If IsArray(ArrayData) Then-Bedingung.

Alternative Methoden

Eine Alternative zur Verwendung von Dictionaries ist das direkte Arbeiten mit einem mehrdimensionalen Array. Dies könnte wie folgt aussehen:

Function fncListeAlternative(Optional sText As String)
    Dim arrListe(), i As Long, j As Long
    Dim A As Long
    A = Worksheets("Liste").Cells(Rows.Count, 1).End(xlUp).Row

    If A <= 1 Then
        ReDim arrListe(0)
        fncListeAlternative = arrListe
        Exit Function
    End If

    ReDim arrListe(1 To A, 1 To 3)
    For i = 1 To A
        If InStr(LCase(Worksheets("Liste").Cells(i, 1).Value), LCase(sText)) > 0 Then
            arrListe(j, 1) = Worksheets("Liste").Cells(i, 1).Value
            arrListe(j, 2) = Worksheets("Liste").Cells(i, 2).Value
            arrListe(j, 3) = Worksheets("Liste").Cells(i, 3).Value
            j = j + 1
        End If
    Next i
    fncListeAlternative = arrListe
End Function

Praktische Beispiele

Hier ist ein einfaches Beispiel, das zeigt, wie du die Listbox mit Daten füllst:

  1. Erstelle eine Excel-Tabelle mit Werten in den Spalten G bis I.
  2. Verwende das oben genannte VBA-Skript, um eine Listbox zu erstellen, die auf die Eingabe eines Suchwortes reagiert.

Tipps für Profis

  • Nutze Dictionary-Objekte, um doppelte Einträge zu vermeiden und die Performance zu verbessern.
  • Achte darauf, die ColumnWidths korrekt zu setzen, um sicherzustellen, dass alle Spalten in der Listbox sichtbar sind.
  • Verwende Option Explicit, um sicherzustellen, dass alle Variablen deklariert werden.

FAQ: Häufige Fragen

1. Wie kann ich die Listbox mit mehr als drei Spalten füllen? Um mehr Spalten hinzuzufügen, passe die ColumnCount und die ColumnWidths entsprechend an und erweitere dein Array.

2. Was mache ich, wenn die Listbox leer bleibt? Überprüfe, ob dein Suchtext korrekt ist und ob es in der Datenquelle entsprechende Einträge gibt. Verwende Debugging-Tools in VBA, um den Status deiner Variablen zu überprüfen.

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige