Excel bedingte Formatierung ganze Zeile wenn Datum

Ich möchte in Excel mit einem Makro eine bestimmte Zeile markieren. In Ihrem Archiv fand ich ein Makro «WeekendZeileFarbig (19057)» und auch eines «Aktuelles Datum markieren (20677)». Hier wird allerdings nur entweder das jeweilige Wochenende inkl. Zeile oder dann nur die ZELLE mit dem aktuellen Datum markiert. Wie kann ich jeweils das aktuelle Tagesdatum mit der gesamten Zeile markieren lassen?

Markieren Sie die erste Zeile und rufen Sie im Menü FORMAT "Bedingte Formatierung" auf. Ändern Sie die Bedingung auf "Formel ist" und geben Sie in der Zeile "=$A1=heute()" ein. Klicken Sie dann auf den Button "Format" und nehmen Sie die gewünschte Formatierung vor. Schliessen Sie die Eingaben mit OK ab.

Da in der ersten Zeile nicht das heutige Datum steht, wird diese logischerweise nicht markiert.

Markieren Sie erneut die erste, nun bereits formatierte Zeile, und klicken Sie dann auf den PINSEL in der Symbolleiste

Sobald der Pinsel aktiviert wurde, markieren Sie diejenigen Zellen, auf welche Sie dasselbe Format übertragen möchten.

Nun wird die Zeile mit dem aktuellen Datum gelb markiert.

Herbers Excel-Forum - das Archiv

• Wenn Datum ganze Zeile markieren von S_L vom 11.05.2021 15:06:34
• AW: Wenn Datum ganze Zeile markieren - von Yal am 11.05.2021 16:32:43
  • AW: Wenn Datum ganze Zeile markieren - von Sabrina am 12.05.2021 07:54:57
• AW: es bedarf mE keiner Markierung ... - von neopa C am 11.05.2021 16:44:03
  • ja, aber VBA muss - von Yal am 11.05.2021 17:55:01
    • AW: ja, aber VBA muss - von Sabrina am 12.05.2021 07:55:49
      • AW: ja, aber VBA muss - von Yal am 12.05.2021 09:39:02

Betrifft: Wenn Datum ganze Zeile markieren
von: S_L

Geschrieben am: 11.05.2021 15:06:34

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.

Betrifft: AW: Wenn Datum ganze Zeile markieren
von: Yal
Geschrieben am: 11.05.2021 16:32:43
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

Betrifft: AW: Wenn Datum ganze Zeile markieren
von: Sabrina
Geschrieben am: 12.05.2021 07:54:57
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

Betrifft: AW: es bedarf mE keiner Markierung ...
von: neopa C
Geschrieben am: 11.05.2021 16:44:03
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
.. , - ...

Betrifft: ja, aber VBA muss
von: Yal

Geschrieben am: 11.05.2021 17:55:01
... 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

Betrifft: AW: ja, aber VBA muss
von: Sabrina
Geschrieben am: 12.05.2021 07:55:49
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

Betrifft: AW: ja, aber VBA muss
von: Yal
Geschrieben am: 12.05.2021 09:39:02
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