Bedingte Formatierung auf Gerade/ungerade Zeilennummern anwenden
Thomas
Ich möchte folgendes Bewerkstelligen:
Eine Tabelle, in der die Zeilen abwechslungsweise Weiss/Grau
hinterlegt sind. nun kann ich das Vn Hand relativ einfach machen. wenn
ich aber nun eine Zeile einfüge verschiebt sich das ganze, und ich
muss wieder viel arbeiten....
Weiss jemand eine einfache lösung?
Ich habe an die bedingte Formatirung gedacht, so in und versucht mit
der funktion ZELLE die Reihennummer festzustelen, mit einer Mod
funktion den rest einer Division durch 2 (gerade oder ungerade Nummer)
festzulegen. aber irgendwie krieg ich das einfach nicht hinn.
Wer hat sowas schon erstellt und kann mich an seinem wissen teilhaben
lassen...
antworten bitte per Email ro...@gmx.net
Thomas
Thomas Jansen
dazu mußt du die bedingte Formatierung mit "Formel ist" und "=REST(ZEILE();2)"
anwenden.
Grüße aus Bayern, Thomas
Thomas schrieb in Nachricht <3722671...@news.sunrise.ch>...
Rainer Wilfling
Ich hoffe, daß ich dich richtig verstanden habe. Hier meine
Lösungsvorschläge:
1. "Händisch" - einfachste Methode
Aktiviere eine Zelle in der gewünschten Tabelle, dann FORMAT \ AUTOFORMAT
\ Liste 1
Das kannst Du auch als Makro ganz einfach aufzeichnen und einer
Schaltfläche zuordnen und sieht dann etwa so aus:
(Tabelle beginnt in A1)
Sub Autoformat()
Range("A1").Select
Selection.Autoformat Format:=xlRangeAutoFormatList1, Number:=True,
Font:= _
True, Alignment:=True, Border:=True, Pattern:=True, Width:=True
Range("D1").Select
End Sub
2. VBA - auf die Schnelle und somit nicht so ganz elegant:
Sub Wechselnde_Formatierung()
Dim Zeilen%, Spalten%, i%
Dim Zeilennummer%
' geht sicher anders eleganter
Range("A1").Select
Selection.CurrentRegion.Select
Zeilen = Selection.Rows.Count
Spalten = Selection.Columns.Count
Range("A1").Select
' i von 2 weg, da Überschrift ja bereits anders formatiert ist
For i = 2 To Zeilen Step 2
Range(Cells(i, 1), Cells(i, Spalten)).Select
Selection.Interior.ColorIndex = 48
Next i
End Sub
Lieben Gruß
Rainer
Thomas schrieb: