Helau Alaf--Fasching markieren funzt net !?

Hallo zusammen,
dachte, ich kopier die Formatierungsbefehle und den VBA Code meiner Feiertage, aber das will nicht beim Fasching funktionieren.
Habe eine Tabelle "Fasching" mit entsprechenden Datumswerten auf Jahre hinaus.
Diese sollten nun wie die Feiertage vertikal farblich markiert werden (gelb).
Wie auch bei den Feiertagen mit entsprechenden Kommentar im Kopf der Spalte versehen werden.
Ich kopierte nun die bedingte Formatierung und den VBA Code entsprechend mit Faschings Bezügen. Aber das will nicht hinhauen.
Weiss jemand Rat in der Sache?
Hier mein Beispiel:
https://www.herber.de/bbs/user/119305.xlsm
Bedingte Formatierung:
=SVERWEIS(F$5;Fasching;1;0)
Bereich:
=$F$4:$NE$50
VBA Code zur Kommentar Einfügung:
If Target.Address(0, 0) = "C1" Then
Set objDate = Range(Cells(5, 6), Cells(5, Cells(5, Columns.Count).End(xlToLeft).Column))
objDate.ClearComments
For Each objRange In objDate
varRet = Application.Match(CLng(objRange), Sheets("Fasching").Columns(2), 0)
If IsNumeric(varRet) Then
Set objComment = objRange.AddComment
With objComment.Shape.TextFrame
.Characters.Text = Sheets("Fasching").Cells(varRet, 1).Text
.AutoSize = True
End With
End If
Next
End If
End Sub
Danke & Gruss,
Juergen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Jürgen,
im Prinzip hast Du die Lösung doch schon gepostet. Zusammen mit dem Code für die Kommentierung der Feiertage und eingepackt in das Change-Ereignis der Tabelle lautet das Makro wie folgt:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim objRange As Range, objDate As Range
Dim varRet As Variant, objComment As Comment
If Target.Address(0, 0) = "C1" Then
Set objDate = Range(Cells(5, 6), Cells(5, Cells(5, Columns.Count).End(xlToLeft).Column))
objDate.ClearComments
For Each objRange In objDate
'Überprüfung ob Datum in Liste Feiertage
varRet = Application.Match(CLng(objRange), Sheets("Feiertage").Columns(2), 0)
If IsNumeric(varRet) Then
Set objComment = objRange.AddComment
With objComment.Shape.TextFrame
.Characters.Text = Sheets("Feiertage").Cells(varRet, 1).Text
.AutoSize = True
End With
End If
'Überprüfung ob Datum in Liste Fasching
varRet = Application.Match(CLng(objRange), Sheets("Fasching").Columns(2), 0)
If IsNumeric(varRet) Then
Set objComment = objRange.AddComment
With objComment.Shape.TextFrame
.Characters.Text = Sheets("Fasching").Cells(varRet, 1).Text
.AutoSize = True
End With
End If
Next
End If
End Sub

Sobald der Eintrag in der Zelle C1 geändert wird, startet das Makro automatisch. Es werden alle Zellen in der Zeile 5 durchlaufen und geprüft, ob der Datumswert einem Feiertag oder Fasching entspricht. Sollte dies der Fall sein, wird ein entsprechender Kommentar eingefügt.
Das von Dir in der Datei eingestellte Makro Worksheet_Change_feiertage(ByVal Target As Range) startet ja nicht automatisch, sondern müsste manuell angestossen werden.
Gruß
Robert

Beliebteste Forumthreads (12 Monate)

Helau Alaf--Fasching markieren funzt net !?

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Helau Alaf--Fasching markieren funzt net !?

8 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)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread