Auf die Schnelle beispielsweise:
Code: Alles auswählen
Function BeKomm(Tabelle As String, Zielzelle As String, Quellzelle)
'Tabelle ist die zu verwendende Tabelle
'Zielzelle (als String angegeben) ist die Zelle mit bedingtem Kommentar
'Quellzelle ist die Zelle die den zu verwendenden Kommentar enthält (dieser muß dort entsprechend berechnet werden)
With ThisComponent.Sheets().getByName(Tabelle)
kommentar = Quellzelle
.getCellRangeByName(Zielzelle).Annotation.String = kommentar
End With
End Function
Gruß
Stephan