Sub HyperlinkErzeugen()
Dim StartSpalte As Long, EndSpalte As Long
Dim StartZeile As Long, EndZeile As Long
Dim zae1, zae2
On Error Resume Next
StartSpalte = 1 'Selection.Column
EndSpalte = 3 'StartSpalte + Selection.Columns.Count - 1
StartZeile = 1 'Selection.Row
EndZeile = 40 '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:="HALLO", TextToDisplay:=.Cells(zae2, zae1).Text
'End If
End With
Next zae2
Next zae1
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
ActiveCell.Offset(-1).Hyperlinks.Delete
End Sub
Die Datei https://www.herber.de/bbs/user/71574.xls wurde aus Datenschutzgründen gelöscht
Um einen Tooltip in Excel zu erstellen, der bei Mouse Over erscheint, kannst du VBA verwenden. Hier ist eine einfache Anleitung:
Öffne Excel und drücke ALT + F11, um den VBA-Editor zu öffnen.
Wähle das Arbeitsblatt, in dem du den Tooltip einfügen möchtest, und füge den folgenden Code in das entsprechende Modul ein:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("A1")) Is Nothing Then
Application.OnTime Now + TimeValue("00:00:05"), "HideTooltip"
MsgBox "Dies ist dein Tooltip!", vbInformation, "Tooltip"
End If
End Sub
Sub HideTooltip()
' Diese Subroutine wird aufgerufen, um die MsgBox nach 5 Sekunden zu schließen
Application.SendKeys "{ESC}"
End SubSchließe den VBA-Editor und teste den Tooltip, indem du mit der Maus über die Zelle A1 fährst.
Hierbei wird bei Mouse Over über die Zelle A1 eine Meldung für 5 Sekunden angezeigt.
Fehler: Der Tooltip erscheint nicht.
Fehler: Tooltip bleibt länger als gewünscht.
Application.OnTime-Zeile. Du kannst die Zeit anpassen, um die Dauer des Tooltips zu ändern.Es gibt mehrere Möglichkeiten, Tooltips in Excel zu erstellen:
Kommentare: Du kannst auch Kommentare verwenden. Klicke mit der rechten Maustaste auf eine Zelle, wähle "Kommentar einfügen" und gebe den gewünschten Text ein. Dieser wird angezeigt, wenn du mit der Maus über die Zelle fährst.
Hyperlinks mit ScreenTips: Bei Hyperlinks kannst du ScreenTips hinzufügen. Rechtsklicke auf eine Zelle, gehe zu "Hyperlink" und füge im Feld "ScreenTip" deinen Tooltip-Text ein.
Hier sind einige praktische Beispiele, wie du Tooltips einsetzen kannst:
Verwendung von Hyperlinks: Angenommen, du hast eine Tabelle mit Produktnamen. Du könntest Hyperlinks zu einer Webseite mit weiteren Informationen hinzufügen und ScreenTips verwenden, um kurze Beschreibungen der Produkte anzuzeigen.
Dynamische Tooltips: Du kannst den Tooltip-Text dynamisch gestalten, indem du den Inhalt der Zelle in die MsgBox einfügst:
MsgBox Target.Value & " ist der Tooltip-Text.", vbInformation, "Tooltip"Nutze VBA-Events, um Tooltips bei bestimmten Aktionen auszulösen, z.B. Worksheet_Change, um Tooltips anzuzeigen, wenn Daten in eine Zelle eingegeben werden.
Experimentiere mit Formularsteuerelementen wie Schaltflächen oder Dropdowns, um interaktive Tooltips zu erstellen, die durch Benutzerinteraktion angezeigt werden.
1. Wie kann ich einen Tooltip auf mehrere Zellen anwenden?
Du kannst die If Not Intersect-Bedingung anpassen, um mehrere Zellen zu berücksichtigen, z.B. Range("A1:B10").
2. Funktioniert das Tooltip-System in Excel für Mac? Ja, VBA funktioniert auch in Excel für Mac, jedoch kann die Handhabung von Events leicht variieren. Achte darauf, dass du die richtigen Kommandos für deine Version verwendest.
3. Gibt es eine Möglichkeit, die Tooltip-Anzeige zu gestalten? Mit VBA kannst du die MsgBox verwenden, aber das Design ist begrenzt. Für mehr Gestaltungsmöglichkeiten könntest du eine UserForm erstellen.
4. Kann ich Tooltips ohne VBA erstellen? Ja, du kannst Kommentare oder Hyperlinks mit ScreenTips verwenden, um einfache Tooltips zu erstellen, ohne VBA zu verwenden.
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen