Formatierung mittels Makro in Tabelle
02.09.2003 12:08:10
Lars
habe ein Problem mit meinet Tabelle. Möchte die jeweils aktuelle Zelle mit vergrößerter Schrift und anderer Zellhintergrundfarbe ausstatten. Danach soll alle swieder auf den Ursprungszustand zurückgesetzt werden. Das funktioniert auch soweit ganz gut, aber:
1.) Bei vorher vorhendenen Hintergrundfarben werden diese wieder auf den
Ursprungszustand ohne meine Hintergrundfarbe (also ganz ohne
Hintergrundfarbe) zurückgesetzt. Wie kann ich eine Abfrage o.ä. einbauen,
daß eine bereits bestehende Hintergrundfarbe und Schriftfarbe nicht
überschrieben wird ???
2.) Es müßte auf excel 2000 und 2002 lauffähig sein...
wer kann helfen ???
Danke im Voraus, den Code und die Fehlermeldung habe ich nachstehend aufgeführt:
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
Static zelle As Range
Call unprotect
If Not zelle Is Nothing Then
zelle.Font.Size = 10
zelle.Interior.ColorIndex = xlColorIndexNone
End If
Target.Font.Size = 12
Target.Interior.ColorIndex = 6
Set zelle = Target
Call protect
End Sub
Folgende Fehlermeldung, wenn ich mittels Makros einige Spalten ein-bzw. ausblenden laseen will:
"Die Hidden-Eigenschaft des Range-Objektes kann nicht festgelegt werden"
Hier das beanstandete Makro:
Sub unhidecolumn(column As String)
Columns(column).Select
Selection.EntireColumn.Hidden = False
End Sub
Code eingefügt mit Syntaxhighlighter 2.4