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

Listbox auf mehrere Spalten erweitern

Forumthread: Listbox auf mehrere Spalten erweitern

Listbox auf mehrere Spalten erweitern
28.04.2017 14:04:14
Herbert
Guten Tag,
und zwar habe ich das Problem, dass in meiner Listbox im Userform nur eine Spalte berücksichtigt wird. Ich möchte gerne, dass die Suchfunktion wie Aktuell erhalten bleibt. Jedoch sollen die ersten 5 Spalten in der Listbox aufgeführt sein und auch bei eingabe in die Textbox berücksichtigt werden.
Habe mein Projekt angehängt.
Ich hoffe es kann mir jemand helfen, bei meinem sicher kleinen Problem, welches ich nicht bewältigt bekomme.
Gruß
Herbert
https://www.herber.de/bbs/user/113177.xlsm
Anzeige

9
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Listbox auf mehrere Spalten erweitern
28.04.2017 14:24:34
ChrisL
Hi Herbert
ColumnCount Eigenschaft von der Listbox auf 5 setzen.
Private Sub TextBox1_Change()
Dim i As Long
Dim j As Long
Dim a As Long
a = Len(TextBox1)
ListBox1.Clear
For i = 2 To Tabelle1.UsedRange.Rows.Count
For j = 1 To Len(Tabelle1.Cells(i, 1)) - a + 1
If UCase(Mid(Tabelle1.Cells(i, 1), j, a)) = UCase(TextBox1) Then
ListBox1.AddItem (Tabelle1.Cells(i, 1))
            ListBox1.List(ListBox1.ListCount - 1, 1) = Tabelle1.Cells(i, 2)
ListBox1.List(ListBox1.ListCount - 1, 2) = Tabelle1.Cells(i, 3)
ListBox1.List(ListBox1.ListCount - 1, 3) = Tabelle1.Cells(i, 4)
ListBox1.List(ListBox1.ListCount - 1, 4) = Tabelle1.Cells(i, 5)
Exit For
End If
Next j
Next i
End Sub
cu
Chris
Anzeige
AW: Listbox auf mehrere Spalten erweitern
28.04.2017 14:56:41
Herdert
Hallo Chris,
danke für die schnelle Antwort. Hat super geklappt, jedoch habe ich jetzt noch das Problem, dass ich die Proportionen der einzelnen Spalten ändern muss, was aber noch viel wichtiger ist, die Eingabe im Textfeld bezieht sich nicht auf alle Spalten sondern nur auf die Erste. Da ich das Textfeld als Suche benutze, muss sich die Eingabe auf alle Spalten beziehen.
Hoffe einer hat eine Idee.
Gruß
Herbert
Anzeige
AW: Listbox auf mehrere Spalten erweitern
28.04.2017 15:22:19
ChrisL
Hi Herbert
ListBox Eigenschaft ColumnWidth z.B. 10cm;5cm;3cm;2cm;1cm
Private Sub CommandButton1_Click()
Dim i As Byte
For i = 1 To 5
Controls("TextBox" & i) = ""
Next i
End Sub


Private Sub TextBox1_Change()
Call RefreshLB
End Sub


Private Sub TextBox2_Change()
Call RefreshLB
End Sub


Private Sub TextBox3_Change()
Call RefreshLB
End Sub


Private Sub TextBox4_Change()
Call RefreshLB
End Sub


Private Sub TextBox5_Change()
Call RefreshLB
End Sub


Private Sub RefreshLB()
Dim i As Long, j As Byte, b As Boolean
ListBox1.Clear
For i = 2 To Tabelle1.UsedRange.Rows.Count
b = True
For j = 1 To 5
If Controls("TextBox" & j)  "" Then
If Not UCase(Tabelle1.Cells(i, j)) Like "*" & UCase(Controls("TextBox" & j)) & "*"  _
Then
b = False
Exit For
End If
End If
Next j
If b Then
ListBox1.AddItem (Tabelle1.Cells(i, 1))
ListBox1.List(ListBox1.ListCount - 1, 1) = Tabelle1.Cells(i, 2)
ListBox1.List(ListBox1.ListCount - 1, 2) = Tabelle1.Cells(i, 3)
ListBox1.List(ListBox1.ListCount - 1, 3) = Tabelle1.Cells(i, 4)
ListBox1.List(ListBox1.ListCount - 1, 4) = Tabelle1.Cells(i, 5)
End If
Next i
End Sub

cu
Chris
Anzeige
AW: Listbox auf mehrere Spalten erweitern
28.04.2017 15:35:37
ChrisL
Unterschied zu Daniels Lösungen:
Ich bin davon ausgegangen, dass es dann 5 TextBoxen gibt, welche quasi einen Filter über die jeweiligen Spalten darstellen. Vermutlich ist es eher was Daniel vorschlägt d.h. weiterhin 1 TextBox mit Suche in allen 5 Spalten...
AW: Listbox auf mehrere Spalten erweitern
28.04.2017 15:37:31
Herdert
Hi Chris, danke wieder für die schnelle Antwort. Irgendwie habe ich mit dem Code ein Problem, der erkennt bei mir einen Fehler an der Stelle "HIER". Beim ausführen zeigt er auch die Spalten nicht mehr an und die Inhalte, wenn ich Suchen will kommt eine Fehlermeldung.
Gruß
Herbert 
Private Sub CommandButton1_Click()
Dim i As Byte
For i = 1 To 5
Controls("TextBox" & i) = ""
Next i
End Sub
Private Sub TextBox1_Change()
Call RefreshLB
End Sub
Private Sub TextBox2_Change()
Call RefreshLB
End Sub
Private Sub TextBox3_Change()
Call RefreshLB
End Sub
Private Sub TextBox4_Change()
Call RefreshLB
End Sub
Private Sub TextBox5_Change()
Call RefreshLB
End Sub
Private Sub RefreshLB()
Dim i As Long, j As Byte, b As Boolean
ListBox1.Clear
For i = 2 To Tabelle1.UsedRange.Rows.Count
b = True
For j = 1 To 5
HIER -->>> If Controls("TextBox" & j)  "" Then

Anzeige
AW: Listbox auf mehrere Spalten erweitern
28.04.2017 15:22:18
Daniel
Hi
probiers mal mit diesem Code.
der arbeitet etwas anders herum.
die Listbox wird zunächst vollständig aus der Tabelle geladen.
das geht ohne AddItem in einem Schritt.
dann werden die Zeilen, die nicht der Suchanfrage entsprechen, gelöscht. 
Private Sub TextBox1_Change()
Dim i As Long
Dim j As Long
Dim a As Long
Dim txt As String
a = Len(TextBox1)
ListBox1.Clear
ListBox1.List = Tabelle1.Range("A2:E" & Tabelle1.Cells(Rows.Count, 1).End(xlUp).Row).Value
For i = ListBox1.ListCount - 1 To 0 Step -1
txt = ""
For j = 0 To ListBox1.ColumnCount - 1
txt = txt & "|" & ListBox1.List(i, j)
Next
If Not UCase(txt) Like "*" & UCase(TextBox1.Text) & "*" Then ListBox1.RemoveItem i
Next
End Sub
Private Sub UserForm_Activate()
Dim i As Long
ListBox1.Clear
ListBox1.ColumnCount = 5
ListBox1.List = Tabelle1.Range("A2:E" & Tabelle1.Cells(Rows.Count, 1).End(xlUp).Row).Value
TextBox1 = ""
End Sub

die Spaltenbreiten kannst du über die Eigenschaft ColumnWidth einstellen.
Gruß Daniel
Anzeige
AW: Listbox auf mehrere Spalten erweitern
28.04.2017 15:30:11
Daniel
Hi
noch ne andere Methode, um die Listbox gefiltert zu befüllen.
hierbei prüfst du mit ZählenWenn, ob der gesuchte Text in der Tabellenzeile enthalten ist.
damit kannst du dann die 5 Zellen auf einmal prüfen:
Private Sub TextBox1_Change()
Dim z As Long
Dim s As Long
Dim i As Long
ListBox1.Clear
i = 0
With Tabelle1
For z = 2 To .Cells(Rows.Count, 1).End(xlUp).Row
If WorksheetFunction.CountIf(.Cells(z, 1).Resize(, 5), "*" & TextBox1.Text & "*") > 0  _
Then
ListBox1.AddItem
For s = 1 To 5
ListBox1.List(i, s - 1) = .Cells(z, s)
Next
i = i + 1
End If
Next
End With
End Sub
Gruß Daniel
Anzeige
AW: Listbox auf mehrere Spalten erweitern
28.04.2017 15:45:06
Herdert
Hi Daniel,
vielen vielen DANK genau so wollte ich es haben! Funktioniert!
Noch eine kleine Bitte, da ich wirklich schlecht in VBA bin, kannst du mir ein Beispiel geben für die Spaltenbreiten-Einstellung? Damit ich es auch an die richtige Stelle schreibe.
Aber der Rest sit wirklich SUPER!
Gruß
Herbert
Anzeige
AW: Listbox auf mehrere Spalten erweitern
28.04.2017 16:16:25
Daniel
Hi
die Spaltenbreite würde ich nicht per VBA festlegen, sondern die kannst du auch im VBA-Editor in der Eigenschaftsliste angeben.
Genauso die Angabe, dass die Listbox 5 Spalten hat.
Gruß Daniel

Forumthreads zu verwandten Themen

VBA: Text in Spalten - mehrere Spalten | Herbers Excel-Forum
Jonathan
Hallo liebe Experten,
ich bräuchte mal wieder etwas Hilfe...
In einer Tabelle stehen in einigen Spalten (jeweils ab Zeile 9 - Zeile 46) Zahlen.
Die Zellen sind als "Standart" definiert. Jedoch ist es so, dass einige Zahlen dennoch nicht als solche erkannt werden. Erst nach einem Doppelk...
05.02.2010 09:43:46
Thread-ID: 1136027
4 Beiträge
VBA - mehrere Spalten ansprechen
WalterK

Hallo,
bei folgendem Codeteil sollte ich wissen, was ich bei der Zeile Range("D" & i).Clear ändern muss, wenn ich die Clear-Anweisung für D:G benötige.
For i = 16 To LeZeiMinAB
If Range("A" & i) = "" Or Range("B" & i) = "" Then
Range("D" & i).Clear
End If...
15.04.2012 21:57:25
Thread-ID: 1259508
5 Beiträge
VBA Daten aus mehreren Spalten in eine Spalte
Valerie

Hallo,
ich habe folgendes Problem:
Ich habe im Worksheet "Aufgelöste Maßnahmen" Maßnahmen im Textformat gruppiert in verschiedenen Spalten stehen:
Gruppe 1 ------- Gruppe 2
Maßnahme x -- Maßnahme a
Maßnahme y -- Maßnahme b
Maßnahme z
nun möchte ich diese Maßnahmen au...
09.09.2012 16:37:23
Thread-ID: 1277903
7 Beiträge
VBA: Mehrere Spalten ausblenden
NillePet

Hallo Forumgemeinde,
ich bin nicht unbedingt ein VBA-Spezi und verzweifle gerade an folgendem Problem:
Die Daten die ich filtern möchte erstrecken sich über relativ viele Spalten. Gefiltert werden sollen die Spalten anhand der Werte in der Zeile 4, die dann aufgrund der Angabe in Zelle...
28.05.2013 17:15:02
Thread-ID: 1315291
6 Beiträge
VBA mehrere Spalten durchsuchen & Werte summieren
verslaan

Guten Morgen allerseits
Ich habe heute nochmals ein Problem, mit welchem ich nicht wirklich weiter komme.
Ich möchte mehrere Zeilen folgendermassen durchsuchen: Zeile 5 Spalte H -> wenn der String = Variable DANN zähle Wert in BH / BI / BJ pro Spalte _ zusammen und gib Total in Vari...
17.09.2013 08:55:32
Thread-ID: 1331093
7 Beiträge
Anzeige
Listbox Füllen Add item oder Fill Range
Silent_Warrior5

Hallo Zusammen,
(frohes neues auch noch)
Kann mir jemand die Vor und Nachteile sagen wenn ich eine Listbox (direkt in der Tabelle, Active X gesteuert) mit Einträgen füllen will.
Habe gesehen, man kann das über ListFillRange oder per VBA Code über AddItem machen.
Welches ist bes...
01.01.2014 12:30:04
Thread-ID: 1343850
10 Beiträge
Anzeige
Userform listbox add und remove item prob
Günter

Hallo,
Ja, ich schon wieder ;)
Ich habe noch Probleme mit der von Franz erstellten Userform.
Eine Suchfunktion mit Anzeige in einer Listbox.
Tips durch google ergeben für mich keine Lösung, da ich irgendwie
bei diesen "Listeinträgen" noch garnicht durchsteige.
Folgendes:...
04.11.2014 19:09:47
Thread-ID: 1390481
5 Beiträge
ListBox mehrere Spalten gefiltert
Felix

Hallo zusammen, ich habe ein dezentes Problem mit der ListBox.
Aus anderen Beiträgen zur ListBox hab ich es nicht geschafft mir den Code zurechtzubiegen darum öffne ich hier einen neuen Beitrag.
Ich bin VBA-Neuling und schnipsel mir zur Zeit meine Codes aus dem Internet zusammen. Ich wo...
18.08.2015 10:40:11
Thread-ID: 1442860
3 Beiträge
Anzeige
Listbox additem offset funktioniert nicht
Sven

Hi zusammen,
ich versuche in eine Listbox Daten aus gefilterten Zeilen zu übernehmen.
Die erste Spalte funktioniert, jedoch bekomme ich den Befehl nicht hin weitere bestimmte Daten aus der Zeile in Spalte 2 und 3 zu übernehmen.
So habe ich es probiert, aber vba sagt da ist ein Fehle...
09.09.2015 10:31:56
Thread-ID: 1446648
4 Beiträge
Anzeige
Listbox befüllen mit Listbox(Vba)
André

Ich hoffe dass mir jemand weiter helfen kann
und zwar habe ich folgendes problem:
Ich will eine listbox mit werten aus einer anderen listbox füllen was ich bis dahin auch geschaft habe, aber es wir immer nur die erste spalte kopiert ich hoffe ihr könnt mir weiter helfen.
Das ist mei...
29.04.2017 13:47:15
Thread-ID: 1555474
4 Beiträge
VBA Listbox füllen, Userform in Textbox einlesen
FUMOS

Hallo,
leider werden die Daten aus der Excel-Tabelle nicht in die Listbox eingelesen.
Wo liegt mein Fehler.
Auch möchte ich die Einträge dann in der Userform bearbeiten und dann in der Tabelle überschreiben lassen.
Kann mir jemand helfen.
https://www.herber.de/bbs/user/11622...
13.09.2017 18:40:18
Thread-ID: 1580349
2 Beiträge
VBA Sumif(s) mehrere Spalten(Schleifen)
Andreas

Hallo liebes Forum,
ich habe eine VBA-Herausforderung die ich im Moment nicht lösen kann und die mein Makro ziemlich langsam macht.
Durch den Durchlauf mit Haltpunkten habe ich herausgefunden, dass folgende Codes mein Makro sehr langsamm macht.
Jetzt kommt die Schleife um für jede Z...
23.03.2018 09:53:20
Thread-ID: 1615942
3 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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