Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
240to244
240to244
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Heute -> BisGestern

Forumthread: Heute -> BisGestern

Heute -> BisGestern
06.04.2003 14:12:48
Franz W.
Hallo Forum,

aus meinem Makro "Heute" soll das Makro "BisGestern" werden:

Damit wird in einem Kalender der aktuelle Tag markiert.

Nun hätt ich's gerne so, dass nicht der heutige Tag markiert wird, sondern der ganze Zeitraum ab dem 1. Januar bis zum Tag vor dem aktuellen. Könnt Ihr mir bitte helfen. Ich kriegs allein nicht hin.

Vielen Dank im Voraus

Gruß
Franz


Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Heute -> BisGestern
06.04.2003 14:19:01
Detlef

Hallo,
Probiers mal so, hab´s nicht probiert müsste aber gehen.
Sub Heute()
ActiveSheet.Unprotect
For t = 2 To 57 Step 5
For m = 3 To 33
If (Cells(t, m)) < Date Then
Cells(t, m).Interior.ColorIndex = 15
Cells(t + 1, m).Interior.ColorIndex = 15
Cells(t + 2, m).Interior.ColorIndex = 15
End If
Next m
Next t
ActiveSheet.Protect
End Sub
Gruß Detlef

Anzeige
Re: Heute -> BisGestern
06.04.2003 14:25:53
Franz W.

Hallo Detlef,

Herzlichen Dank, klappt bestens! Hab viel zu kompliziert gedacht! Hab so Allerlei probiert, mit Konstruktionen wie "vom 1.1. bis Date" (sinngemäß). Aber auf das Einfachste bin ich nicht gekommen. Nochmal vielen Dank (dass Du auf diese Frage überhaupt geantwortet hast :-))) ).

Gruß
Franz

Anzeige
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige