Zähler einbauen
03.09.2014 14:09:07
Björn
ich habe eine Tabelle, bei der, wenn man eine Zelle per DropDown färbt, ein zugehöriges Blatt und eine zugehörige Form ebenfalls gefärbt werden.
Der Code dazu sieht wie folgt aus:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim lngFarbe As Long
Select Case Target.Address(False, False)
Case "C59"
lngFarbe = FuellFarbe(Target.Value)
With ActiveSheet.Shapes.Range(Array("Rectangle 7")).Fill
.Visible = msoTrue
.ForeColor.RGB = lngFarbe
.Transparency = 0
.Solid
End With
Worksheets("P1").Tab.Color = lngFarbe
Case "C60"
lngFarbe = FuellFarbe(Target.Value)
With ActiveSheet.Shapes.Range(Array("Rectangle 8")).Fill
.Visible = msoTrue
.ForeColor.RGB = lngFarbe
.Transparency = 0
.Solid
End With
Worksheets("P2").Tab.Color = lngFarbe
...
jetzt übertrage ich das auf einige andere Tabellen. Hier habe ich teilweise bis zu 100 Zellen für "Case". Leider wurden die Tabellen nicht so angelegt, dass diese immer bei beispielsweise A1 beginnen und bei A99 enden. Kann man einen Zähler einbauen, wo man nur den Bereich ändert/einfügt (Bsp. Range A1 bis A99) und in den einezelnen "Case-Blöcken" steht dann bei Case: Case "zaehler" statt Case "60" usw. So spart man sich zumindest diese Eingabe und kann sich auf die Zuweisung der Rechtecke und Blätter konzentrieren.
Grüße,
Björn