von Groß in groß
04.05.2006 09:48:16
Groß
ich suche in einer UF nach dem Inhalt einer Textbox.
Wenn ich z.B. nach "Würth" suche wird nichts gefunden, schreibe ich aber "würth" funktioniert es. Wie kann ich nun per VBA "Würth" in "würth" umwandeln?
Oder hat jemand eine andere Idee zur Suche.
Das ist mein Code:
Private Sub ListBox_befüllen()
Dim v3
v3 = Range("A2")
Range("A5").Select
ListBox1.Clear
Dim Zeile
Zeile = 0
Dim Anzahl
Anzahl = 0
Do
Weiter:
ActiveCell.Offset(0, 200).Select
Dim v5
v5 = Range("A2")
On Error GoTo Ende
Cells.Find(What:=v3, After:=ActiveCell, LookIn:=xlValues, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False).Activate
aZelle = ActiveCell.Row
If ActiveCell.Column > 6 Then GoTo Weiter
If ActiveCell = v5 Then Exit Do
Anzahl = Anzahl + 1
ListBox1.AddItem aZelle
TextBox3.Text = Cells(aZelle, 4)
ListBox1.List(Zeile, 0) = Cells(aZelle, 1)
ListBox1.List(Zeile, 1) = Cells(aZelle, 5)
ListBox1.List(Zeile, 2) = Cells(aZelle, 6)
ListBox1.Height = 80
ListBox1.BorderStyle = fmBorderStyleSingle
Zeile = Zeile + 1
Loop
End Sub
Anzeige