Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
648to652
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
648to652
648to652
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Suchfunktion VBA

Suchfunktion VBA
08.08.2005 13:37:01
Jeanie
Hallo!
Ich nutze für eine Suchfunktion folgenden Code:
Private Sub CommandButton1_Click() Dim nr As Variant, Sh As Worksheet, i As Integer nr = InputBox("M-Nr. eingeben. (z.B. M33)") For i = 2 To Sheets.Count If Sheets(i).Range("C3") = nr Then Application.Goto Sheets(i).Range("C3") Exit Sub End If Next i MsgBox "Eintrag nicht gefunden!" End Sub
Wenn man nun die so genannte M-Nr. eingibt, muss das "M" groß geschrieben werden. Andernfalls erkennt er die Nummer nicht.
Gibt es eine möglichkeit den Code so zu ändern, das er die Nummer sowohl mit groß, als auch mit klein geschriebenem "M" findet?
Noch besser wäre es, wenn es reichen würde die Zahl alleine zu schreiben.
Habt Ihr eine Idee?
Vielen Dank!

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Suchfunktion VBA
08.08.2005 13:40:32
MichaV
Hallo

Private Sub CommandButton1_Click()
Dim nr As Variant, Sh As Worksheet, i As Integer
nr = "M" & InputBox("Nr. eingeben. (z.B. 33)")
For i = 2 To Sheets.Count
If ucase(Sheets(i).Range("C3")) = ucase(nr) Then
Application.Goto Sheets(i).Range("C3")
Exit Sub
End If
Next i
MsgBox "Eintrag nicht gefunden!"
End Sub

(ungetestet)
Gruss- Micha
PS: Rückmeldung wäre nett.
AW: Suchfunktion VBA
08.08.2005 13:46:49
Kurt
hi,
dann aber auch gleich Falscheingaben verhindern ;-)
nr = "M" & Application.InputBox("Nr. eingeben. (z.B. 33)", Type:=1)
...und Tschüss Kurt
Anzeige
AW: Suchfunktion VBA
08.08.2005 13:59:07
MichaV
Hallo Kurt,
dann aber richtig:
nr = "M" & Application.InputBox("Nr. eingeben. (z.B. 33)", Type:=1)
If nr = "MFalsch" Then MsgBox "Abbruch gedrückt": Exit Sub
Gruss- Micha
AW: Suchfunktion VBA
08.08.2005 13:49:01
Jeanie
Funktioniert!
Vielen Dank!
Wäre es denn auch möglich, das es so zu sagen egal ist, ob ich nun M33, m33 oder 33 schreibe?
AW: Suchfunktion VBA
08.08.2005 14:02:15
MichaV
Hallo,
so wird, wenn die Eingabe eine reine Zahl ist, ein "M" davorgesetzt.

nr = InputBox("Nr. eingeben. (z.B. 33)")
if isnumeric(nr) then
nr="M" & nr
endif

Was ist aber, wenn der User "P33" eingibt? Oder "MM33"?
Besser wäre es, diese Fälle von vornherein auszuschließen und die Eingabe einer Zahl zu erzwingen (hast Du Kurts Vorschlag mal getestet?)
Gruss- Micha
PS: Rückmeldung wäre nett.
Anzeige
AW: Suchfunktion VBA
08.08.2005 14:09:15
Jeanie
Super!
Genau so sollte es sein!
Vielen Dank
kisses,
jeanie
Danke für Deine Rückmeldung! owT
09.08.2005 10:11:28
MichaV

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige