dynamischer Tooltip bei click

Da ich nicht schnell genug war und auf meinen ersten Beitrag nicht rechtzeitig geantwortet habe musste ich jetzt einen neuen erstellen (jetzt mit Anhang).
Ich baue einen Produktkonfigurator.
Dabei kann man verschiedene Optionen per Dorpdown-Datenüberprüfung auswählen.
In der Auswahl stehen die möglichen Optionen per Buchstaben oder Zahlen die dem Typenschlüssel entsprechen.
Ich habe das Tool so erstellt, das die Sprache jeder Zeit umgestellt werden kann.
Jetzt möchte ich eine Hilfetext anbieten die die Buchstaben / Zahlen beschreibt.
So das man auch eine Auswahl treffen kann wenn man den Typenschlüssel nicht kennt.
Mir fallen 2 Wege ein, die normale Notiz oder die Eingabemeldung der Datenüberprüfung.
Der Text der hineingeschieben werden soll muss in dem moment in dem ich ihn anzeigenlasse aktuallisiert werden, damit die richtige Sprache genutzt wird und nur die möglichen Kombinationen angezeigt werden. Das würde ich auf einem anderen Blatt in 2 Spalten und ca. 10 Zeilen zur verfügung stellen.
Hätte gern eine VBA Funktion in der ich die Zelle angeben kann wo der Text erscheinen soll und die Angabe (vielleicht per Namensdefinition) wo der Text her kommen soll.
Wenn mouse click in zelle XY dann schreibe Text aus Bereich (Namensdefinition) in die Eingabemeldung.
Im Anhang befindet sich ein Auszug aus dem Tool.
Im Register Start in D4 kann man die Sprache einstellen.
In D11 ist eine manuell eingefügte Notiz. Diese soll dynamisch den Text in der richtigen Sprache anzeigen. Der Text ist auszulesen im Register 3-Antriebsart AI3 bis AJ15.
https://www.herber.de/bbs/user/98422.xlsm

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim str As String If Target.Address(0, 0) = "D11" Then With Tabelle24 For x = 3 To 15 str = str & .Cells(x, 35) & " " & .Cells(x, 36) & vbLf Next x End With On Error Resume Next Target.Comment.Delete On Error GoTo 0 Target.AddComment str Target.Comment.Shape.TextFrame.Characters.Font.Name = "Courier New" Target.Comment.Shape.TextFrame.AutoSize = True End If End Sub

…erreichen, bma,
wenn du eine weitere benannte Fml (hier KommentAABer) hinzufügst. Das kann dann so …
KommentAABer: ='3-Antriebsart'!$AI$3:$AI$15&WENN(LÄNGE('3-Antriebsart'!$AI$3:$AI$15)=1;" ";" ")&
BEREICH.VERSCHIEBEN('3-Antriebsart'!$AJ$3:$AJ$15;0;Allgemein!$A$4)
…oder so aussehen:
KommentAABer: ='3-Antriebsart'!$AI$3:$AI$15&WENN(LÄNGE('3-Antriebsart'!$AI$3:$AI$15)=1;" ";" ")&
INDEX('3-Antriebsart'!$AK$3:$BC$3;Allgemein!$A$4):INDEX('3-Antriebsart'!$AK$15:$BC$15;Allgemein!$A$4)
[" ";" " → en-Abstand+¼-em-Abstand;Leerzeichen ← hier bezogen auf Calibri — exakte Ausrichtung nur mit nicht-proportionaler Schriftart wie bei Boris' Variante möglich!]
Für eine sofortige Reaktion des Kommentars in D11 kann dann auch das Calculate-Ereignis gewählt wdn, weil die Wahl einer anderen Sprache stets Berechnungen (auch auf diesem Blatt) auslöst. Zu beachten ist beim folgd Pgm nur, dass das betroffene Kommentarfeld bereits angelegt worden sein muss:

Option Explicit
Private Sub Worksheet_Calculate()
Const adKomBer$ = "D11", fmRelKom$ = "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)
'        .Font.Name = "Calibri"
End With
Set aWb = Nothing: Set wf = Nothing
End Sub

Du kannst natürlich auch Boris' Variante entsprd abgeändert (es gibt hier kein Target!) - mit diesem Ereignis einsetzen.
Gruß, Luc :-?
Besser informiert mit …

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

Private Sub Worksheet_Calculate() Const adKomBer$ = "D9 D11", fmRelKom$ = "KommentBRBer KommentAABer" Dim ix As Long, adKomBers$(), fmRelKoms$(), kTxt As Variant, _ aWb As Workbook, wf As WorksheetFunction Set aWb = Me.Parent: Set wf = WorksheetFunction adKomBers = Split(adKomBer): fmRelKoms = Split(fmRelKom) For ix = 0 To UBound(adKomBers) kTxt = aWb.Names(fmRelKoms(ix)).Value kTxt = Join(wf.Transpose(Me.Evaluate(kTxt)), vbLf) With Me.Range(adKomBers(ix)).Comment.Shape.TextFrame .Characters.Text = Left(kTxt, 255) .Characters(256).Text = Mid(kTxt, 256) .Characters.Font.Name = "Arial" .AutoSize = True End With Next ix Set aWb = Nothing: Set wf = Nothing End Sub

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

dynamischer Tooltip bei click

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

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread