Kommentar bei bedingter Formatierung einbetten?

Hallo zusammen,
mir kam folgender Gedanke zu einem bestehenden Kalenderblatt, bin mir aber nicht sicher ob das zum umsetzen möglich ist:
Ich markiere Spalten (tage) in Tabelle 1 (=Kalenderblatt) farbig auf Basis einer Liste für die Jahre 2018-2025, welche sich in Tabelle 2 befinden.
Die Formatierung dazu lautet:
=SVERWEIS(F$5;Feiertage;1;0)
für den Bereich :
=$F$4:$NE$40
Das klappt auch soweit alles.
Frage nun hierzu:
ist es möglich, dass man der so entsprechend eingefärbten Spalte auch zusätzlich ( evtl. in Form eines Kommentares) die entsprechende Bezeichnung zuordnen kann?
Also, dass bei MouseOver eben der Feiertagsname aus Tabelle 2 erscheint?
Falls, wie würde der Ansatz dazu dann aussehen? Formel oder VBA?
Danke & Gruss,
Juergen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

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 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 Next End If End Sub

Hallo Sepp,
vielen Dank für deine Antwort.
Nur um sicher zu gehen:
Ich habe deinen Code in die Tabelle 4 eingefügt.
Da siehts jetzt so aus:
' **********************************************************************
' Modul: Tabelle4 Typ: Element der Mappe(Sheet, Workbook, ...)
' **********************************************************************
Option Explicit
Sub scrollMonth()
Dim objShape As Shape
Dim lngMonth As Long, lngFind As Long, varRet As Variant
Set objShape = Me.Shapes(Application.Caller)
With objShape
lngMonth = CLng(.TextFrame.Characters.Text)
lngFind = Application.Max(DateSerial(Year(Range("C1")), lngMonth, 1), Range("C1"))
varRet = Application.Match(lngFind, Rows(5), 0)
If IsNumeric(varRet) Then
ActiveWindow.ScrollColumn = varRet
End If
End With
Set objShape = Nothing
End Sub

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
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
Next
End If
End Sub

Ich kann aber keine Änderung feststellen. Habe ich das falsch gemacht!?
Hier das Sheet dazu nochmals:
https://www.herber.de/bbs/user/118960.xlsm
Danke & Gruss,
Juergen

Beliebteste Forumthreads (12 Monate)

Kommentar bei bedingter Formatierung einbetten?

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

308 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Kommentar bei bedingter Formatierung einbetten?

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

308 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread