bedingte Formatierung über vba

Hallo miteinander,
leider bin ich nicht so der Profi, der sich in vba auskennt, aber ich habe bzw. stelle mir vor, dass mein Problem evtl. gelöst wird.
Es geht um einen "Urlaubsplaner", der über eine UF alles so einträgt, was rein muss.
Nun ist es so, dass bei bestimmten Einträgen die Wochenenden nicht mit einem "U" versehen werden, was ja für die Berechnung von Vorteil ist, aber der Urlaub das Wochenende mit einschließt.
Nun habe ich mir gedacht, dass bei der Eingabe des Datenbereiches für den Urlaub, dieser mit einer Farbe in den Zellen markiert wird, sodass man optisch den Urlaubsbereich sehen kann.
Ist sowas möglich?
Die Musterdatei von Herrn Oppermann ist hier zu finden:
https://www.herber.de/bbs/user/89333.xls
Hoffe auf Hilfe ...

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

For r = sp To sp2 ' sonst Schleifenstart für _ Tabelleneintrag ' Cells(3, r).Select ' Zellen selektieren If Weekday(Cells(4, r), 2)

Private Sub CommandButton1_Click() ' Urlaubsplaner ' geschrieben am 26.07.2001 ' postmaster@klaus-dieter-2000.de Dim dat As Date, dat2 As Date, dat3 As Date dat = Me.TextBox1 dat2 = Me.TextBox2 Worksheets("1. Halbjahr").Activate If dat2 > Cells(3, 182) And dat Cells(3, 182) Then Worksheets("2. Halbjahr").Activate sp = 1 Do While Cells(3, sp) dat sp = sp + 1 Loop sp2 = 1 Do While Cells(3, sp2) dat2 sp2 = sp2 + 1 Loop z = 4 Do While Cells(z, 1) Me.ComboBox1 z = z + 1 Loop If dat3 > 0 Then GoTo Seitenwechsel For r = sp To sp2 ' Cells(3, r).Select If Weekday(Cells(4, r), 2) dat3 sp3 = sp3 + 1 Loop For s = 2 To sp3 ' Cells(3, s).Select If Weekday(Cells(4, r), 2)

Hallo,
danke für den neuen Code!
Das hat nun auch funktioniert!
Was muss ich ändern, wenn der Urlaub über das Halbjahr geht, z.B. 25.06.2014 - 11.07.2014?
Leider klappt es da mit dem Makro nicht ;-(
Der Code schaut zur Zeit so aus:

Private Sub CommandButton1_Click()
' Urlaubsplaner
' geschrieben am 26.07.2001
' postmaster@klaus-dieter-2000.de
Dim dat As Date, dat2 As Date, dat3 As Date
dat = Me.TextBox1
dat2 = Me.TextBox2
Worksheets("1. Halbjahr").Activate
If dat2 > Cells(3, 182) And dat  Cells(3, 182) Then Worksheets("2. Halbjahr").Activate
sp = 1
Do While Cells(3, sp)  dat
sp = sp + 1
Loop
sp2 = 1
Do While Cells(3, sp2)  dat2
sp2 = sp2 + 1
Loop
z = 4
Do While Cells(z, 1)  Me.ComboBox1
z = z + 1
Loop
If dat3 > 0 Then GoTo Seitenwechsel
For r = sp To sp2
'    Cells(3, r).Select
If Weekday(Cells(4, r), 2)  dat3
sp3 = sp3 + 1
Loop
For s = 2 To sp3
'    Cells(3, s).Select
If Weekday(Cells(4, r), 2)

Der Fehler ist nur, wenn der Urlaubsbereich über das Halbjahr geht, ansonsten klappt es eigentlich wunderbar ;-)
Gruss WolfgangA

Beliebteste Forumthreads (12 Monate)

15
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

305 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

bedingte Formatierung über vba

15 Beiträge zum Forumthread Beiträge zu diesem Forumthread

305 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

15
Beiträge zum Forumthread

Beiträge zu diesem Forumthread