Das Archiv des Excel-Forums

Kalender von bis markieren

Bild

Betrifft: Kalender von bis markieren
von: Schwarz

Geschrieben am: 10.10.2003 14:39:02

Hallo,
ich habe in den Spalten C bis I die Wochentage(Mo,Di,...)
und in den Zeilen 7 bis 11 die Wochen angeordnet (hier für Januar)
In der Zeile AK7 steht das Startdatum, in AK8 das Enddatum.
Nun möchte ich vom Startdatum bis zum Enddatum die Zellen rot markiert haben.
VBA-Lösung ist ok.

Gruß Martin
Bild


Betrifft: AW: Kalender von bis markieren
von: WernerB.
Geschrieben am: 10.10.2003 15:16:31

Hallo Martin,

was hältst Du hiervon:


Option Explicit

Sub Martin()
Dim c As Range
Dim sD As Byte, eD As Byte, Diff As Byte, z As Byte
Application.ScreenUpdating = False
sD = Day(Range("AK7").Value)
eD = Day(Range("AK8").Value)
If sD > eD Then
MsgBox "Enddatum kleiner als Startdatum !" & vbCr & vbCr _
& "Makro-Abbruch !", vbOKOnly + vbCritical, _
"Dezenter Hinweis für " & Application.UserName & ":"
Exit Sub
End If
Diff = 2 + eD - sD
Range("C7:I11").Interior.ColorIndex = xlNone
For Each c In Range("C7:I11")
If c.Value = sD Then
z = 1
End If
If z > 0 And z < Diff Then
z = z + 1
c.Interior.ColorIndex = 3
End If
Next c
Application.ScreenUpdating = True
End Sub

Viel Erfolg wünscht
WernerB.

P.S.: Das Forum lebt auch von den Rückmeldungen der Fragesteller an die Antworter (siehe Forums-FAQ).


 Bild

Excel-Beispiele zum Thema " Kalender von bis markieren"

Kalenderwoche nach DIN 1355 download Jahreskalender mit Monatsblättern anlegen download
Jahreskalender und bedingte Formatierung download Jahresarbeitszeitkalender download
Tabelle mit der jeweils nächsten Kalenderwoche öffnen download Aus einem Kalender-Steuerelement Datum und Zeit auswählen download
Zellkontextmenü durch Jahreskalender ersetzen download Ermittlung des ersten Tages einer Kalenderwoche nach DIN 1355 download
Anzahl der Einträge zu einer bestimmten Kalenderwoche download Auflistung der Kalenderwochen eines variablen Jahres download
Jahreskalender mit KW nach DIN1355 anlegen download Dynamischer Kalender mit Jahr, Quartal und Monaten download
UserForm mit Kalendersteuerelement immer mit aktuellem Datum download Jahreskalender mit Mitarbeiterliste und Feiertagen anlegen download
Tabellenblätter für Kalenderwochen anlegen und ein/ausblenden download Jahreskalender als Menü anlegen download
Einen Wert in einem zweiten Blatt einer Kalenderwoche zuordnen download Eintrag der aktuellen Kalenderwoche über ShortCut download
Kommentar in Outlook-Kalender eintragen download Kalendersteuerelement an Tabellenblattwerte binden download
Trainingsplan in einen Outlook-Kalender einlesen download Terminplananpassung bei Änderung des Kalenderjahres download
Bereich mit Maximalwert markieren download Zeilen markieren download
Zellen vergleichen und markieren download Markieren in Abhängigkeit vom Quartal download
Listbox-Eintrag durch Mausbewegung markieren download Drei Zellen rechts der aktiven Zelle markieren download
Zelle mit Maximalwert markieren download Alle nichtleeren Zeilen markieren download
Start- und Enddatum abfragen und markieren download Minimalwerte je Zeile markieren download
Nach Verlassen von Spalte B Spalte C markieren download Mit der aktiven Zelle jeweil 9 weitere in der Zeile markieren download
Monatsabhängige Tagesliste anlegen und Wochenenden markieren download Wahlweise Elemente in UserForm-Text- oder -ListBox markieren download
Begriffe in ausgeblendeter Spalte suchen und Fundzeile markieren download Zelle mit kleinsten Wert markieren download
Bestimmte Zeichen in einer UserForm-TextBox markieren download Über die bedingte Formatierung den Minimalwert markieren download
Kopfzelle mit aktivem Autofilter markieren download Doppelt vorkommende Werte markieren download
Doppelte Datensätze farblich markieren und auflisten download Wochenenden und Feiertage in Jahresliste markieren download
Datumsreihen nach Vorgabe markieren download Zeichen in UserForm-TextBox durch ScrollBar-Schieber markieren download
Datumsbereich in Abhängigkeit von 3 Kriterien markieren download Kürzel über Kontextmenü auswählen und markieren download
Tabellen vergleichen und bei Nichtübereinstimmung markieren download Suchbegriff abfragen und Fundzeile markieren download
Maximalwerte im selektierten Bereich markieren download Min- und Max-Werte automatisch markieren download
In Folgeblättern nicht vorkommende Werte markieren download Überschrittene Zahlungstermine markieren download
Von einer Zeilenauswahl jede zweite markieren download Zellen in Abhängigkeit der aktuellen Uhrzeit markieren download
Datumsbereich gem. Start- und Enddatum markieren download Letzte Zeile mit einem bestimmten Anfangsbuchstaben markieren download
Zellen in Abhängigkeit des Summen-Teilergebnisses markieren download Cursor-Position rechts und links markieren download
Alle ungeraden Zahlen markieren download Label und Zellen farbig markieren download
Doppelt vorkommende Werte in Spalte A markieren download Artikel mit den in einem Farbindex hinterlegten Farben markieren download
Gleiche Einträge markieren download Teilstrings vergleichen und markieren download
Werte markieren, die größer als Parallelwerte sind download Markieren von Auswahlbereichen download
Markieren von festgelegten Bereichen download Zeile markieren, in der sich der Cursor befindet download
Datensätze wechselseitig bei Nichtauffinden markieren download Werte, die auch in anderen Spalten vorkommen, markieren download