Zeile der aktuellen Kalenderwoche markieren

[Patrick Seidl]

Hallo NG!

Ähnlich einer anderen Frage, die ich heute stellte, möchte ich nun die Zeile
mit der aktuellen Kalenderwoche farbig markieren.
Ich habe in meiner Tabelle eine Spalte KW, nach unten fortlaufend 01 - 52.
Daran sollte sich die Markierung festlegen.

Wer hat eine (leicht) verständliche Lösung mittels VBA für mich parat?

Herzlichen Dank,
P@tz

[Claus Paltra]

nochmal Moin,

Sub kwmalen()
kwakt = Format(Date, "ww")
Rows(kwakt).Select
Selection.Interior.ColorIndex = 6
End Sub

Dabei gehe ich von der ersten Zeile aus, d.h. wenn du das Makro startest wird
heute die zweite Zeile gelbgemalt. Hast Du ein paar Leerzeleien, so musst du zu
kwakt die entspr. anz. hinzuzählen, z.B. Rows(kwakt+6).select wählt heute in KW2
die, na??, 8.Zeile.
Wars leicht genung?? Viel Spass beim Farbnummernausprobieren.

Gruss Claus

-----Originalnachricht-----
Hallo NG!

Herzlichen Dank,
P@tz

.

[Lutz Gentkow]

Hallo Patrick und Claus,

> kwakt = Format(Date, "ww")

die Format-Funktion funktioniert in Word wie in Excel in einigen Jahren
nicht korrekt, außerdem mußt Du Deine Tabelle noch um die 53. KW
erweitern. Zur korrekten Ermittlung der KW blättere mal einige Beiträge
zurück, da hier schon oft Gegenstand der Diskussion.
Marco Burmeister hat auf seiner Homepage unter
http://home.t-online.de/home/burmi/index_frameaufbau.html?helferlein_kalenderwoche
ein interaktives JavaScript zur Verfügung gestellt, das die KW ebenfalls
korrekt ermittelt.

Viele Grüße vom Niederrhein

Lutz

[Patrick Seidl]

Tja, leider....
Irgendwas funzt da nicht so :-(
Wo schreibst du das rein??

Danke, P@tz

Claus Paltra <c...@paltra.de> schrieb in im Newsbeitrag:
4f0b01c07a4e$9d47a590$46862ecf@cpmsftngxa06...

[Claus Paltra]

Hi Patrick (und Lutz!)
Ich dachte so einfach wie möglich und wer weis was in ein paar Jahren ist!
Reinschreiben in ein VB-Modul! Mit ALT+F11 starten, dann einfügen Modul, und dann
einfach das Makro reinkopieren(direkt aus der Mail). Dann Editor beenden un unter
Extras Makro Makros erscheint es, starten.
Oder hast Du mich jetzt veräppelt mit dem: Wo schreibst du das rein?

Gruss Claus

-----Originalnachricht-----

[Peter Dorigo]

Hallo Patrick

das geht auch ohne VBA:
Angenommen die KW's stehen in A1 bis A52
- markiere Zeilen 1 bis 52
- Format - bedingte Formatierung - Formel ist:

=$A16=KÜRZEN((HEUTE()-WOCHENTAG(HEUTE();2)+11-
("1/"&JAHR(HEUTE()+4-WOCHENTAG(HEUTE();2))))/7)

- gewünschte Hintergrundfarbe wählen
- OK

mfg Peter

Patrick Seidl <se...@sembella.at> schrieb in im Newsbeitrag:
93f5vi$3n4$1...@news.netway.at...

[Peter Dorigo]

Korrektur:

> =$A16=KÜRZEN((HEUTE()-WOCHENTAG(HEUTE();2)+11-.......
^^^^^^

sollte

=$A1=KÜRZEN((HEUTE()-WOCHENTAG(HEUTE();2)+11-
("1/"&JAHR(HEUTE()+4-WOCHENTAG(HEUTE();2))))/7)

heissen!

[Patrick Seidl]

Hehehe! Nein, Hab' dichnicht veräppelt! Ich hab' auch den VB- Editor
gestartet, dann in meinem Fall die Tabelle 21 Doppelgeklickt und da
reinkopiert. Anschliessend auf "Ansicht Microsoft Excel" geklickt, uuund:
nix!
Ich probiers gleich mal so!

Danke!

Claus Paltra <c...@paltra.de> schrieb in im Newsbeitrag:

8d5d01c07a5a$f258e010$1e83300a@cpmsftngxa03...

[Patrick Seidl]

Naja, das Prob ist vielmehr, dass nicht automatisch die aktuelle KW markiert
wird, sondern erst wenn man das Makro ausführt. Auch ist es für mich eher
von Nachteil, wenn die Vorwoche weiterhin markiert wird. Stelle ich mich so
blöd an?? Vielleicht sollte ich mich echt mal damit beschäftigen! Aber woher
die Zeit nehmen?? :-)

P@tz

Claus Paltra <c...@paltra.de> schrieb in im Newsbeitrag:

4f0b01c07a4e$9d47a590$46862ecf@cpmsftngxa06...

[Patrick Seidl]

Ja, gefällt mir eigentlich am besten, diese Lösung!
Danke an _alle_!

P@tz

Peter Dorigo <pe...@swissonline.ch> schrieb in im Newsbeitrag:
OWs$vgmeAHA.1344@tkmsftngp02...