Spalte farbig hinterlegen

04/11/2007 - 14:36 von Frank Kötting | Report spam
Halle Excel-Freunde,

Ich bin zur Zeit dabei mir einen Urlaubskalender für Mitarbeiter zu
erstellen. Jeder Monat hat eine Mappe. Jede Spalte ist ein Tag. Die Anzahl
der Mitarbeiter kann immer wieder variieren.
In der Spalte A stehen mehrere Namen. Mal 20 Namen, mal 30 usw. In den
Spalten B bis AJ stehen die Tage B = 01.11.2007; C = 02.11.2007 usw. Gibt es
einen Ferientag oder Feiertag trage ich in der Zeile 3 ein "f" ein. Es soll
dann die ganze Zeile bis zum letzten Mitarbeiter farbig markiert werden.

Ich habe aber ein Problem damit eine Spalte für einen variablen Bereich
farbig zu hinterlegen.

Im Internet habe ich folgendes gesehen das die Letzte beschriebene Zeile
benennt. So wàre "lz" gleich die Zeile 91. Nur wie bekomme ich diese
Variable nun in den Bereich: Range("e9:e91") unter??
Range("e9:elz") geht ja nicht.


lz = Cells.Find("*", [A1], , , xlByRows, xlPrevious).Row + 1

If Trim(Range("e3")) = "f" Or Trim(Range("e3")) = "Fr" Then
Range("e9:e91").Interior.ColorIndex = 24
End If


Vielen Dank für Eure Hilfe im voraus.

Mfg
Frank Kötting
 

Lesen sie die antworten

#1 André Minhorst
04/11/2007 - 14:43 | Warnen spam
Hallo Excel-Freund,

leider bist Du hier nicht bei den Excel-Freunden, sondern bei den
Access-Freunden gelandet. ;-)

Sorry!

Ciao
André

Frank Kötting schrieb:
Halle Excel-Freunde,

Ich bin zur Zeit dabei mir einen Urlaubskalender für Mitarbeiter zu
erstellen. Jeder Monat hat eine Mappe. Jede Spalte ist ein Tag. Die Anzahl
der Mitarbeiter kann immer wieder variieren.
In der Spalte A stehen mehrere Namen. Mal 20 Namen, mal 30 usw. In den
Spalten B bis AJ stehen die Tage B = 01.11.2007; C = 02.11.2007 usw. Gibt es
einen Ferientag oder Feiertag trage ich in der Zeile 3 ein "f" ein. Es soll
dann die ganze Zeile bis zum letzten Mitarbeiter farbig markiert werden.

Ich habe aber ein Problem damit eine Spalte für einen variablen Bereich
farbig zu hinterlegen.

Im Internet habe ich folgendes gesehen das die Letzte beschriebene Zeile
benennt. So wàre "lz" gleich die Zeile 91. Nur wie bekomme ich diese
Variable nun in den Bereich: Range("e9:e91") unter??
Range("e9:elz") geht ja nicht.


lz = Cells.Find("*", [A1], , , xlByRows, xlPrevious).Row + 1

If Trim(Range("e3")) = "f" Or Trim(Range("e3")) = "Fr" Then
Range("e9:e91").Interior.ColorIndex = 24
End If


Vielen Dank für Eure Hilfe im voraus.

Mfg
Frank Kötting






http://www.access-entwicklerbuch.de
http://www.access-im-unternehmen.de

Ähnliche fragen