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

Beiträge aus den Excel-Beispielen zum Thema "Bedingte Formatierung"