Hallo,
Peter H. Beier schrieb:
> Danke für beide Antworten. Ich hatte mich schon gefreut. Nun
> werde ich
> das wohl lieber lassen!
Im Prinzip kannst Du Kommentare einfügen wenn Du Dir irgendeine
Bedingung ausdenkst die verhindert das diese in die Berechnung eingehen.
Auf die Schnelle also sowas:
=1+2+3+WENN(0;"Dein Kommentar")
Bloß wozu dient das Ganze überhaupt, ein Kommentar in einer Formel ist
schwer zu lesen (weil der die Formel verlängert und die Formelanzeige
bei langen Formeln sowieso nicht gut zu lesen ist), was spricht denn
gegen eine Notiz die genau dafür vorgesehen ist?
Zumal es sehr leicht ist ggf. die Übernahme einer Formel in eine Notiz
automatisch durchzuführen um sie dort kommentieren zu können ohne das Du
bei Formeländerung den Kommentar neu schreiben mußt oder die Formel
manuell neu in den Kommentar kopieren.
Folgender Code macht das im Prinzip:
Sub Main
x = ThisComponent.GetCurrentSelection
If x.supportsService("com.sun.star.sheet.SheetCell" ) then
If x.annotation.String = "" Then
x.annotation.String = x.FormulaLocal & CHR(13) & "#" &
CHR(13)
Else
For i = 1 To Len(x.annotation.String)
tmp = Mid(x.annotation.String,i,1)
if tmp = "#" Then
tmp2 =
RIGHT(x.annotation.String,Len(x.annotation.String)-i)
x.annotation.String = x.FormulaLocal &
CHR(13) & "#" & tmp2
End If
Next
End If
End if
End Sub
Verbesserungen wären, je nach Deinen Anforderungen, möglich.
Gruß
Jörg
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
