Hallo ich habe eine Finden Funktion erstellt, mit welcher ein eingebener Wert (Zelle E12) gesucht und gefunden wird, dieser wird dann mit einem Roten Rahmen versehen. Wie kann ich nun eine MessageBox aufploppen lassen, wenn kein Suchbegriff gefunden wurde? Wie lautet der Code dafür?
Dim finden As Range, Zeile As Long, Spalte As Long
Set finden = Columns(48).Find(what:=Range("E12"))
Zeile = finden.Row
Spalte = finden.Column
With ActiveWindow
.ScrollColumn = Spalte
.ScrollRow = Zeile
ActiveWindow.SmallScroll Up:=100
ActiveWindow.SmallScroll ToLeft:=15
End With
Cells(finden.Row, finden.Column).Borders.Color = vbRed