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

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


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

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)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige