Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1216to1220
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Suche nach Kontonummern

Suche nach Kontonummern
reinhardt
Hallo,
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

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Suche nach Kontonummern
07.06.2011 12:49:27
Rudi
Hallo,
ergänze doch einfach auf 10 Stellen
.....
If suche = "" Then Exit
Suche=Left(Suche & "0000000000", 10)
.....
Gruß
Rudi
Danke, klappt Super!! o.T.
07.06.2011 12:59:16
reinhardt
.
besser
07.06.2011 12:57:17
Rudi

Sub suchen()
Dim suche As String
Dim z
'Suchen nach Konto Nr.
suche = InputBox("Wonach wollen Sie suchen?", , "0000000000")
If suche = "" Then Exit Sub
suche = Left(suche & "0000000000", 10)
z = Application.Match(suche, Sheets("Konten").Columns(3), 0)
If Not IsError(z) Then
Sheets("EinAusRG").Cells(14, 12) = Sheets("Konten").Cells(z, 2)
End If
End Sub

AW: Suche nach Kontonummern
07.06.2011 12:58:16
marcl
Hallo Reinhardt,
vielleicht geht das auch so:
Sub suchen()
Dim suche As String
Dim i As Integer
'Suchen nach Konto Nr.
suche = InputBox("Wonach wollen Sie suchen?", , "0000000000")
'Stellen mit 0 füllen, bis 10 Stellen erreicht sind
If Len(suche) 
Gruß
marcl
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige