Guten Abend,
ich wollte mir eine einfache Suchfunktion basteln, aber ich finde nicht heraus warum zur Hölle der Fall "Gefunden" einfach nicht zustande kommt. Ich habe mir einen Button erstellt welcher eine Inputbox aufpoppen lässt wo man, dann die Kundennummer eingeben soll, dann sollen ein Tabellenblatt nach dieser Nummer durchsucht werden und die Zeile in der diese Nummer steht in eine Listbox eingetragen werden. Sollte es die Nummer nicht geben, dann soll eine MsgBox ausgeben, dass die Nummer/Kunde unbekannt ist.
Private Sub CB1_Click()
Dim Kundensuche As Integer
Dim Kundensuche2 As String
Dim anzahl_kunden As Integer
Dim Kundendaten As String
Dim gefunden As Boolean
gefunden = False
'LB_Ergebnisse.AddItem Cells(1, 1) & " " & Cells(1, 2) & " " & Cells(1, 3) & " " & Cells(1, 4) & " " & Cells(1, 5)
Kundensuche = InputBox("Bitte geben Sie die Kundennummer des Kunden ein", "Kundensuche")
' Sucht die unterste gefüllte Zeile und gibt ihre Position bzw. Zeilennummer weiter.
anzahl_kunden = Tabelle1.Cells(Rows.Count, 1).End(xlUp).Row
' Geht die Zeilen von der letzten gefüllten Zeile aus nach oben bis Zeile 2 durch.
For i = 2 To anzahl_kunden
If Cells(i, 4) = Kundensuche Then
Kundendaten = Cells(i, 1) & " " & Cells(i, 2) & " " & Cells(i, 3) & " " & Kundensuche & " " & Cells(i, 5)
LB_Ergebnisse.AddItem Kundendaten
gefunden = True
End If
Next i
If gefunden = False Then
MsgBox ("Unbekannter Kunde.")
End If
With LB_Ergebnisse
.ColumnCount = 5
.ColumnWidths = "1,5cm;2,5cm;2,5cm;2cm;3cm"
.ColumnHeads = True
LB_Ergebnisse.RowSource = "Tabelle1!A1:E1"
End With
End Sub
|