VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Markieren in Abhängigkeit vom Quartal

Gruppe

DatumZeit

Bereich

Format

Thema

Markieren in Abhängigkeit vom Quartal

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