Makro und Button für Text in Zelle

[WorstCases]

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: Alles auswählen

 
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

Was muss ich ändern?

Gruß.
WorstCases

[turtle47]

Hi WorstCases,

folgendes sollte gehen:

Code: Alles auswählen

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

Schau Dir doch auch mal die super Homepage von Michael an.
Dort findest Du viele Informationen rund um OOo-Basic.

Viel Erfolg.

Jürgen

[WorstCases]

Ja, das hat funktioniert - Danke!

Gruß.
WorstCases