Zellen über dem markiertem nach Text durchsuchen
20.03.2017 18:45:30
Tim
Ich möchte über dem markiertem Feld nach einem Text suchen.
Und zwar 4 Zellen ohne das markierte selbst.
Mein Code funktioniert auch schon ganz gut, Crasht jedoch, wenn ich außerhalb des Bereiches komme.
Beispiel das markierte Feld ist "A2", dann gibt es keine 4 Zellen drüber.
Wenn die Suche bei "A5" oder drunter beginnt, dann läuft es.
a = Chr$(Selection.Column + 64): b = Selection.Row
'Verlust Abschriften Erkennung Farben setzen
Set VorBereich = Range(a & b - 4 & ":" & a & b - 1)
For Each cell In VorBereich
If InStr(cell.Value, "Inventur") > 0 Then
I = 1 'ist nur ein Beispiel
end If
Next
Hat jemand eine Idee für eine Lösung?