Makro auf bestimmten Zellen/Zeilen anwenden (Kommentar)
26.09.2023 12:30:21
H.Rene
ich hab folgendes Makro mal gefunden und es funktioniert soweit gut.
Sub FitComments()
'Updateby20140325
Dim xComment As Comment
For Each xComment In Application.ActiveSheet.Comments
xComment.Shape.TextFrame.AutoSize = True
Next
End SubDa das File immer größer wird, dauert die Ausführung auch immer länger -> jedes Mal wird jedes Comment formatiert.
Ich hab es auch mit folgenden Befehlen beschleunigt.
With Application 'Makro beschleunigen Start
.ScreenUpdating = False
.EnableEvents = False
.Calculation = xlCalculationManual
End WithJetzt hab ich verschiedene Versuche unternommen, um das Makro nur auf markierte Zellen bzw. Zeilen anzuwenden.
Jedoch bekomme ich entweder eine Fehlermeldung (z.B. Typen unverträglich) oder es läuft wieder über das ganze Blatt.
Hab nur bescheidene VBA Kenntnisse und such mir die Sachen im Internet zusammen.
Den Code dann dementsprechend adaptieren funktioniert meistens, aber hier find ich keine Lösung.
Kann mir jemand beim fehlenden Puzzlestück helfen? :)