Hallo zusammen,
ich benötige Hilfe bei folgendem Problem:
Mein Code für eine Suche funktioniert sehr gut, wenn ich das Suchkriterium möglichst präzise eingebe.
Aber wenn ich Beispielsweise nur ein "A*" eingebe, sucht er mir ja auch in Spalte A statt nur in Spalte B. Meine Versuche es so hinzukriegen das nur Spalte B in der Range definiert wird, ist bislang ohne Erfolg geblieben... Hier mein Code.
Kann mir jemand bitte helfen, wie ich die Range auf Spalte B fixieren kann, so dass auch nur Spalte B durchsucht wird? und nicht von A bis B?
_____________________________________________________________________________________
If ComboBox5.Value = "Kundenname" Then
Dim rng5 As Range
Dim strFirst5 As String
With Tabelle1 'Sheet: Gesamtübersicht
ListBox4.Clear
Set rng5 = .Range("A11:B" & .Rows.Count).Find(What:=TextBox44, LookIn:=xlValues, _
LookAt:=xlPart, MatchCase:=False, after:=.Cells(.Rows.Count, 1))
If Not rng5 Is Nothing Then
strFirst5 = rng5.Address
Do
ListBox4.ColumnCount = 6
ListBox4.ColumnWidths = "2,5cm;7,0cm;4,0cm;2,0cm;2,5cm"
With Me.ListBox4
ListBox4.AddItem rng5.Value
ListBox4.List(ListBox4.ListCount - 1, 0) = rng5.Offset(0, -1).Value 'Ticketnummer
ListBox4.List(ListBox4.ListCount - 1, 1) = rng5.Offset(0, 0).Value 'Kundenname
ListBox4.List(ListBox4.ListCount - 1, 2) = rng5.Offset(0, 2).Value 'LEI
ListBox4.List(ListBox4.ListCount - 1, 3) = rng5.Offset(0, 4).Value 'Cokis
ListBox4.List(ListBox4.ListCount - 1, 4) = rng5.Offset(0, 8).Value 'Antwortdatum
ListBox4.List(ListBox4.ListCount - 1, 5) = rng5.Offset(0, 21).Value 'Kommentarfeld
Label79 = ListBox4.ListCount
Label78.Visible = True
End With
Set rng5 = .Range("A11:B" & .Rows.Count).FindNext(rng5)
Loop While Not rng5 Is Nothing And strFirst5 rng5.Address
Else: MsgBox "Keine Einträge mit dieser Bezeichnung gefunden"
End If
End With
Set rng5 = Nothing
End If
End Sub
_____________________________________________________________________________________
Vielen Dank für eure Hilfe im Voraus!
Gruß
Christian