Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.10.2025 00:15:51
Passwort im Herbersforum ändern
15.10.2025 16:22:17
Datum ist nicht Datum :(
15.10.2025 15:02:20
Blockpfeile mit Makro gehen nicht mehr nach freigabe
15.10.2025 13:51:13
VBA - Fortschrittsbalken unabhängig von Zellen
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1644to1648
1644to1648
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Makro Datum suchen und Teile markieren

Forumthread: Makro Datum suchen und Teile markieren

Makro Datum suchen und Teile markieren
19.09.2018 11:59:57
PaLu
Hallo,
ich benötige nochmal eure Hilfe.
Ich habe eine Spalte (Spalte C) in welcher Datumsangaben im Format tt.mm.jjjj stehen.
Ich benötige ein Makro, welches diese Spalte durchsucht und alle Zeilen oder notfalls auch nur Zellen markiert, welche n i c h t mit dem aktuellen Monat übereinstimmen.
Meine zweite Frage wäre, wie ein entsprechendes Makro aussehen würde (bzw. was ich abändern müsste) wenn der aktuelle Monat markiert werden muss.
Ich bin für jede Hilfe dankbar.
Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
warum nicht bedingte Formatierung? owT
19.09.2018 12:43:07
Rudi
AW: Makro Datum suchen und Teile markieren
19.09.2018 12:49:34
Torsten
Hallo PaLu,
hier mal 2 codes.
1. Hier werden die Zellen gelb gefaerbt, wo der Monat nicht mit dem aktuellen uebereinstimmt:
Sub datum_out()
Dim Zelle As Range
lstRow = ActiveSheet.Cells(Rows.Count, 3).End(xlUp).Row
For Each Zelle In ActiveSheet.Range("C1:" & "C" & lstRow)
If Month(Zelle)  Month(Date) Then
Cells(Zelle.Row, 3).Interior.Color = RGB(255, 255, 0)
End If
Next Zelle
End Sub
2. Hier werden die Zellen lila gefaerbt, wenn der Monat mit dem aktuellen uebereinstimmt:
Sub datum_in()
Dim Zelle As Range
lstRow = ActiveSheet.Cells(Rows.Count, 3).End(xlUp).Row
For Each Zelle In ActiveSheet.Range("C1:" & "C" & lstRow)
If Month(Zelle) = Month(Date) Then
Cells(Zelle.Row, 3).Interior.Color = RGB(255, 0, 255)
End If
Next Zelle
End Sub
Gruss Torsten
Anzeige
AW: Makro Datum suchen und Teile markieren
19.09.2018 13:24:37
PaLu
Hallo Torsten,
klappt einwandfrei, vielen vielen Dank!!
dann erledigt. owT
19.09.2018 13:28:20
Closer
AW: Makro Datum suchen und Teile markieren
19.09.2018 13:31:08
Torsten
Gerne und danke fuer die Rueckmeldung. Die Farben kannste ja noch aendern. musst dir halt mal die RGB codes raussuchen.
Anzeige
;
Anzeige
Anzeige

Infobox / Tutorial

Makros zum Markieren von Datumsangaben in Excel

Schritt-für-Schritt-Anleitung

Um ein Makro zu erstellen, das Datumsangaben in Excel durchsucht und basierend auf dem aktuellen Monat Zellen markiert, folge diesen Schritten:

  1. Öffne Excel und drücke ALT + F11, um den Visual Basic for Applications (VBA) Editor zu öffnen.

  2. Füge ein neues Modul hinzu: Klicke im Menü auf Einfügen > Modul.

  3. Kopiere und füge den folgenden Code ein, um Zellen zu markieren, die nicht mit dem aktuellen Monat übereinstimmen:

    Sub datum_out()
   Dim Zelle As Range
   lstRow = ActiveSheet.Cells(Rows.Count, 3).End(xlUp).Row
   For Each Zelle In ActiveSheet.Range("C1:" & "C" & lstRow)
       If Month(Zelle) <> Month(Date) Then
           Cells(Zelle.Row, 3).Interior.Color = RGB(255, 255, 0) ' Gelb
       End If
   Next Zelle
End Sub

  4. Um die Zellen zu markieren, die mit dem aktuellen Monat übereinstimmen, verwende diesen Code:

    Sub datum_in()
   Dim Zelle As Range
   lstRow = ActiveSheet.Cells(Rows.Count, 3).End(xlUp).Row
   For Each Zelle In ActiveSheet.Range("C1:" & "C" & lstRow)
       If Month(Zelle) = Month(Date) Then
           Cells(Zelle.Row, 3).Interior.Color = RGB(255, 0, 255) ' Lila
       End If
   Next Zelle
End Sub

  5. Schließe den VBA-Editor und kehre zu Excel zurück.

  6. Führe das Makro aus: Gehe zu Entwicklertools > Makros, wähle das entsprechende Makro aus und klicke auf Ausführen.

Häufige Fehler und Lösungen

  • Fehler: "Typen sind nicht kompatibel"

    • Lösung: Stelle sicher, dass die Zellen in Spalte C tatsächlich Datumswerte und nicht Text sind. Du kannst dies überprüfen, indem du die Zellen formatierst.

  • Makro funktioniert nicht

    • Lösung: Überprüfe, ob du das Makro im richtigen Arbeitsblatt ausgeführt hast. Der Code sucht in Spalte C des aktiven Arbeitsblatts.

Alternative Methoden

Wenn du keine Makros verwenden möchtest, kannst du auch die bedingte Formatierung nutzen, um Datumsangaben hervorzuheben:

  1. Markiere die Zellen in Spalte C.

  2. Gehe zu Start > Bedingte Formatierung > Neue Regel.

  3. Wähle Formel zur Ermittlung der zu formatierenden Zellen verwenden.

  4. Gib die Formel ein, um Zellen zu markieren, die nicht mit dem aktuellen Monat übereinstimmen:

    =MONAT(C1)<>MONAT(HOLIDAY())

  5. Wähle die gewünschte Formatierung aus und klicke auf OK.

Praktische Beispiele

  • Beispiel 1: Du hast Datumsangaben in Spalte C, und du möchtest alle Zellen markieren, die im Januar liegen. Ändere den Code entsprechend:

    If Month(Zelle) = 1 Then
   Cells(Zelle.Row, 3).Interior.Color = RGB(0, 255, 0) ' Grün
End If

  • Beispiel 2: Wenn du eine andere Spalte durchsuchen möchtest, ändere einfach den Bereich im Code:

    For Each Zelle In ActiveSheet.Range("D1:" & "D" & lstRow) ' für Spalte D

Tipps für Profis

  • Nutze RGB-Farbcodes, um die Farben nach deinen Wünschen anzupassen. Du kannst die RGB-Werte für verschiedene Farben online finden.
  • Überlege, das Makro in ein Button-Steuerelement einzubinden, um es leichter zugänglich zu machen.
  • Füge Fehlerbehandlungsroutinen hinzu, um sicherzustellen, dass dein Makro auch bei unerwarteten Eingaben robust bleibt.

FAQ: Häufige Fragen

1. Kann ich das Makro für verschiedene Spalten anpassen?
Ja, du kannst den Bereich im Code ändern, um andere Spalten zu durchsuchen. Ändere einfach "C1:" & "C" & lstRow in den gewünschten Spaltenbereich.

2. Wie kann ich die Farben im Makro ändern?
Die Farben werden durch die RGB()-Funktion definiert. Ändere die Werte innerhalb der Funktion, um andere Farben zu verwenden.

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige