Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1172to1176
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

screenTip

screenTip
vati
Hallo zusammen,
ich habe mal wieder ein Problem. Ich möchte gern eine Spalte Namen, in X verwandeln, die X mit einem „toten“ Hyperlinks versehen und als ScreenTip / QuickInfo (beim Mouseover) wieder den ursprünglichen Namen angezeigt bekommen.
Am besten per Makro, auf einen ausgewählten Bereich.
Ich komme aber beim ScreenTip nicht weiter…
Könnt Ihr mir bitte weiterhelfen?
Hier mein Lösungsansatz:
Sub HyperlinkErzeugen()
With Worksheets("Tabelle1")
.Hyperlinks.Add Anchor:=.Range("A1:A20"), Address:="", _
ScreenTip:="Hier soll der Wert aus der UrsprungsZelle erscheinen", TextToDisplay:="X"
End With
End Sub

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: screenTip
23.08.2010 13:07:06
vati
Hat nicht jemand nen Tip für mich?
AW: screenTip
23.08.2010 13:18:28
EvilRik
Hallo Vati,
so vielleicht?
Sub HyperlinkErzeugen()
Dim StartSpalte As Long, EndSpalte As Long
Dim StartZeile As Long, EndZeile As Long
Dim zae1, zae2
On Error Resume Next
StartSpalte = Selection.Column
EndSpalte = StartSpalte + Selection.Columns.Count - 1
StartZeile = Selection.Row
EndZeile = StartZeile + Selection.Rows.Count - 1
For zae1 = StartSpalte To EndSpalte
For zae2 = StartZeile To EndZeile
With ActiveSheet
If Not IsEmpty(.Cells(zae2, zae1)) Then
.Hyperlinks.Add Anchor:=.Cells(zae2, zae1), Address:="", _
ScreenTip:=.Cells(zae2, zae1).Text, TextToDisplay:="X"
End If
End With
Next zae2
Next zae1
End Sub
Gruß Henrik
Anzeige
AW: screenTip
23.08.2010 13:27:48
vati
Ach maaan… :( ich probiere ewig rum und hier kommt wieder die perfekte Lösung :)
Vielen Dank dafür und Viele Grüße
Der Vati

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige