Vergleiche Eingabe Inputbox mit Werten aus Mappe1
Ivek
Hab mal wieder eine Frage. Ich suche über eine Inputbox gewisse Werte (Sachnummern) in dr Mappe1.
Die Suche geht zwar nur kriege ich es nicht hin, eine Falscheingabe über MsgBox auszugeben.
Immer wenn ich einen Wert eingebe, der nicht in Mappe1 enthalten ist, öffnet sich der Debugger.
Wie kriege ich das umgestezt?
Dies ist mal mein bisheriger Code:
Private Sub Markieren()
Dim strSuchen As String
'Schrift fett rückgängig
Selection.Font.Bold = False
'Schrift Farbe der Zelle rückgängig
Selection.Interior.ColorIndex = xlNone
'Eingabe der gewünschten Sachnummer in die Inputbox
strSuchen = InputBox("Bitte geben Sie die gewünschte Sachnummer ein!", "Sachnummer suchen")
If strSuchen = "" Then Exit Sub
Worksheets("ET").Columns(2).Find(what:=strSuchen, lookat:=xlPart).Select
'Gefundene Sachnummer wird fett markiert
Selection.Font.Bold = True 'Fett
'Zelle mit gefundener Sachnummer wird gelb eingefärbt
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 65535 'oder hier eine andere Farbe
'.TintAndShade = 0
'.PatternTintAndShade = 0
End With
End Sub
Danke schonmal im Voraus
Gruß
Ivek
Anzeige