RefreshAll funktioniert nicht
17.11.2021 06:36:01
Daniel
Um ein Tabellenblatt besser als PDF aufarbeiten und speichern zu können arbeite ich mit der folgenden Funktion um Kommentare in Zellen darzustellen
Wenn ich die Datei schließe und wieder öffne werden auch alle Kommentare in die entsprechenden Zellen eingetragen und können gelesen werden
Public Function Kommentar(Zelle As Range) As String
Application.Volatile
If Zelle.Cells.Count 1 Then Exit Function
On Error GoTo Fehler
Kommentar = Zelle.Comment.Text
Exit Function
Fehler:
Kommentar = ""
End Function
=Kommentar( Range des Kommentars )
Andere Formeln in der Tabelle werden aktualisiert; die Kommentare werden nicht sichtbar
Sub refreshcomments()
ActiveWorkbook.RefreshAll
End Sub
Anbei die Musterdatei : https://www.herber.de/bbs/user/149199.xlsm
Anzeige