OpenOffice.info

Danke für den Tipp!

Hallo Weinstein,
hier befindest Du dich im "Calc-Forum", bring die Frage ins Forum "OOo_Basic/Java" (siehe Foren-Übersicht).

mfg
Gert

Hallo,

ich habe mit der Makroprogrammierung erst vor wenigen tagen angefangen und habe deshalb ein vermutlich einfaches Problem, dessen Lösung ich aber alleine nicht finde.

Ich habe eine Terminplanung in OOO-Calc, wobei in verschiedene Felder immer wieder die gleichen Daten eingetragen werden sollen.
Immerhin habe ich es geschafft, den Inhalt der aktuellen Zelle testweise auszugeben.
Danach wird der Cursor auf ein anderes Feld gesetzt, hier sollte dann der unformatierte Inhalt des gemerkten Feldes eingetragen werden, ohne die neue Formatierung (Hintergrundfarbe) zu ändern.
Leider wird der Inhalt bei meinem Makro nicht eingefügt, ich habe eher den Eindruck, dass die Variable "oText" trotz globaler Definition nur lokal ist. Bestimmt sind aber wohl noch andere Fehler drin.

Kann mir jemand helfen?
Gruß, weinstein

Und hier mein Programmcode:

[i]REM --- Globale Variable für diese Makros
Public oText as String

sub kopiere_text
rem ----- der Inhalt des Feldes soll kopiert werden ---
rem define variables
Dim oTabellenblatt as Object
Dim oCalcDokument as Object
rem ----------------------------------------------------------------------
rem ----- Dokument und Tabelle auswählen
oCalcDokument = ThisComponent
oTabellenblatt = ThisComponent.Sheets().getByName( "B_Terminplan" )
oSelektion = oCalcDokument.getCurrentSelection()
rem ----------------------------------------------------------------------
oText = oSelektion.String
MsgBox oText
end sub

sub fuege_text_ein
rem ----- der Inhalt des gemerkten Feldes soll hier eingefügt werden ---
rem define variables
Dim oCalcDocument as Object
Dim oTabellenblatt as Object
rem ----------------------------------------------------------------------
rem ----- Dokument und Tabelle auswählen
oCalcDokument = ThisComponent
oTabellenblatt = ThisComponent.Sheets().getByName( "B_Terminplan" )
oSelektion = oCalcDokument.getCurrentSelection()
rem ----------------------------------------------------------------------
oSelektion.String = oText
MsgBox oText
end sub
[/i]