Zellverweise / Formeln in Kommentarfeld
16.05.2024 15:37:27
Vincent Breith
ihr kennt sicher die Excelfunktion dass die zu einer Formel zugehörige Zelle farbig markiert wird wenn man die Zelle anklickt.
nun möchte ich nun aber dass dieses "Zellmarkieren" funktioniert wenn man mit dem Mauszeiger über die Zelle fährt.
Dieses würde deutlich schneller funktionieren wie jede Zelle anzuklicken.
Nun habe ich mit schon programmiert, dass die Formel automatisch in den Kommentar der entsprechenden Zelle geschrieben wird.
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Range("A1").Select ' Zelle A1 selectieren -->Start des Suchens nach blauen Feldern
Range(ActiveCell.Offset(0, 0), ActiveCell.Offset(50, 50)).Select ' 50 Zeilen und 50 Spalten werden in das Suchfenster genommen - Selectiert
For Each Zelle In Selection 'suche in jeder dieser markierten Zellen
If Zelle.HasFormula = True Then 'Zelle enthält eine Formel
Zelle.Select
If Zelle.Comment Is Nothing Then
Zelle.AddComment
End If
Zelle.Comment.Text Text:="" & Chr(10) & ""
Zelle.Comment.Text Text:=ActiveCell.Formula & Chr(10) & ""
Zelle.Locked = True 'Schutz aktivieren
Zelle.FormulaHidden = False 'Formel nicht ausblenden
Zelle.Interior.ColorIndex = 36
Else
If Zelle.Interior.ColorIndex = 37 Or Zelle.Interior.ColorIndex = 43 Then
'hier muss eine Eingabe erfolgen können
Else
Zelle.Locked = True 'Schutz aktivieren
Zelle.FormulaHidden = False 'Formel nicht ausblenden
End If
End If
Next
End Sub
Wie könnte ich nun die zur Formel zugehörenden Zellen (hier A1 und B1) farbig hervorheben oder die Schriftart auf Fett einstellen wenn sich die Maus darüber bewegt.
Hintergrund:
Wir arbeiten mit geschützten Excelblättern, bei denen man, nach ihrer Validierung, die Zelle nicht anklicken kann.
Vielen Dank für eure Ideen und Hilfe
Anzeige