wenn du an passender Stelle in deiner Tabelle ine Legende platzierst
Bei 33 Spalten x 152 Zeilen hast du 5016 Zellen, die du mit rechter Maustaste bearbeiten müsstest ;-)
Private Sub worksheet_change(ByVal target As Range)
If Not Intersect(Range("C3:AG154"), target) Is Nothing Then
Application.EnableEvents = False
Select Case target
Case "za"
With target
.AddComment
.Comment.Visible = False
.Comment.Text Text:="User:" & Chr(10) & "Eingabe ist ZA"
End With
Case "U"
With target
.AddComment
.Comment.Visible = False
.Comment.Text Text:="User:" & Chr(10) & "Eingabe ist ZA"
End With
Case "ta"
With target
.AddComment
.Comment.Visible = False
.Comment.Text Text:="User:" & Chr(10) & "Eingabe ist ZA"
End With
Case Else
target.ClearComments
End Select
Application.EnableEvents = True
End If
End Sub
Private Sub worksheet_change(ByVal target As Range)
Um einen Text in Excel anzuzeigen, wenn Du mit der Maus über eine Zelle fährst, kannst Du VBA verwenden. Hier ist eine Schritt-für-Schritt-Anleitung:
VBA-Editor öffnen: Drücke ALT + F11, um den VBA-Editor zu öffnen.
Arbeitsblatt auswählen: Wähle im Projektfenster das Arbeitsblatt aus, in dem Du die Funktion implementieren möchtest.
Code einfügen: Kopiere und füge den folgenden Code in das Codefenster des Arbeitsblatts ein:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("C3:AG154")) Is Nothing Then
Select Case Target.Value
Case "ZA"
Target.AddComment "Zeitausgleich"
Target.Comment.Visible = False
Case "U"
Target.AddComment "Urlaub"
Target.Comment.Visible = False
' Füge hier weitere Fälle hinzu
End Select
End If
End SubSpeichern und schließen: Speichere Deine Änderungen und schließe den VBA-Editor.
Testen: Bewege die Maus über die Zellen in dem angegebenen Bereich, um zu sehen, ob der Text angezeigt wird.
Fehler: Kein Kommentar angezeigt
Lösung: Stelle sicher, dass Du die richtige Zellbereiche in Intersect angegeben hast und dass der Kommentar nicht bereits existiert.
Fehler: Makros funktionieren nicht
Lösung: Überprüfe die Makrosicherheitseinstellungen unter Datei > Optionen > Trust Center > Einstellungen für das Trust Center.
Fehler: Excel stürzt ab
Lösung: Achte darauf, dass Du keine Endlosschleifen im VBA-Code erzeugst, z.B. durch falsche SelectionChange-Ereignisse.
Falls Du keine VBA-Lösung verwenden möchtest, gibt es eine VBA-freie Alternative:
Daten > Datenüberprüfung.Eingabemeldung den Text, der angezeigt werden soll, wenn die Zelle aktiv ist.Diese Methode zeigt den Text jedoch nur an, wenn die Zelle ausgewählt wird, nicht beim Überfahren mit der Maus.
Du kannst die Select Case-Anweisungen im VBA-Code entsprechend anpassen, um weitere Werte und deren Beschreibungen hinzuzufügen.
Optimierung des Codes: Du kannst mehrere Case-Anweisungen in einer einzigen Zeile zusammenfassen, um den Code übersichtlicher zu gestalten.
Case "ZA", "U": Target.AddComment "Dein Text hier"Verwendung von Arrays: Nutze Arrays, um die zu prüfenden Werte und deren Kommentare zu speichern, was den Code flexibler macht.
1. Kann ich auch mehrere Zellen gleichzeitig bearbeiten?
Ja, du kannst den VBA-Code so anpassen, dass er mit mehreren Zellen gleichzeitig funktioniert.
2. Wie kann ich den Kommentar nach dem Erstellen wieder löschen?
Du kannst das folgende Kommando verwenden, um vorhandene Kommentare zu löschen:
If Not target.Comment Is Nothing Then target.ClearComments3. Funktioniert das in jeder Excel-Version?
Die vorgestellten Methoden sollten in den meisten modernen Excel-Versionen (ab Excel 2007) funktionieren, solange Makros aktiviert sind.
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