Office: (Office 2010) Wochenende einfärben

Hallo zusammen!
Ich bin ein Azubi für Fachinformatiker Systemintegration. Ich habe die Aufgabe bekommen einen Urlaubsplaner mit Excel zu erstellen. Beim programmieren eines Makros habe ich nun Probleme.
Ich möchte ein Makro das mir die Wochenenden automatisch grau einfärbt, außerdem soll es die Spalte nur soweit einfärben wie Mitarbeiter eingetragen sind, es soll so funktionieren das es erkennt wen ein neuer Mitarbeiter hinzugefügt wird auch die graue Färbung um eine Zelle erweitert wird.
Kurze Erklärung wie mein Kalender aufgebaut ist:

Reihe 7 sind die Wochentage eingetragen(Mo. Di. .....)
Reihe 8 das Datum (1,2,3,....)

Spalte A stehen die Mitarbeiternamen untereinander
für jeden Monat gibt es ein eigenes Tabellenblatt.

Bisher habe ich für die Wochenenden folgendes programmiert habe aber natürlich das Problem das es nur die komplette Spalte markieren kann:

Sub Wochenende()
Dim Zelle As Range, Faerbe As Range
For Each Zelle In Range("B7:AH7")
If Weekday(Zelle) = 7 Or Weekday(Zelle) = 1 Then
Zelle.EntireColumn.Interior.ColorIndex = 15
Else
Zelle.EntireColumn.Interior.ColorIndex = xlNone
End If
Next
End Sub

Hoffe ihr könnt mir da weiterhelfen! *Smilie

:)

 

Hola,

muss es per Makro sein? Es gibt auch die bedingte Formatierung *wink.gif*

Kannst du eine Beispieltabelle posten, damit der Aufbau klar wird? Am besten mit Wunschergebnis.

Gruß,
steve1da

 

Hallo Unterschriftsloser,

ich würde auch mit bedingter Formatierung arbeiten, dann muss nicht jedesmal das Makro laufen.

Zu formatierenden Zellbereich komplett markieren==>
Start==>
Bedingte Formatierung==>
Neue Regel==>
"Formel zur Ermittlung der zu formatierenden Zellen verwenden":

PHP:

         =UND($A9<>"";WOCHENTAG(B$8;2)>5)


 

danke für euere schnelle Anwtwort,
ja es muss per Makro programmiert werden, habe auch schon gemerkt das es mit bedingter Formatierung die wohl elegentere Methode wäre. Mein Ausbilder verlangt aber unbedingt ein Makro von mir.

 

Hallo!
Mal ein wenig OffTopic und nicht persönlich gemeint ...
Zu meiner Zeit führte mich mein Ausbilder zum Ziel
(venvü, bedeutet
- vormachen
- erklären
- nachmachen
- verbessern
- üben)
Heute scheint es wohl immer häufiger so zu sein, dass der Ausbilder rät, Foren zu konsultieren ...

Gruß, Ralf

 

und wo ist das Problem?
Code:

 

Danke! Das Problem ist aber das Option Explicit ein Anweisungsende benötigt!?

 

lösche aRange("B7:AH7")

 

ok das klappt. Nur ist das problem damit nicht gelöst sowei bin ich mit meinem Ansatz auch gekommen. Das Problem ist das nicht die komplette Spalte eingefärbt werden soll sondern nur ab Reihe 7 abwärts bis zum letzten Mitarbeiter welche in Spalte A stehen. Das Makro soll automatisch erkennen wie viele Mitarbeiter eingetragen sind und bis dort hin die Spalte färben!
Diesen Befehl suche ich schon seit einer Weile und habe noch keinen Ansatz gefunden.

 

der Code hat noch einenFehler.
Range("B7:AH7").EntireColumn.Interior.Color = xlNone
Damit werden abe alle Füllfarben gelöscht, das war ja in Deinem Code auch so.

 

Code:

 

Perfekt! Das funktioniert optimal ich danke dir vielmals *Smilie!

 

Nur noch eine kurze frage was muss ich ergänzen damit das Makro auf verschiedene Tabellenbläter übernommen wird? Ich habe für jeden Monat ein anderes Blatt benutzt

 

nichts. falls das Datum immer in Zeile 7 steht.

 

Das Datum steht immer in Zeile 8 und der Wochentag immer in 7
Wenn ich das Makro ausführe wird es aber immer nur auf ein Tabellenblatt übernommen und ist es möglich das die farben innerhalb des Kalenders erhalten bleiben?
Ich habe nämlich eben noch ein Makri Programmiert mit dem man sich über Buttons Geschäftsreisen Urlaub etc. in verschiedenen Farben markieren kann.