Suche nach Kontonummern
reinhardt
mit der u.a. Suche möchte ich mir Kontonamen anzeigen lassen.
Die Kontonummern haben eigentlich 10 Ziffern.
z.B. 1699002600
oder 1361000000
Mein Problem:
Die Schreibweise des Anwenders reduziert sich aber immer auf die Kurzform
z.B. 16990026 oder
13610
So wird aber das Konto nicht gefunden.
Der Anwender muss in die Inputbox exakt 10 Stellen und die damit benötigte Anzahl von Nullen eintragen.
Gibt es irgendeine bessere Suchroutine?
Gruß Reinhardt.
Sub suchen()
Dim suche As String
Dim x As String
Dim z As Integer
'Suchen nach Konto Nr.
suche = InputBox("Wonach wollen Sie suchen?", , "0000000000")
Sheets("Konten").Select
z = 0
[C3].Activate
If suche = "" Then Exit
Sub
Do Until ActiveCell = ""
ActiveCell.Offset(1, 0).Activate
If ActiveCell = suche Then
ActiveCell.Offset(0, -1).Select
x = ActiveCell.Offset(0, 0).Value
Sheets("EinAusRG").Select
Range("L14").Value = x
Exit Sub
z = z + 1 'dann den Zähler um eins erhöhen
End If
Loop
End Sub