Formatierung, Farbwechsel nach Dateneingabe

Hallo liebe Excel(ianer)
mich quält seit Tagen 1 Problem, dessen Lösung ich auch über stundenlange Suche
im Bereich VBA und eigener Bastellarbeit nicht zusammenbekommen habe.
Sicher ist es einfach und ich habe ein Brett vor dem/im Kopf.
Das Problem:
In A1 steht DATUM, B1 steht GRUND und in C1 steht NUMMER als Überschrift mit keiner Füllfarbe =weiß.
Sobald mindestens in A2 (gerade) ein Eintrag erfolgt und mit Enter abgeschlossen wird, sollen die Zellen A2,B2 und C2 grau hinterlegt sein und schwarz eingerahmt sein.
Sobald mindestens in A3 (also ungerade)eine Eintragung mit Enter erfolgt, sollen die Zellen A3,B3 und C3 nicht mit einer Farbe gefüllt werden, aber ebenfalls schwarz eingerahmt werden.
Dieser Wechsel soll dann 500 Mal (ich denke A2:C201)erfolgen, könnte aber auch nach unten größer werden.
ICH SUCHE DRINGEND NACH EINER VBA-VARIANTE, DA ICH DIE BEDINGTE FORMATIERUNG FÜR ANDERE FEINHEITEN BENÖTIGE!
Was ich meine, habe ich mal nur grafisch dargestellt angehängt
Vielen Dank für einen Rat oder Hilfe
MFG
teKIELa

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub ZeilenEntFärben() Application.ScreenUpdating = False Dim Zeile, ZeilenNr As Integer For Each Zeile In ActiveSheet.UsedRange.Rows ZeilenNr = ZeilenNr + 1 Zeile.Interior.ColorIndex = xlNone Zeile.Borders.ColorIndex = xlNone Next Application.ScreenUpdating = True End Sub

Option Explicit Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Columns(1)) Is Nothing And Target.Row > 1 And Target.Count = 1 Then Target.Interior.ColorIndex = IIf(Target.Row Mod 2 = 0 And Target "", 6, xlNone) Target.Offset(, 1).Interior.ColorIndex = Target.Interior.ColorIndex Target.Offset(, 2).Interior.ColorIndex = Target.Interior.ColorIndex End If End Sub

Option Explicit Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Columns(1)) Is Nothing And Target.Row > 1 And Target.Count = 1 Then Target.Interior.ColorIndex = IIf(Target.Row Mod 2 = 0 And Target "", 6, xlNone) Target.Offset(, 1).Interior.ColorIndex = Target.Interior.ColorIndex Target.Offset(, 2).Interior.ColorIndex = Target.Interior.ColorIndex If Target "" Then With Range(Target.Address, Target.Offset(, 2).Address) With .Borders(xlEdgeTop) .LineStyle = xlContinuous .ColorIndex = 0 .TintAndShade = 0 .Weight = xlThin End With With .Borders(xlEdgeBottom) .LineStyle = xlContinuous .ColorIndex = 0 .TintAndShade = 0 .Weight = xlThin End With With .Borders(xlEdgeLeft) .LineStyle = xlContinuous .ColorIndex = 0 .TintAndShade = 0 .Weight = xlThin End With With .Borders(xlEdgeRight) .LineStyle = xlContinuous .ColorIndex = 0 .TintAndShade = 0 .Weight = xlThin End With End With Else With Range(Target.Address, Target.Offset(, 2).Address) .Borders(xlEdgeLeft).LineStyle = xlNone .Borders(xlEdgeTop).LineStyle = xlNone .Borders(xlEdgeBottom).LineStyle = xlNone .Borders(xlEdgeRight).LineStyle = xlNone End With End If End If End Sub

…obwohl frau ja bereits verzichtet hatte, Matti! ;-)
Ja, das mit den Borders ist ganz schön vertrackt und die Wenigsten wissen da wirklich Bescheid. Allerdings ist das hier eher trivialerer Natur, denn das steht auch in der Hilfe. Man kann alle Borders einzeln ansprechen oder einfach alle zusammen. Letzteres geht natürlich nur, wenn sie alle gleich aussehen sollen.
Teste mal mit verschiedenen Farben u/o Liniierungen. Das geht nur einzeln! Und teste mal die beiden Zyklusvorschläge von mir! Du könntest dich ggf wundern. Das Borders-Aufzählungsobjekt hat nämlich genau 6 Members, also Indizes 1-6 in der Rhfolge LRTBDU, während alle Werte >6 (7-12 ⇒ LTBRVH) Kombinationen sind, die mitunter die linke bzw obere Nachbarzelle mit beeinflussen. Es kann also sein, dass 4 keinen Wert hat, obwohl sowohl 9 als auch 3 und 8 der Zelle darunter einen Wert haben. Das folgt genau der Art, wie die Zellrahmen gesetzt wurden, worauf übrigens Xl auch bei Tabellenaufteilung auf mehrere Druckseiten reagiert. Deshalb fehlt da mitunter ein vermeintl doch gesetzter Rahmen. Ach so, 5 und 6 sind außerdem verkoppelt (nicht mit 11/12 identisch!), d.h., wdn beide verwendet, haben sie stets die gleichen Eigenschaften.
Außerdem existiert noch eine gewisse Verkopplung von Weight und LineStyle, die ähnlich auch in HTML existiert. Dabei ist Letzterer am wichtigsten, denn Ersterer wird oft automatisch gesetzt. Die Farbe ist dann idR nur wichtig, wenn sie nicht xlAutomatic (-4105) ist, kann aber auch, falls gesetzt, bei Fehlen anderer Angaben einen Rahmen mit sonst Standards bewirken. Solche Mechanismen gibt's auch in HTML, sind da aber etwas anders organisiert, so dass es nicht leicht ist, so etwas in einen HTML-Generator einzubauen – hat ja wohl auch keiner der Autoren der 3 in Foren verwendeten Produkte gemacht (und meiner ist noch nicht ganz fertig).
Für Weight + LineStyle habe ich mal 'ne Enum erfunden, die alle relevanten Kombinationen der beiden enthält. Komme da aber zZ nicht ran (← HD-Crash), muss mich leider mit Hardware befassen.
Übrigens, 1-4 fktionieren auch beim FormatConditions-Objekt in gleicher Rhfolge, 7-10 aber nicht! Die wdn durch die Konstanten ohne Edge ersetzt.
Gruß Luc :-?

Beliebteste Forumthreads (12 Monate)

	A	B	C
1	Datum	Grund	Nummer
2	03.10.2012
3	03.10.2012
4	03.10.2012

Formatierung, Farbwechsel nach Dateneingabe

19
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

302 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Formatierung, Farbwechsel nach Dateneingabe

19 Beiträge zum Forumthread Beiträge zu diesem Forumthread

302 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

19
Beiträge zum Forumthread

Beiträge zu diesem Forumthread