Eine Shape relativ zur Spalte/Zeile positionieren
24.01.2019 09:26:54
Nadja
ich habe einen Terminplan in Excel erstellt und jeweils, wenn ein Meilenstein erreicht werden soll wird diese Zelle blau gefärbt.
Ich möchte, dass für jede blau markierte Zeile ein Rechteck entsteht, dass in der gleichen Spalte ein paar Zeilen weiter oben positioniert wird. Für Letzteres weiß ich, dass man das Offset benutzt. Aber wie wird die gleiche Spalte bestimmt?
Hier ist der Code, den ich soweit habe:
Sub Kalender()
' Kalender Makro
Dim zelle As Range
Dim width As Long
Dim height As Long
Dim rechteck As Shape
height = 5
width = 10
For Each zelle In Range("8:39")
Select Case zelle.Interior.ColorIndex
Case 42 = ActiveSheet.Shapes.AddShape(msoShapeRectangle, 100, 250, width, height). _
Select
End Select
Next zelle
End Sub
Vielen Dank schon mal