Bei Klick auf Zelle Textgröße ändern, danach zurücksetzen
05.02.2024 14:18:04
SERA
in einer größeren Tabelle sind Daten (in der Range rgData) und darunter Kommentare (in der Range rgComment) eingetragen.
Um die Übersichtlichkeit zu wahren, ist die Textgröße der Kommentare 6 Punkt groß.
Beim der Präsentation der Tabelle muß ich gelegentlich größer zoomen , damit der Zuhörer:in/Anwender:in diese besser lesen kann.
Das ist umständlich und stört den Präsentationsflow.
Idealerweise würde beim Klicken auf eine der Zelle in rgComment die Textgröße automatisch vergrößert und Klicken auf eine irgendeine andere Zelle die Textgröße wieder zurückgesetzt werden.
Dafür habe ich folgenden Code:
Dim rgComment as Range
Set rgComment = Range("E19:BG19")
If Not Intersect(Target, rgComment) Is Nothing Then
With Target
.Font.Size = 12
Do
DoEvents
Loop Until Intersect(ActiveCell, Target) Is Nothing
rg.Font.Size = 6
End With
End If
Der Code funktioniert, wenn man ihn in Einzelschritten (F8) durchläuft.
Er funktioniert aber nicht, wenn er ohne Unterbrechung läuft.
Im ersten Fall (F8) wird die Schriftgröße geändert, im letzteren Fall ändern er die Schriftgröße nicht.
Auch eine Codeverzögerung über die sleep-Funktion (Windows-API-Funktion) hilft nicht weiter.
Meine Fragen sind: Warum funktioniert er nicht und was fehlt ihm, damit er tut, was er soll?
Für eure Hilfe bedanke ich mich.