Zahlen suchen mit ersten zwei Ziffern
31.01.2018 10:22:21
Philip
Ich habe einen Code mit dem die Spalte F nach Werten durchsuche, diese und andere werte übertrage ich in eine Listbox auf einer Userform.
Nun habe ich bei der Suche ein Problem und zwar würde ich gerne nur die ersten zwei Ziffern der zu suchenden Zahl eingeben und dann alle die mit diesen zwei Ziffern beginnen in die Listbox kopieren.
Beispiel:
Eingabe in Textbox = 32* oder nur 32
ausgabe in Listbox = alle Nummern die mit 32 beginnen. zb 32020300,32020405,30030506
Die Zahlen die zu suchen sind, sind immer 8 stellig.
Der aktuelle Code sucht nur die ganze Eingabe.
Private Sub CommandButton1_Click()
Dim wksQ As Worksheet
Dim lngAnzahl As Long
Dim strKundennummer As String
Dim lngSpalte As Long
Dim rngSuchBereich As Range
Dim vntGesucht As Variant
Dim lngGefundenInZeile As Long
Dim straArray() As String
Dim rngGefunden As Range
Dim lngZeileArray As Long
Dim strFirstAddress As String
Set wksQ = ThisWorkbook.Worksheets("Probenahme")
strKundennummer = Trim(TextBox1.Text)
lngAnzahl = Application.WorksheetFunction.CountIf(wksQ.Columns(6), strKundennummer)
If lngAnzahl strFirstAddress
End If
ListBox1.Clear
ListBox1.ColumnCount = 9
ListBox1.ColumnHeads = False
ListBox1.List = straArray
ListBox1.ColumnWidths = -1
ListBox1.Font.Size = 12
Label1 = "Anzahl:" & ListBox1.ListCount
End If
End Sub