Kommentar bei bedingter Formatierung einbetten?

Jürgen · 2018-01-14T13:04:13+00:00

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

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

Kommentar bei bedingter Formatierung einbetten?

Forumthread: Kommentar bei bedingter Formatierung einbetten?

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Infobox / Tutorial