Thema: Markieren in Abhängigkeit vom Quartal

Home

Gruppe

DatumZeit

Problem

Wie kann ich bei Eingabe eines Datums in Spalte A die Spalten A:F der entsprechenden Zeile unterschiedlich nch Quartal markieren lassen.

Lösung

Geben Sie den Ereigniscode in das Klassenmodul des Arbeitsblattes ein.

ClassModule: Tabelle2

Private Sub Worksheet_Change(ByVal Target As Range)
   If Target.Column <> 1 Then Exit Sub
   If Target.Cells.Count > 1 Then Exit Sub
   If IsEmpty(Target) Then
      Target.Interior.ColorIndex = xlColorIndexNone
      Exit Sub
   Else
      Select Case Format(Target, "q")
         Case 1: Target.Interior.ColorIndex = 5
         Case 2: Target.Interior.ColorIndex = 6
         Case 3: Target.Interior.ColorIndex = 7
         Case 4: Target.Interior.ColorIndex = 8
      End Select
   End If
End Sub

Beiträge aus dem Excel-Forum zu den Themen DatumZeit und Format

Bedingte Formatierung vor Copy/Paste schützen	Bed. Formatierung, wenn alle Beding. erfüllt.
Telefonnummer automatisch per VBA formatieren	Komplettes Excel Sheet kopieren mit Formaten
Bedingte Formatierung per VBA mit Schleife	Kartendiagramm per VBA erstellen und formatieren
bedingte Formatierung	Zellfarbe per Cond Formatting nach Zellfarbe änder
UserForm im Querformat drucken	Bedingte Formatierung
Teilstringabfrage bei bedingter Formatierung	Bedingte Formatierung mit UND Verknüpfung
Textformat (VBA)	Bedingte Formatierung Frage
Array in Tabelle kopieren, Verlust von Format	Übernahme in Word Format wird nicht übernommen
VBA, 4 Informationen in 4 Zellen schreiben	bedingte Formatierung mit mehreren Bedingungen
Datum aus Oracle-Abfrage als Datum formatieren	Bedingte Formattierung
Bedingte Formatierung - kleiner als Fehler	Zahlenformat Handynr.
Diagramme und ihr Format	bedingte formatierung per VBA
Bedingte Formatierung bezogen auf 2. Zelle	Formatgleichheit von Zeichenfolgen für SVERWEIS
bedingte Formatierung	Bedingte Formatierung
Tabellen - Zellen - Formatieren -	Format übertragen
Datumsformatierung	Formatierung anderer Diagramme
Zellenformatierung speichern	Diagrammformatierung übertragen
Zahlenformat global überprüfen	wenn z.B. Zahl 12 dann grün (Bedingte Formatierung
wenn z.B. Zahl 12 dann grün (Bedingte Formatierung	Zahlenformatierung in einem Textfeld
Zahlenformat	bedingte Formatierung für zellenbereich
Format Datum / Uhrzeit	Eilt - Formatierung "in 1000"
Bedingte Formatierung mit 2 Bedingungen	Combobox, CheckBox, TextBox Formatierung
Formatierung Dezimalzahlen bei Combobox-Eingaben	Dateiformat vorgeben
Datums-Format bei Verketten "falsch"	Text mit Format in Textbox übertragen
Format mit VBA kopieren