Suchfunktion VBA
08.08.2005 13:37:01
Jeanie
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!