Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 15:03:35
Unterschiedliche Dateien miteinander abgleichen lassen
25.04.2024 14:05:48
Makro in aktueller Zelle ausführen mit Doppelklick
25.04.2024 12:56:25
Werte von Kunden und Artikel stehen untereinander
25.04.2024 12:55:42
Funktionsparameter auslesen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1404to1408
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1404to1408
1404to1408
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

in Listbox Einträge suchen und markieren

in Listbox Einträge suchen und markieren
30.01.2015 23:12:29
Tom
Hallo allerseits,
ich bin gerade dabei, eine zu gross gewordene Adressliste mit Suchoptionen auszustatten. Eine in einer Userform integrierte Listbox die alle Adressen listet, soll via TextBox und Button nach Daten durchsucht werden. Das habe ich auch hingekrigt, doch leider kann ich nur die 1. Spalte durchsuchen. Es sollten aber alle 10 Spalten durchsucht werden. Da stehe ich nun an :-(
Private Sub CommandButton1_Click()
Dim i As Integer
Dim sText As String
sText = TextBox1.Text
For i = 1 To lstAdressen.ListCount - 1
If lstAdressen.List(i) = sText Then
Me!lstAdressen.Selected(i) = True
End If
Next i
End Sub

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: in Listbox Einträge suchen und markieren
31.01.2015 00:37:15
ludmila
Hallo Tom,
versuchs mal so! 
Private Sub CommandButton1_Click()
Dim iRow As Integer
Dim iCol As Integer
For iRow = 0 To lstAdressen.ListCount - 1
For iCol = 0 To lstAdressen.ColumnCount - 1
If lstAdressen.List(iRow, iCol) = Textbox1.Text Then
lstAdressen.Selected(iRow) = True
End If
Next iCol
Next iRow
End Sub

Gruß
Ludmila

AW: in Listbox Einträge suchen und markieren
31.01.2015 01:27:47
Tom
Hallo Ludmila,
vielen Dank für die prompte Antwort. Leider bekomme ich in folgender Zeile einen Fehler.
If lstAdressen.List(iRow, iCol) = TextBox1.Text Then

AW: in Listbox Einträge suchen und markieren
31.01.2015 02:21:51
ludmila
Hy Tom,
bei mir funkioniert es
LG
Ludmila
https://www.herber.de/bbs/user/95439.xlsm

Anzeige
AW: in Listbox Einträge suchen und markieren
31.01.2015 14:26:55
Tom
Hallo Ludmila,
in der Tat, da funktioniert alles. Hmm, bei mir nicht! Fehlermeldung:
Laufzeitfehler '-2147024809(80070057'):
Eigenschaft List konnte nicht abgerufen werden- Ungültiger Argument
So sieht das bei mir aus:
Private Sub CommandButton1_Click()
Dim iRow As Integer
Dim iCol As Integer
Dim sText As String
sText = TextBox1.Text
For iRow = 0 To lstAdressen.ListCount - 1
For iCol = 0 To lstAdressen.ColumnCount - 1
If lstAdressen.List(iRow, iCol) = sText Then
lstAdressen.Selected(iRow) = True
End If
Next iCol
Next iRow
End Sub

Private Sub lstAdressen_DblClick(ByVal Cancel As MSForms.ReturnBoolean)  '=Z29, =W20, =W24
wahlindex = frmKunden.lstAdressen.ListIndex
ActiveCell.Value = Worksheets("Adressen").Cells(wahlindex + 2, 4).Value                ' _
Name / Vorname
ActiveCell.Offset(1, 0).Value = Worksheets("Adressen").Cells(wahlindex + 2, 5).Value   ' _
Strasse / Nummer
ActiveCell.Offset(2, 0).Value = Worksheets("Adressen").Cells(wahlindex + 2, 6).Value   'Plz  _
/ Ort
ActiveCell.Offset(4, 0).Value = Worksheets("Adressen").Cells(wahlindex + 2, 7).Value   'z. _
Hd.
ActiveCell.Offset(-2, 0).Value = Worksheets("Adressen").Cells(wahlindex + 2, 3).Value  ' _
Zeile 1
ActiveCell.Offset(-3, 0).Value = Worksheets("Adressen").Cells(wahlindex + 2, 2).Value  ' _
Zeile 2
ActiveCell.Offset(10, 18).Value = Worksheets("Adressen").Cells(wahlindex + 2, 9).Value
Cancel = True
Unload frmKunden
End Sub

Sub Userform_Initialize()
j = Sheets("Adressen").Cells(Rows.Count, 4).End(xlUp).Row
lstAdressen.ColumnCount = 10
lstAdressen.ColumnWidths = "37;50;50;115;100;80;80;80;80;80"
lstAdressen.List = Worksheets("Adressen").Range("A2:I" & j).Value
End Sub

Anzeige
AW: in Listbox Einträge suchen und markieren
31.01.2015 18:27:16
Tom
Hallo Ludmila,
ich habe es geschafft, so funktioniert's. Vielen Dank !!
Sub UserForm_Initialize()
Dim wks As Worksheet
Dim ii As Integer
Set wks = Sheets("Adressen")
With wks
For ii = 2 To .Cells(Rows.Count, 1).End(xlUp).Row
lstAdressen.ColumnCount = 10
If Not IsEmpty(.Cells(ii, 1)) Then
lstAdressen.AddItem Cells(ii, 1).Value
lstAdressen.List(lstAdressen.ListCount - 1, 0) = .Cells(ii, 1).Value
lstAdressen.List(lstAdressen.ListCount - 1, 1) = .Cells(ii, 2).Value
lstAdressen.List(lstAdressen.ListCount - 1, 2) = .Cells(ii, 3).Value
lstAdressen.List(lstAdressen.ListCount - 1, 3) = .Cells(ii, 4).Value
lstAdressen.List(lstAdressen.ListCount - 1, 4) = .Cells(ii, 5).Value
lstAdressen.List(lstAdressen.ListCount - 1, 5) = .Cells(ii, 6).Value
lstAdressen.List(lstAdressen.ListCount - 1, 6) = .Cells(ii, 7).Value
lstAdressen.List(lstAdressen.ListCount - 1, 7) = .Cells(ii, 8).Value
lstAdressen.List(lstAdressen.ListCount - 1, 8) = .Cells(ii, 9).Value
lstAdressen.List(lstAdressen.ListCount - 1, 9) = .Cells(ii, 10).Value
End If
Next ii
End With
End Sub

Anzeige

305 Forumthreads zu ähnlichen Themen

Zellen farbig markieren
chrisss

Hallo,
ist es eigentlich bei Excel 2007 nun möglich, dass bei einer Wenn-Funktion eine Zelle farbig ausgefüllt wird. Beispiel: Wenn in Tabelle 1 in A1 ein U steht, soll die Zelle A1 in Tabelle 2 rot ausgefüllt werden.
Ich hatte die Frage schonmal gepostet und die Antwort erhalten, dass...
21.08.2008 13:20:00
Thread-ID: 1003455
8 Beiträge
Anzeige
Text in Zelle suchen und markieren
Heiko

Hi, Excelianer,
kenne mich mit der Suche nach Strings nicht gut aus...
Ich habe mit Excel einen Kalender (händisch) erstellt mit dem Datum jeweils eines Monats in Spalte A (Text in Zelle: "01.10.2008", durch Formatierung angezeigt: "Mittwoch, 01. Oktober 2008"). Die Tabellenblätter heiß...
30.10.2008 08:21:00
Thread-ID: 1020459
5 Beiträge
Zellen mit gleichem Inhalt farblich markieren
TomTom

Hi,
ich möchte meine Spalte "F5:F500" auf dem Sheet "Ausgabe" nach doppelten oder mehrfach vorkommenden Zellen (gleicher Inhalt) farblich rot markieren (Schriftfarbe Rot)
Wie macht man denn das ?
Danke
Tom
10.12.2008 09:02:54
Thread-ID: 1031574
5 Beiträge
Anzeige
Mehrere Zellen gleichzeitig farblich markieren
KLAUS

Hallo!
Ich habe eine Tabelle in der von B9 bis V45 in jeder Zelle ein Namenskürzel steht, insgesamt 21 verschiedene.
Jetzt möchte ich alle Kürzel von einer Person, die aber an unterschiedlichen,d.h. nicht zusammenhängenden, Zellen stehen mit wenig Aufwand und Suchaktionen mit einem Arbe...
11.03.2009 12:29:52
Thread-ID: 1059068
7 Beiträge
In Spalte leere Zelle erkennen /farblich markieren
Joachim

Hi,
ich mal wieder: ich lese Daten in mein Tabellenblatt "DATEN" ein. Dann möchte ich überprüfen, ob es in der Spalte B irgendwo eine Zelle gibt , die leer ist. Den Range des Datenbereichs ermittle ich so:
lngRow = Cells.Find("*", , xlValues, 2, 1, 2, False, False).Row
Range("B10:B"...
21.04.2009 08:56:19
Thread-ID: 1069952
17 Beiträge
Datum suchen und markieren
edie

Hallo zusammen,
das recherchieren im Archiv hat mich nicht weiter gebracht, wäre schön, wenn mir jemand helfen könnte.
Im Bereich B6:B50 wird immer wieder ein Datum geschrieben und die Zelle markiert.
Nun soll das markierte Datum in der Spalte AA1:AA200 gesucht und die Zelle markie...
03.06.2009 21:54:16
Thread-ID: 1079017
2 Beiträge
Wortteil in Tabelle suchen und Zelle markieren
Elmar

Hallo zusammen,
ich bräuchte mal Hilfe... ich krieg´s irgenwie selbst nicht hin.
Ich möchte ein Makro, das mir Suchbegriffe aus einer Liste ausliest (Liste z.B. in Tabelle 2 von A1 bis A10) und damit (mit den Suchbegriffen) eine andere Tabelle dann durchsucht. Wenn der Begriff (das ist...
17.08.2009 22:44:22
Thread-ID: 1096582
8 Beiträge
Zellen farblich markieren
Uwe.Siebers

Guten Morgen,
in einem Arbeitsblatt "Zeitdaten" befinden sich in den Zellen "B6:B36" die Angaben zu den Tagen eines Monats (01 bis z.B. 31) In den Zellen "C6:C36" stehen dazu die Wochentage (z.B. Sa, So)
Wie bekomme ich`s nun hin, das die Zellen im Bereich "B6:Z36" immer dann farblich h...
10.09.2009 10:09:17
Thread-ID: 1101686
3 Beiträge
Anzeige

Links zu Excel-Dialogen

TextBox UserForm

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
7
6
4
4
2
6
16
1
7
2
15
7
1
15
5
3
5
3
1
2
7
6
6
10
3