Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Wenn Datum ganze Zeile markieren

Wenn Datum ganze Zeile markieren
11.05.2021 15:06:34
S_L
Hallo zusammen,
ich möchte, wenn das Datum = heute ist, die ganze Zeile markieren.
Mit folgendem Code, suche ich das heutige Datum in Spalte B und markiere den Bereich B1:ET1
With Worksheets("XXX")
Set rngDatum = .Range("B10:B130").Find(.Range("B2").Value, LookIn:=xlValues, lookat:=xlWhole)
rngDatum.Range("B1:ET1").Select
Application.CutCopyMode = False
End With
Das funktioniert. :)
Da ich aber immer eine andere Zeile markieren möchte, kann ich ja nur die Spalten vorgeben, welche markiert werden sollen und nicht die Zeilen.
Kann mir jemand helfen?
Nein, ich möchte keine bedingte Formatierung einfügen, da ich in die markierten Zellen dann in alle leeren Zellen eine 0 eintragen lassen möchte über die Funktion mit STRG +G.
VG
S.
Anzeige

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Wenn Datum ganze Zeile markieren
11.05.2021 16:32:43
Yal
Hallo SL,
andere

rngDatum.Range("B1:ET1").Select
in

rngDatum.EntireRow.Range("B1:ET1").Select
B1:ET1 ist in dem Fall ein relative Adresse. Ohne zuerst die ganze Zeile zu erwähnen, wird Cx:EUx markiert.
VG
Yal
Anzeige
AW: Wenn Datum ganze Zeile markieren
12.05.2021 07:54:57
Sabrina
Hallo,
rngDatum.EntireRow.Range("B1:ET1").Select hat funktioniert.
Ich habe dann die Nullen einfügen über den Recorder aufgenommen und es funktioniert einwandfrei :)
Danke!!
VG
S
AW: es bedarf mE keiner Markierung ...
11.05.2021 16:44:03
neopa
Hallo S.
... ohne VBA würde ich das, was Du vorhast, ohne VBA wie folgt lösen: Filtern der Daten nach dem Datum in Spalte B, dann den Spaltendatenbereich C:ET markieren und danach Strg+G aktivieren und die geplante Aktion ausführen.
Gruß Werner
.. , - ...
Anzeige
ja, aber VBA muss
11.05.2021 17:55:01
Yal
... bzw. soll.
die komplette Lösung sieht so aus:

Sub Nullen_einfügen()
Dim rngDatum  As Range
With Worksheets("XXX")
Set rngDatum = .Range("B10:B130").Find(.Range("B2").Value, LookIn:=xlValues, lookat:=xlWhole)
If Not rngDatum Is notthing Then rngDatum.EntireRow.Range("B1:ET1").speciallcells(xlCellTypeBlanks) = 0
End With
End Sub
VG
Yal
Anzeige
AW: ja, aber VBA muss
12.05.2021 07:55:49
Sabrina
Hallo,
leider hat der Code mir einen Fehler ausgespuckt.
Ich habe aber dann die kurze Variante wie vom Vorschreiber ausprobiert und hat super funktioniert!
Ich danke dir trotzdem. :)
VG
AW: ja, aber VBA muss
12.05.2021 09:39:02
Yal
Hallo Sabrina,
danke, der Vorschreiben war ich ;-)
Der Fehler kommt wegen

If Not rngDatum Is notthing Then 
Wenn Du im VB-Editor einen t von "notthing" weg nimmst, wird VBA das Wort "Nothing" erkennen und mit einem Grossbuchstaben vorn versehen.
So erkennt man -bzw. hätte ich erkennen sollen-, dass was man tippt richtig ist.
VG
Yal
Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige
Anzeige
Anzeige

Infobox / Tutorial

Ganze Zeile markieren, wenn das Datum übereinstimmt


Schritt-für-Schritt-Anleitung

Um eine ganze Zeile in Excel zu markieren, wenn das Datum mit dem aktuellen Datum übereinstimmt, kannst Du den folgenden VBA-Code verwenden. Dieser Code sucht in einer bestimmten Spalte nach dem heutigen Datum und markiert die gesamte Zeile.

  1. Öffne den Visual Basic for Applications (VBA) Editor mit ALT + F11.

  2. Füge ein neues Modul ein, indem Du auf Einfügen > Modul klickst.

  3. Kopiere den folgenden Code in das Modul:

    Sub ZeileMarkieren()
       Dim rngDatum As Range
       With Worksheets("XXX")
           Set rngDatum = .Range("B10:B130").Find(Date, LookIn:=xlValues, lookat:=xlWhole)
           If Not rngDatum Is Nothing Then
               rngDatum.EntireRow.Select
           End If
       End With
    End Sub
  4. Ersetze "XXX" durch den Namen Deines Arbeitsblatts.

  5. Schließe den VBA-Editor und führe das Makro aus.

Dieser Code sucht in der Spalte B nach dem aktuellen Datum und markiert die gesamte Zeile, in der sich das Datum befindet.


Häufige Fehler und Lösungen

  • Fehler: "Typ nicht definiert"

    • Stelle sicher, dass Du die Variablen korrekt deklariert hast. Achte auf die Groß- und Kleinschreibung von Nothing.
  • Fehler: "Keine Übereinstimmung gefunden"

    • Überprüfe, ob das Datum im richtigen Format in der Zelle steht und dass die Suche in der richtigen Spalte erfolgt.

Alternative Methoden

Falls Du keine VBA-Lösungen verwenden möchtest, kannst Du auch die bedingte Formatierung nutzen, um eine ganze Zeile hervorzuheben:

  1. Markiere den Datenbereich, den Du formatieren möchtest.

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

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

  4. Gib die folgende Formel ein:

    =$B1=HEUTE()
  5. Wähle das gewünschte Format aus und klicke auf OK.

Diese Methode hebt die Zeilen hervor, die das aktuelle Datum in Spalte B haben.


Praktische Beispiele

  • Beispiel 1: Markiere alle Zeilen mit dem aktuellen Datum in Spalte B.

    Verwende den oben genannten VBA-Code.

  • Beispiel 2: Verwende die bedingte Formatierung, um das aktuelle Datum in der ganzen Zeile hervorzuheben.

    Nutze die Formel aus der alternativen Methode und passe den Bereich entsprechend an.


Tipps für Profis

  • Shortcut für schnelle Markierung: Um eine ganze Zeile schnell zu markieren, kannst Du die Shift + Leertaste Tastenkombination verwenden.

  • Formatierung anpassen: Wenn Du eine bestimmte Farbe für die Hervorhebung verwenden möchtest, kannst Du dies in den Formatierungsoptionen der bedingten Formatierung anpassen.


FAQ: Häufige Fragen

1. Wie kann ich die ganze Zeile markieren, wenn das Datum in einer anderen Spalte steht? Du musst die Formel in der bedingten Formatierung oder den VBA-Code entsprechend anpassen, um die richtige Spalte zu referenzieren.

2. Kann ich die Zeilenmarkierung automatisch aktualisieren lassen? Ja, wenn Du das Makro regelmäßig ausführst oder es mit einem Ereignis verknüpfst (zum Beispiel beim Öffnen der Datei), wird die Markierung automatisch aktualisiert.

Beliebteste Forumthreads (12 Monate)

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