dynamischer Tooltip
29.06.2015 15:13:53
bma
Eine passende funtionierende Methode habe ich bereits um einen Tooltip einblenden zu lassen mit dynamischen Inhalten.
Was muss ich jetzt aber machen, wenn ich verschiedene Felder habe die Tooltips erhalten sollen?
Habe also einen weiteren Bereich im Namensmanager angelget:
KommentBRBer
='1-Baureihe'!$A$4:$A$10&WENN(LÄNGE('1-Baureihe'!$A$4:$A$10)=1;" - ";" - ") & BEREICH.VERSCHIEBEN('1-Baureihe'!$B$4:$B$10;0;Allgemein!$A$4)
und im VB bin ich leider nur so weit gekommen, dann hab ich es nicht mehr verstanden:
Option Explicit
Private Sub Worksheet_Calculate()
Const adKomBer$ = "D9 D11", fmRelKom$ = "KommentBRBer KommentAABer"
Dim kTxt As Variant, aWb As Workbook, wf As WorksheetFunction
Set aWb = Me.Parent: Set wf = WorksheetFunction
kTxt = aWb.Names(fmRelKom).Value
kTxt = Join(wf.Transpose(Me.Evaluate(kTxt)), vbLf)
With Me.Range(adKomBer).Comment.Shape.TextFrame
.Characters.Text = Left(kTxt, 255)
.Characters(256).Text = Mid(kTxt, 256)
.Characters.Font.Name = "Arial"
.AutoSize = True
End With
Set aWb = Nothing: Set wf = Nothing
End Sub
hier das Beispiel:
https://www.herber.de/bbs/user/98478.xlsm