von Stephan » Mo, 01.08.2011 22:48
z.B. mittels benutzerdefinierter Funktion.
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
- Dateianhänge
-
- Beispiel_fuer_bedingten_Kommentar.ods
- (9.94 KiB) 30-mal heruntergeladen
z.B. mittels benutzerdefinierter Funktion.
Auf die Schnelle beispielsweise:
[code]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[/code]
Gruß
Stephan