Seite 1 von 1

Makro und Button für Text in Zelle

Verfasst: Di, 08.07.2008 05:51
von 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

Re: Makro und Button für Text in Zelle

Verfasst: Di, 08.07.2008 06:55
von 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

Re: Makro und Button für Text in Zelle

Verfasst: Di, 08.07.2008 17:26
von WorstCases
Ja, das hat funktioniert - Danke!

Gruß.
WorstCases