find
27.08.2004 08:18:04
Gregor
Mit folgendem Befehl suche ich in der spalte B mit der Variable n nach einem Wort.
n = InputBox(Prompt:="Geben Sie den gewünschten Bahnhof ein", _
Title:="Abfrage Perronläne/-höhe", _
Default:="Aarau")
Range("B:B").Find(What:=n, LookIn:=xlValues, LookAt:=xlWhole).Select
Wenn nun ein User einen Suchbegriff eingibt, der in Spalte B nicht enthalten ist, gibt es eine Fehlermeldung.
Wie kann ich diese Fehlermeldung auffangen und eine Meldung an der User absetzen. zB. Bitte Bahnhof (Suchbegriff) überprüfen oder Bahnhof nicht gefunden.
Gruss und Danke
Gregor