Name oder Zahl mittels Input Box suchen
01.02.2014 16:12:02
Bandy
Folgendes: Ich möchte mittels Inputbox eine Zahl/resp. Nummer suchen.
Beispiel:
Public Sub Nummer_suchen()
Dim eg As Variant
eg = InputBox("Nummer suchen")
If IsNumeric(eg) Then
Sheets("Nummer").Select
Range("A1:C6").Select
Selection.AutoFilter
ActiveSheet.Range("$A$1:$C$6").AutoFilter Field:=1, Criteria1:=eg
Else
Dim f
f = MsgBox("Bitte Nummer eingeben", vbCritical + okonly)
End If
End Sub
Frage:wie lautet nun der Code, wenn ich nach Name oder Vorname suchen möchte.
Besten Dank für die Mithilfe
Gruss Bandy
Anzeige