Herbers Excel-Forum - das Archiv

Bedingte Formatierung

Bild

Betrifft: Bedingte Formatierung
von: Erich M.

Geschrieben am: 17.02.2005 06:56:35
Hallo EXCEL-Freunde,
ich habe die bedingte Formatierung mit allen drei verschiedenen Möglichkeiten
bereits im Einsatz.
Jetzt benötige ich eine vierte per VBA; dabei geht es darum, dass ich in der Spalte A
die Kalendertage 2005 aufsteigend per Formel hinterlegt habe - immer nur
die Tage Montag bis Samstag mit folgender Formel (der Sonntag wird immer ausgelassen):
Keno
 A
531.12.04
601.01.05
703.01.05
Formeln der Tabelle
A6 : =WENN(WOCHENTAG(A5+1)=1;A5+2;A5+1)
A7 : =WENN(WOCHENTAG(A6+1)=1;A6+2;A6+1)
 
Diagramm - Grafik - Excel Tabellen einfach im Web darstellen    Excel Jeanie HTML  3.0    Download  

Nun möchte ich bei jeder Zeile die in Spalte A den Samstag stehen hat,
die Zeile von A bis K mit einer gestrichelten Linie am unteren Rand darstellen.
Dies soll als optische Trennung für das Ende der Woche gelten.
Besten Dank für eine Hilfe!
mfg
Erich
http://www.toolex.de
Bild

Betrifft: AW: Bedingte Formatierung
von: =Peter=

Geschrieben am: 17.02.2005 07:00:36
Hallo Erich,
VBA ist nicht mein Ding. Deswegen von mir ein anderer Tipp:
Du solltest dir mal das Addin CFPlus ansehen. Es bildet die Excel-Funktionalität der bedingten Formatierung nach. Es ist darauf ausgelegt mehr als 3 Bedingungen zur Verfügung zu stellen sowie alle Formatmöglichkeiten von Excel zu unterstützen.
www.xldynamic.com/source/xld.CFPlus.Download.html
HTH
Gruss
Peter
Bild

Betrifft: AW: Bedingte Formatierung
von: Erich M.
Geschrieben am: 17.02.2005 07:12:47
Hallo Peter,
danke für den Tipp; schaut interessant aus.
Vorläufig bleibe ich noch auf der Suche nach einer VBA-Lösung.
mfg
Erich
http://www.toolex.de
Bild

Betrifft: AW: Bedingte Formatierung
von: Kurt

Geschrieben am: 17.02.2005 07:55:10
hi,
eventuell so:
Sub test()
For zaehler = 6 To Cells(65536, 1).End(xlUp).Row
If WeekDay(Cells(zaehler, 1), vbSaturday) = 1 Then
With Range(Cells(zaehler, 1), Cells(zaehler, 11)).Borders(xlEdgeBottom)
.LineStyle = xlDot
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
End If
Next
End Sub

...und Tschüss Kurt
Bild

Betrifft: AW: Bedingte Formatierung
von: Erich M.
Geschrieben am: 18.02.2005 06:44:45
Hallo Kurt,
super - das wars. Besten Dank!!
mfg
Erich
http://www.toolex.de
 Bild
Excel-Beispiele zum Thema "Bedingte Formatierung"
Bedingter Mittelwert Jahreskalender und bedingte Formatierung
Bedingte Übergabe des Focus und Setzen der Schreibmarke im Dialog Bedingte Formatierung auslesen
Über die bedingte Formatierung den Minimalwert markieren Über bedingte Formatierung Hintergrundfarbe bei Zelleingabe ändern
Bedingte Formatierung in Abhängigkeit eines Zellkommentars Markierung von Formeln über bedingte Formatierung
Zeitabhängige Zellmarkierungen über bedingte Formatierung setzen Tabellenvergleich über die bedingte Formatierung