OpenOffice.info

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