per Makro einen Kommentar einfügen

[clag]

Hallo liebe Kenner und Könner,

Turtel47 mich auf ein Makro aufmerksam gemacht, welches er vor einiger Zeit generiert hat und meinem Wunsch "Bedingte Formatierungen" zu finden und kenntlich zu machen weitestgehend erfüllt.
viewtopic.php?f=2&t=18273#p76786
Ich habe nun zwei Änderungswünsche von denen einer wahrscheinlich recht leicht zu erfüllen ist, der andere wird vermutlich komplizierter.

1. anstelle des von Turtel47 zur Markierung angewendeten Rahmen hätte ich gern das der Zelle ein Kommentar ZB "auf diese Zelle wirkt eine BF" verpasst wird uns all Kommentare nach Beendigung des Makro angezeigt werden.
2. genial wäre es nun, wenn man die BF als Text in den Kommentar einfügen und anzeigen könnte

den Vorteil den ich dabei sehe ist, das man die Kommentare belassen kann und durch die Kommentar-Markierung in der Zelle hat man auch einen dauerhaften dezenten Hinweis auf eine BF
Der Rahmen von stört doch teilweise oder verändert die vorhandenen Rahmen und muss dann zurückgesetzt werden.

kann mir jemand konkret mit Code-Teilen helfen besonders Punkt 1 sollte doch durch einfachen Austausch der Zeile möglich sein

hier der Teil aus dem original Code von Turtel47, den man wohl für meine ersten Wunsch austauschen müsste

Code: Alles auswählen

       if BedFormat > 0 Then
       oBorder = oSheet.Tableborder 
       oBorderline = oBorder.TopLine
       oBorderline.innerlinewidth = 50
       oBorderline.color = RGB (36, 93, 219)
       oBereich.topBorder = oBorderline
       oBereich.leftBorder = oBorderline
       oBereich.rightBorder = oBorderline
       oBereich.bottomBorder = oBorderline
       'oBereich.cellbackcolor = RGB(236, 233, 216)'Hintergrundfarbe Zelle

Dank ahoi

[turtle47]

1. anstelle des von Turtel47 zur Markierung angewendeten Rahmen hätte ich gern das der Zelle ein Kommentar ZB "auf diese Zelle wirkt eine BF" verpasst wird uns all Kommentare nach Beendigung des Makro angezeigt werden.

Guckst Du mal hier nach.

[clag]

Hi Turtel47,

ja, genau bis dahin war ich auch schon gekommen aber mit keinem der beiden Code-Blöcke (so wie sie im Beispiel stehen, in deinen Code eingefügt) erreiche ich etwas
außer einer Fehlermeldung natürlich

da ist sicher noch "Feintuning" nötig bzw irgend welche Variablen oder Parameter muss man anpassen,
dabei laufe ich leider schon wieder auf Grund

Code: Alles auswählen

  oCell = oSheet.getCellByPosition(sp,ze)
  oCell.annotation.string="auf diese Zelle wirkt eine BF"

bringt auch nicht das gewünschte Ergebnis

[turtle47]

aber mit keinem der beiden Code-Blöcke (so wie sie im Beispiel stehen, in deinen Code eingefügt) erreiche ich etwas

Zeige bitte mal den Code von Dir um zu sehen was da nicht passt.

[clag]

Hi,
damit habe ich es zuletzt versucht

Code: Alles auswählen

Sub BF_suchen
   oDoc = ThisComponent
   oSheet = ThisComponent.CurrentController.getActiveSheet()
   oZell = oDoc.getCurrentSelection()
   oZell.supportsService("com.sun.star.sheet.SheetCellRange")
   oSelect=ThisComponent.CurrentSelection.getRangeAddress
   oSelectColumn=ThisComponent.CurrentSelection.Columns
   oSelectRow=ThisComponent.CurrentSelection.Rows
   CountColumn=oSelectColumn.getCount
   CountRow=oSelectRow.getCount
   Start_Column=oSelect.StartColumn
   End_Column=oSelect.EndColumn
   Start_Row =oSelect.StartRow
   End_Row=oSelect.EndRow
   For sp = Start_Column to End_Column
   For ze = Start_Row to End_Row
   oSelectSR = oSelect.StartRow + 1
   oSelectEC = oSelectColumn.getByIndex(CountColumn-1).getName
   oBereich = oSheet.getCellByPosition(sp,ze)   
   oBedingungen = oBereich.getPropertyValue( "ConditionalFormat" )
   BedFormat = oBedingungen.Count
   if BedFormat > 0 Then

  oCell = oSheet.getCellByPosition(sp,ze)
  oCell.annotation.string="auf diese Zelle wirkt eine BF" 
   
'   oBorder = oSheet.Tableborder
'   oBorderline = oBorder.TopLine
'   oBorderline.innerlinewidth = 150
'   oBorderline.color = RGB (36, 93, 219)
'   oBereich.topBorder = oBorderline
'   oBereich.leftBorder = oBorderline
'   oBereich.rightBorder = oBorderline
'   oBereich.bottomBorder = oBorderline
'   'oBereich.cellbackcolor = RGB(236, 233, 216)'Hintergrundfarbe Zelle
   end if
   next ze
   next sp
   msgbox "Die Überprüfung ist abgeschlossen!",64, "BF suchen"
End Sub

das läuft ohne Fehlermeldung ab, fügt aber auch keine Notizen ein ......

[turtle47]

Ersetze mal den If-Bereich durch folgendes:

....
if BedFormat > 0 Then
oBereich.annotation.string="auf diese Zelle wirkt eine BF"
end if
...

[clag]

hm..... da ändert sich scheinbar nichts

Bereich markiert
Makro aufrufen
MsgBox pop auf
ok

aber keine Notiz in/an den Zellen mit einer BF !?

[Karolus]

Hallo
In dem Bereich sind noch keine Notizen eingetragen, daher müssen die auch initialisiert werden:

Code: Alles auswählen

if ...
oSheet.getAnnotations.insertNew(obereich.celladdress(), "Zelle enthält ein BF")
end if

Gruß Karo

[komma4]

Bei mir funktioniert das Makro, auch ohne Änderung

[clag]

Hallo Karolus.

Tä tääh

ja das funzt prima


nun taucht für mich gleich die nächste Frage auf,
wie mach ich aus diesem Makro-recorder Code-Schnipsel

Code: Alles auswählen

dim args2(0) as new com.sun.star.beans.PropertyValue
args2(0).Name = "NoteVisible"
args2(0).Value = true

eine funktionierende Basiczeile die Notiz anzeigen ?




und besteht eine Chance meinen zweiten Wunsch zu realisieren also die BF auslesen und in die Notiz schreiben ?

[komma4]

setze die folgende Zeile hinter die STRING-Anweisung

Code: Alles auswählen

       oCell.Annotation.setIsVisible( TRUE )

[komma4]

und besteht eine Chance meinen zweiten Wunsch zu realisieren also die BF auslesen und in die Notiz schreiben ?

Ja, natürlich.

Die Bedingungen (oCell.Bedingungen) sind eine Aufzählung deren einzelne Elemente (oCell.Bedingungen.getByIndex(x)), die folgenden Eigenschaften haben (vom Typ):

Code: Alles auswählen

Formula1    string         
Formula2    string        
Operator     com.sun.star.sheet.ConditionOperator     
StyleName  string

Jetzt musst Du "nur noch" den Zellwert ermitteln und die Bedingung(en) durchgehen, welche zutrifft

XRAY, Dein Freund, zeigt Dir das alles.

[clag]

Hallo Komma4,

wenn ich die von dir vorgeschlagenen Zeile in das Makro einsetze, dann gibt es einen Basic Laufzeitfehler

ich habe schon verschiedene Schreibweisen probiert, das ändert aber auch nichts

[komma4]

Ich schrieb oben schon: bei mir funktioniert Dein Ursprungsmakro. Und hinter der Zeile

Code: Alles auswählen

  oCell.annotation.string="auf diese Zelle wirkt eine BF"

steht nun

Code: Alles auswählen

  oCell.Annotation.setIsVisible( TRUE )

und funktioniert naürlich auch.

[clag]

Hallo Komma4,

vielleicht setzt du etwas voraus was bei mir definitiv nicht existiert StarBasic Kenntnis oder Wissen
falls dein letzte Antwort irgendeine feinsinnige Information enthält, die kann ich folglich nicht aufnehmen

oder sollt es tatsächlich so sein, auf einem PC/ BS funktioniert ein Makro auf einem andern nicht ?