AW: Tooltipp, Inhalte von Zellen anzeigen
02.08.2015 16:38:45
Zellen
Hallo Hans,
ad 1: im Prinzip ja - dann läuft das Makro mit dem jeweils gerade aktiven Blatt.
ad 2: im Prinzip ja - aber ich halte nicht allzu viel davon, (meist) unsinnige Aktionen automatisch ausführen zu lassen, die schlicht Zeit für nichts verbraten; besser wäre meines Erachtens:
ad 3: im Prinzip ja - mit einem Change-Event, das auf
ad 4: Deine bestimmten Bereiche reagiert.
Also kurz: ich würde einen Button anlegen, der alle erzeugt, dann sind sie ja mal da, und wenn innerhalb eines der Bereiche C4:AG4 und C11:AG11 was geändert wird, wird der konkrete Tooltip geändert:
Dazu setzt Du ins jeweilige Tabellenblatt die Routine...
Private Sub Worksheet_Change(ByVal Target As Range)
If (Not Intersect(Target, Range("C4:AG4")) Is Nothing) Or _
(Not Intersect(Target, Range("C11:AG11")) Is Nothing) Then
Call Tooltip_Range(Target)
End If
End Sub
... wobei die beiden Intersect dazu führen, daß nur diese bestimmten Bereiche berücksichtigt werden,
wenn die "aufgebohrte" Variante von
Sub Tooltip_Range(ByVal r As Range)
Dim c As Range
For Each c In r
c.ClearComments
c.AddComment c.Text & vbCrLf & c.Offset(1).Text & vbCrLf & c.Offset(2).Text
Next
End Sub
aufgerufen wird, die einen Bereich übergeben bekommt und nur den/die jeweiligen Tooltip ändert.
Diese Variante mit dem übergebenen Range kannst Du prinzipiell über alle Blätter laufen lassen:
Sub Tooltip_Sheets()
Const r1 = "C4:AG4"
Const r2 = "C11:AG11"
Dim x&
For x = 1 To Worksheets.Count
Worksheets(x).Activate
Call Tooltip_Range(Range(r1))
Call Tooltip_Range(Range(r2))
Next
End Sub
Schöne Grüße,
Michael