Farbliche Formatierung löschen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

'Makro unter DieseArbeitsmape der Datei einfügen Private Sub Workbook_Open() Dim rngMerker As Range, wks As Worksheet Set rngMerker = Tabelle1.Range("Z1") 'Zelle in der Datum nach Monatswechsel _ zum Vergleichen eingetragen wird, kann in einem beliebigen Blatt der Datei sein. If IsEmpty(rngMerker) Then 'Workbook wird zum 1. Mal nachem Einfügen des Makros geöffnet rngMerker = Date ElseIf Month(Date) Month(rngMerker.Value) Then If MsgBox("Formatierungen der Füllfarben in den Monatsblättern jetzt zurücksetzen?", _ vbQuestion + vbOKCancel, "Formatierungen zurücksetzen") = vbOK Then 'Workbook wird zum 1. Mal im Folgemonat geöffnet 'Formatierungen in Blatt/Blättern zurücksetzen For Each wks In Me.Worksheets With wks Select Case .Name Case "Jänner" .Range("F5:AJ1500").Interior.ColorIndex = xlColorIndexNone Case "Februar" .Range("AP5:BR1500").Interior.ColorIndex = xlColorIndexNone 'ggf. für weiter weiter Tabellenblätter Case-Zeilen anlegen Case Else 'do nothing End Select End With Next wks 'Neues Monatsdatum eintragen rngMerker = Date End If End If End Sub

Hallo Helmut,
Jetzt allerdings habe ich ein Problem: der Code von dir spricht überhaupt nicht an.
Die Zelle in der das Merker-Datum des Monats eingetragen darf nicht das Zahlenformat "Text" haben.
In meinem Beispiel waren "Jänner", "Februar", usw. die Namen der Tabellenblätter nicht die von Namen. Mir war nicht klar, dass sich alle Daten in einem Tabellenblatt befinden.
Wenn du für die Zellbereiche der Monate, die zurückgesetzt werden sollen, jeweils einen Namen definierst, dann kann man es etwa wie folgt lösen.
Gruß
Franz

Private Sub Workbook_Open()
'Makro unter DieseArbeitsmape der Datei einfügen
Dim rngMerker As Range, wks As Worksheet, rngMonat As Range
Set rngMerker = Tabelle3.Range("A1") 'Zelle in der Datum nach Monatswechsel _
zum Vergleichen eingetragen wird, kann in einem beliebigen Blatt der Datei sein. _
Die Zelle muss als Datum formatiert sein
If IsEmpty(rngMerker) Then
'Workbook wird zum 1. Mal nachem Einfügen des Makros geöffnet
rngMerker = Date
ElseIf Month(Date)  Month(rngMerker.Value) Then
If MsgBox("Formatierungen der Füllfarben des vorherigen Monats jetzt zurücksetzen?", _
vbQuestion + vbOKCancel, _
"Formatierungen in Blatt """ & Tabelle3.Name & """ zurücksetzen") = vbOK Then
'Workbook wird zum 1. Mal im Folgemonat geöffnet
'Zellformatierung in Blatt zurücksetzen
Set wks = Tabelle3 'Me.Worksheets("Abwesenheiten")
With wks
'.Unprotect Password:="****"
'Namen des Bereichs (Vormonat) bestimmen in dem die Füllfarb-Formatierung zurü _
ckgesetzt werden soll.
Select Case Month(Date) 'Monat des aktuelles Datum nach Monatswechsel
Case 1 'Jänner
Set rngMonat = .Range("Dezember")
Case 2 'Februar
Set rngMonat = .Range("Jänner")
Case 3 'März
Set rngMonat = .Range("Februar")
Case 4 'April
Set rngMonat = .Range("März")
Case 5 'Mai
Set rngMonat = .Range("April")
Case 6 'Juni
Set rngMonat = .Range("Nai")
Case 7 'Juli
Set rngMonat = .Range("Juni")
Case 8 'August
Set rngMonat = .Range("Juli")
Case 9 'September
Set rngMonat = .Range("August")
Case 10 'Oktober
Set rngMonat = .Range("September")
Case 11 'November
Set rngMonat = .Range("Oktober")
Case 12 'Dezember
Set rngMonat = .Range("November")
Case Else
Set rngMonat = Nothing
End Select
If Not rngMonat Is Nothing Then
'Füllfarbe im Zellbereich des Monats ab Zeile 6 zurücksetzen
With rngMonat
wks.Range(wks.Cells(6, .Column), _
wks.Cells(.Row + .Rows.Count - 1, .Column + .Columns.Count - 1)) _
.Interior.ColorIndex = xlColorIndexNone
End With
End If
'Aktuelles Datum in Merkerzelle eintragen
rngMerker = Date
'.Protect Password:="****"
End With
End If
End If
end sub

Guten Abend Franz
Also das muss am MS Office in der Firma liegen. Haben auch schon vor Wochen das mit "MS Forms exd" löschen gemacht. Nein da muss morgen die IT Stelle in der Fa. herhalten. Habe nämlich die Datei in der Fa. leicht verändert-funktioniert nicht!!! Dann habe ich die Datei von der Fa. auf einen Stick und zu Hause auf den Rechner und siehe da.....Sie funktioniert Tadellos!!
Komischer Weise hat sie ja in der Fa. vorher ca.5 mal funktioniert, habe Abwesenheiten angelegt und die Datei auch einigen Mitarbeitern vorgestellt. Doch plötzlich....ging nix mehr, nur noch die Fehlermeldung! Trotzdem nochmals herzlichen Dank, Franz. (Sage dir euch im Forum bescheid sobald ich mehr weis.)
Wünsche dir noch einen schönen Abend

Beliebteste Forumthreads (12 Monate)

9 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread