Thema Datum  Von Nutzer Rating
Antwort
Rot Bedingte Formatierung Sa/So., , Schleife
01.12.2022 12:27:19 Matthias
NotSolved
01.12.2022 12:33:34 Der Steuerfuzzi
NotSolved
01.12.2022 13:12:07 Gast82825
NotSolved
01.12.2022 14:00:13 Der Steuerfuzzi
NotSolved
01.12.2022 14:21:22 Gast37950
NotSolved

Ansicht des Beitrags:
Von:
Matthias
Datum:
01.12.2022 12:27:19
Views:
196
Rating: Antwort:
  Ja
Thema:
Bedingte Formatierung Sa/So., , Schleife

Moin,

komme mit einer bedingten Formatierung nicht weiter.

Habe Tabellenblätter von Januar bis Dezember.
' alle Tabellenblätter selektieren
    Sheets(Array("Januar", "Februar", "März", "April", "Mai", "Juni", "Juli", "August", _
        "September", "Oktober", "November", "Dezember")).Select

 

In jedem der Tabellenblätter sind Daten (01.01.2023,...31.01.2023,...) hinterlegt.
Das erste Datum steht in Zelle AO9, das letzte in Zelle AO99 (drei Zeilen pro Datum).

 

Nun soll das Makro prüfen, ob der Wochentag in Zelle AO9 ein Samstag ist.

Wenn ja, soll er die Bereiche B6-M11 und die Bereiche S6 bis AB11 hellgrau einfärben

Wenn es ein Sonntag ist dunkel grau,

_

Danach soll er eine Zelle weiter unten (AO12) das Datum prüfen und analag zu oben die Bereiche 

B12 bis M14 und S12 bis AB14 entsprechend einfärben.

 

Irgendwie habe ich großen Mist gemacht, weil ich keine Ahnung habe :-):

Sub WochenendenHervorheben()
Dim i As Long


'Tabellenblatt Januar
Worksheets("Januar").Activate


'gibt vor, dass das Makro bis Zeile 101 ausgeführt werden soll
For i = 1 To 101

'soll prüfen, ob das Datum in AO9 ein Samstag ist
If Weekday(Cells(5, 52, 2) = 7
'soll die Bereiche B9:M11 und S9:AB11 hellgrau einfärben
Than Range(B9:M11).Interior.ColorIndex = 15

'soll prüfen, ob das Datum in AO9 ein Sonntag ist
If Weekday(Cells(5, 52, 2) = 1
'soll die Bereiche B9:M11 und S9:AB11 dunkelgrau einfärben
Than Range(B9:M11).Interior.ColorIndex = 48


End If
'die Prüfung soll gehen bis AO99

'Zeile mit Tagen die es nicht gibt (30. Februar,...) werden hinterher gelöscht.
Das läuft soweit auch....


Next

End Sub

__

Hat vielleicht jemand eine Idee?

 

Liebe Grüße

Matthias

 


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:

 
 

  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Bedingte Formatierung Sa/So., , Schleife
01.12.2022 12:27:19 Matthias
NotSolved
01.12.2022 12:33:34 Der Steuerfuzzi
NotSolved
01.12.2022 13:12:07 Gast82825
NotSolved
01.12.2022 14:00:13 Der Steuerfuzzi
NotSolved
01.12.2022 14:21:22 Gast37950
NotSolved