Office: VBA ListBox markieren wenn Eintrag gefunden

paddy3911 · 27. Mai 2017

Hey,

ich habe hatte hier mal gefragt ob mir jemand helfen kann bei meinem Problem. Leider kam da bis heute noch nichts. Vielleicht auch weil es im anderen Thema gefragt wurden ist.

Daher hier nochmal ordentlich nachgefragt.

Frage 1: Ich möchte in einer Tabelle etwas per TextBox / Button etwas suchen und den Eintrag danach in der ListBox markieren.

Der Code sieht bisher so aus:

Code:

Private Sub CommandButton5_Click()

Dim rng As Range
Dim zeile As Long

Set rng = Sheets("Datenbank").Range("A:A").Find(What:=TextBox12.Text, Lookat:=xlWhole, LookIn:=xlValues)

If Not rng Is Nothing Then
If rng.Rows.Count = 1 Then
zeile = rng.Row
MsgBox rng.Value & "- Zeile " & zeile

With Tabelle1
TextBox1 = Trim(CStr(.Cells(zeile, 1).Value))
TextBox2 = .Cells(zeile, 2).Value
TextBox3 = .Cells(zeile, 3).Value
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

End With

Else
MsgBox "Mehr als ein Treffer"
End If
Else
MsgBox "Nichts gefunden"
End If

End Sub
Es wird auch gesucht und gefunden. Allerdings wird mir dann nur eine Nachricht angezeigt wo der Eintrag gefunden wurde. Kann ich mir den Eintrag in der ListBox markieren lassen ?

Frage 2: Wie muss ich den Code ändern um nicht nur nach einem Text oder einer Nummer in Spalte A zu suchen, sondern in Spalte A, B , C diesen Text suchen ?

Vielleicht ist ja jemand so nett und kann mir hier weiterhelfen *Smilie

Vielen Dank bereits jetzt *Smilie

:)

Beverly · 29. Mai 2017

Hi,

lade doch bitte eine Beispielmappe hoch.

paddy3911 · 29. Mai 2017

Code:

Private Sub CommandButton6_Click()
Dim Start() As Integer
Dim sString As String
Dim arr
Dim Z As Long
Dim S As Integer
Dim ID

ListBox1.MultiSelect = 0

sString = TextBox16.Text
arr = ListBox1.List
ID = 0
For Z = 0 To UBound(arr)
For S = 0 To UBound(arr, 2)
If UCase(arr(Z, S)) Like "*" & UCase(sString) & "*" Then
ReDim Preserve Start(0 To ID)
Start(ID) = Z
ID = ID + 1
Exit For
End If
Next
Next

For ID = LBound(Start) To UBound(Start)
ListBox1.Selected(Start(ID)) = True
Next ID

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Lösung gefunden *Smilie Su wird in der ListBox1 nach meinem Wert gesucht nachdem ich per Button bestätige. Danke trotzdem *Smilie

Office: VBA ListBox markieren wenn Eintrag gefunden

VBA ListBox markieren wenn Eintrag gefunden

VBA ListBox markieren wenn Eintrag gefunden

VBA ListBox markieren wenn Eintrag gefunden - Similar Threads - VBA ListBox markieren

Suchfunktion in Listbox

Listenfeld in Word 2016

Excel VBA - ListBox mit TextBox Filtern

VBA Listbox in abhängigkeit befüllen

VBA ListBox Zeilen entsprechend in Tabelle löschen

vba listbox filter beim füllen

Mehrfachauswahl ohne VBA