Gruppe
DatumZeit
Bereich
Datum
Thema
Monatsabhängige Tagesliste anlegen und Wochenenden markieren
Problem
Wie kann ich jahres- und monatsabhängig eine Tagesliste anlegen, die sich bei Eingaben des Jahres oder des Monats automatisch aktualisiert und die Samstage und Sonntage mit einer unterschiedlichen Hintergrundfarbe markiert?
Lösung
Nur anhand einer Beipspielarbeitsmappe darstellbar.
StandardModule: basMain
Sub Loeschen()
Dim sFile As String
Application.ScreenUpdating = False
sFile = ThisWorkbook.Path & "\testvbe.xls"
If Dir(sFile) = "" Then
MsgBox "Test-Arbeitsmappe wurde nicht gefunden!"
Else
Workbooks.Open sFile
On Error GoTo ERRORHANDLER
With ActiveWorkbook.VBProject
.VBComponents.Remove .VBComponents("basTest")
End With
End If
Application.ScreenUpdating = True
Exit Sub
ERRORHANDLER:
MsgBox "Modul wurde nicht gefunden!"
Application.ScreenUpdating = True
End Sub