Fehler abfangen
19.01.2006 19:17:11
DieterL
das unten stehende Makro ist Teil eines langen Codes mit dem ich per Offset Befehl hinter dem gefundenen Wert Daten speichere. Das fuktioniert auch prima bis auf die Tatsache das das Makro verständlicher Weise abstürzt wenn keine Entsprechung gefunden wird.
Private Sub CommandButton3_Click()
Letzte = Worksheets("GW2").[a65536].End(xlUp).Row
Set Bereich = Sheets("GW2").Range("A4:A" & Letzte) _
.Find(ComboBox1.Value, lookat:=xlWhole)
End Sub
Mir fehlt die richtige Syntax für folgende Prozedur:
Wenn Bereich nicht vorhanden Dann
MsgBox "Nummer ungültig"
Ich hoffe jemand kann mir helfen.
Gruß DieterL
Anzeige