For Each mit Union
22.07.2008 15:26:00
Martin
beiße mir die Zähne aus.
Ich habe zwei Zellbereiche folgendermaßen zusammengefasst:
Set BEREICH1 = Range("K10:O12")
Set BEREICH2 = Range("G14:O16")
Set BIGRANGE = Union(BEREICH1, BEREICH2)
Nun möchte ich das in mehreren Sheets diese Bereich überprüft werden, in etwa so:
Dim zelle As Range
Dim wks As Worksheet
For Each wks In ActiveWorkbook.Worksheets
If wks.Range(AENDERUNG).Value = AENDERUNG_TEXT Then
For Each zelle In BIGRANGE
' dann der Code zum ausführen
Next zelle
End If
Next wks
AENDERUNG ist eine Range in dem der Text AENDERUNG_TEXT hinterlegt wird.
Das Problem ist das der Bezug zum momentanen wks fehlt und ich nicht weiß wie ich den
elegant hin bekomme.
Für Anregungen und Tipps wäre ich sehr dankbar.
mfg Martin