OpenOffice.info

Ja, das hat funktioniert - Danke!

Gruß.
WorstCases

REM --- Hier wird Hallo in Zelle1 eingefügt
Sub Zelle1_Hallo
	oCell=thisComponent.sheets.getbyname("HauptTabelle").getcellrangebyname("A1")
	oCell.string = "Hallo"
End Sub

REM --- Hier wird Zelle1 wieder gelöscht  
Sub Zelle1_Reset
	oCell=thisComponent.sheets.getbyname("HauptTabelle").getcellrangebyname("A1")
	oCell.string = ""
End Sub

Hi WorstCases,

folgendes sollte gehen:[code]
REM --- Hier wird Hallo in Zelle1 eingefügt
Sub Zelle1_Hallo
oCell=thisComponent.sheets.getbyname("HauptTabelle").getcellrangebyname("A1")
oCell.string = "Hallo"
End Sub

REM --- Hier wird Zelle1 wieder gelöscht
Sub Zelle1_Reset
oCell=thisComponent.sheets.getbyname("HauptTabelle").getcellrangebyname("A1")
oCell.string = ""
End Sub[/code]

Schau Dir doch auch mal die super [url=http://www.dannenhoefer.de/faqstarbasic/WiekannmanWerteeinerZellelesenundschreib.html#Zweig171]Homepage[/url] von Michael an.
Dort findest Du viele Informationen rund um OOo-Basic.

Viel Erfolg.

Jürgen

 
REM --- Hier soll Hallo in Zelle1 eingefügt werden
  Sub Zelle1_Hallo
    thisComponent.sheets().getbyname("HauptTabelle").getcellrangebyname("Zelle1").value = "Hallo"
  End Sub
 
REM --- Hier sill Zelle1 wieder gelöscht werden    
  Sub Zelle1_Reset
    thisComponent.sheets().getbyname("HauptTabelle").getcellrangebyname("Zelle1").value = ""
  End Sub

Hallo Leute,

auf Knopfdruck (Button) mit einem Makro würde ich gerne einer Zelle einen bestimmten Inhalt, z. B. "Hallo" zuweisen bzw resetten. Beim Reset soll die Zelle einfach wieder leer sein, also auch keine "0" beinhalten.
Ich habe mal ein wenig experimentiert - bin aber nicht erfolgreich gewesen.

Mein Problem:
1. Der Text wird überhaupt nicht eingefügt. Liegt das an ".value"? Inwiefern muss der Code abgeändert werden, wenn Text eingefügt werden soll?
2. Die Zelle wird ncht gelöscht, es wird lediglich eine "0" angezeigt.

Hier meine Versuche:

[code]
REM --- Hier soll Hallo in Zelle1 eingefügt werden
Sub Zelle1_Hallo
thisComponent.sheets().getbyname("HauptTabelle").getcellrangebyname("Zelle1").value = "Hallo"
End Sub

REM --- Hier sill Zelle1 wieder gelöscht werden
Sub Zelle1_Reset
thisComponent.sheets().getbyname("HauptTabelle").getcellrangebyname("Zelle1").value = ""
End Sub[/code]

Was muss ich ändern?

Gruß.
WorstCases