Hallo Community,
mal wieder ein VBA Problem.
Ich möchte in einem bestimmten Zellbereich prüfen, ob eine Zelle einen bestimmten Wert bzw. Buchstaben erhält. Mein Code dazu:
For Each Cell In Range(Cells(24,16,), Cells(33,25))
If Cell.Value = "A" Then
Daraufhin soll ein bestimmter Zellbereich auf beispielsweise Buchstabe "B" geprüft werden. Und zwar alle Zellen die bis zu 3 Zellen von "A" entfernt liegen. Mein Code dazu:
If Cell.Offset(0,1) = "B" Or Cell.Offset(0,2) = "B" Or Cell.Offset(0,3) = "B" Then
Und das ganze noch mit -1,0 ; -2,0 ; -3,0 und so weiter also die komplette Range frage ich Zelle für Zelle ab was bei einer Range von x unübersichtlich und unendlich groß wird.
Meine Frage:
Gibt es für diesen Fall eine Art Range(Offset(x,y), Offfset(-x,-y)) ? Habe ein wenig rumprobiert und diverse Foren durchsucht aber leider nur ein Range(Offset) gefunden, wenn man vorher eine Range hat von der man sucht. Ich habe leider nur eine Zelle.
Danke im voraus und freundliche Grüße