wiederkehrend Feiertage

Hallo Leute,
brauche bitte nochmals eure Hilfe
habe ein super funktionierendes Kalendermakro das ich erweitern möchte(muss).
Das Makro baut einen Kalender, für jeden Tag eine Zeile, - wie gesagt funktioniert,bislang hatte ich durch bedingte Formatierung die Sam- und Sonntage in Schriftfarbe rot und fett.
Da dies aber immer wieder zu Problemen mit anderen Makros führt, möchte ich auch dies in vba mit einbauen, tja -,
und das ist mein Problem. Dachte kriege das mit so einer case Anweisung hin, aber irgendwas mache ich falsch.
in vba habe ich auch mittlerweile die Osterformel, die mir dann auch ermöglichen könnte, alle Feiertage orange geschrieben darzustellen, Sam- und Sonntage rot und fett geschrieben.
Super wäre es wenn man auch automatisch bei den Feiertagen noch einen Kommentar einfügen könnte.
Wer kann mir helfen?
mein kläglicher Versuch anbei(bitte nicht lachen,lieber genau erklären(muss noch viel lernen))
https://www.herber.de/bbs/user/38390.xls
Danke schon mal im Vorraus für die bislang immer gute und kompetente Hilfe
Dirk

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

hallo dirk,
wenn du das makro auf eine schaltfläche legst dann kannst du jedes datum was dir einfällt suchen und einen kommentar dazu schreiben!
vielleicht hilft dir das ja weiter!


Sub Zellinhalt_Kommentar()
Dim raZelle         As Range
Dim strSuchbegriff  As String
Dim firstAddress    As String
Dim strAbfrage      As String
Dim strKommentar    As String
On Error GoTo Fehler
strSuchbegriff = InputBox("Datum eingeben:")
With Worksheets("Tabelle1").Range("B:B")
Set raZelle = .Find(strSuchbegriff, lookat:=xlWhole, LookIn:=xlValues)
If Not raZelle Is Nothing Then
firstAddress = raZelle.Address
Do
strKommentar = InputBox("Kommentar")
With raZelle
.AddComment
.Comment.Text Text:=strKommentar
End With
strAbfrage = MsgBox("   Weitersuchen?   ", vbYesNo)
If strAbfrage = vbNo Then
Exit Sub
End If
Set raZelle = .FindNext(raZelle)
Loop While Not raZelle Is Nothing And raZelle.Address <> firstAddress
End If
End With
If raZelle Is Nothing Then MsgBox "Suchbegriff nicht gefunden"
Fehler:
End Sub

gruß marko

Beliebteste Forumthreads (12 Monate)

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

wiederkehrend Feiertage

10 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread