ich möchte immer in der aktiven Tabelle in einer Spalte 5 Zellen nacheinander markieren.(Block)Die Startzelle ist die Zeilennummer 18, die Spalte in der die Markierung erfolgen soll ist immer "Q", also Spalte 17.
Nach 24 Zeilen sollen in der gleichen Spalte wieder die nachfolgenden 5 Zellen markiert werden.
Die Markierung der Zellen benötige ich für eine bedingte Formatierung. Weil die Tabellen 2000 - 3000 Zeilen hat und ich diese Markierung öfter brauche, möchte ich dies mit einem Makro ausführen.
Mein Lösungsansatz funktioniert ganz gut, aber ich müsste die Bereiche manuell festlegen und _
die 24 Zeilen dazuzählen.
Sub Bereich_markieren()
Dim z As Integer
Dim Bereich1 As Range
Dim Bereich2 As Range
Dim Gesamtbereich As Range
Set Bereich1 = Cells(18, 17).Resize(5, 1)
Set Bereich2 = Cells(42, 17).Resize(5, 1)
Set Bereich3 = Cells(66, 17).Resize(5, 1)
Set Bereich4 = Cells(90, 17).Resize(5, 1)
Set Bereich5 = Cells(114, 17).Resize(5, 1)
Set Bereich6 = Cells(138, 17).Resize(5, 1)
Set Gesamtbereich = Union(Bereich1, Bereich2, Bereich3, Bereich4, Bereich5,
Bereich6)
Gesamtbereich.Select
End Sub
Ich dachte an eine Lösung mit einer Schleife Step 24.
Das bekomme ich leider nicht hin. Vielleicht kann mir jemand helfen.
Vielen Dank