Hallo Excel Experten,
gibt es eine Funktion die die ungesperrten Zellen in einem Arbeitsblatt z.B. farblich hervorgebt?
Ich möchte nicht manuell alle ungesperrten Zellen formatieren müssen. Beim Ausdruck sollten dann allerdings diese Zellen nicht „auffallen“.
Bei Lotus 123 wechselte die Schriftart automatisch von schwarz auf blau. Beim umwandeln von Lotus 123 in Excel ist diese nützliche Funktion verloren gegangen.
Vielen Dank für eure Tipps.
Gruß
Hallo Excel Experten,
gibt es eine Funktion die die ungesperrten Zellen in einem
Arbeitsblatt z.B. farblich hervorgebt?
Beim Ausdruck sollten dann allerdings diese Zellen
nicht „auffallen“.
Hallo Kelwin
Ein Stück weit kann ich Dir helfen mit folgendem Makro:
Sub UngesperrteZellen()
Dim rZelle As Range
ActiveSheet.UsedRange.Select
Selection.Interior.ColorIndex = 0
' Achtung: alle eingefärbten Zellen werden farblos
For Each rZelle In Selection
If rZelle.Locked = False Then rZelle.Interior.ColorIndex = 4
Next rZelle
End Sub
Damit werden alle nicht gesperrten Zellen grün markiert.
Ein Nachteil dabei: Zuerst wird die Farbe in allen gefärbten Zellen „neutralisiert“.
Beim Ausdruck sollten dann allerdings diese Zellen
nicht „auffallen“.
Da weiss ich keinen Rat. Du müsstest einen ColorIndex finden, den man gedruckt nicht sieht. Etwas pastellfarbenes? ColorIndex35 vielleicht?
Grüsse Niclaus
gibt es eine Funktion die die ungesperrten Zellen in einem
Arbeitsblatt z.B. farblich hervorgebt?Ich möchte nicht manuell alle ungesperrten Zellen formatieren
müssen. Beim Ausdruck sollten dann allerdings diese Zellen
nicht „auffallen“.
Hallo Kelwin,
leg dir das auf eine Schaltfläche aus Symbolleiste „Formular“
Sub Farbwechsel()
Dim Zelle As Range
Static Farbe As Boolean
Farbe = Not Farbe
With Worksheets("Tabelle1")
If Farbe = False Then
.Cells.Font.ColorIndex = 0
Else
For Each Zelle In .UsedRange
If Zelle.Locked = False Then Zelle.Font.ColorIndex = 5
Next Zelle
End If
End With
End Sub
Gruß
Reinhard
Hallo Kelwin.
Beim Ausdruck sollten dann allerdings diese Zellen nicht „auffallen“.
Du könntest beim Einrichten der Seite den Schwarzweiß-Druck aktivieren.
VG
Carsten
Vielen Dank Reinhard.
Der Makros ist klasse.
Gruß
Heinz