OpenOffice.info

Hallo Achim,

[quote="achimgr"]auch Dir danke für die Hinweise (auch den mit der Shift-Taste ;-) )[/quote]
Gerne geschehen. Der Text liest sich jetzt viel besser. :D

[quote="achimgr"]das paßt weitgehend auch dazu:[/quote]
Da bin ich anderer Meinung.
Dafür sollte man schon einen neuen Thread aufmachen.(oder heisst es "neues Thread"?)

Soweit schon mal vorab. Für Dein Vorhaben müsste man einen sogenannten "Listener" per Makro aufrufen der die ganze Zeit im Hintergrund "lauscht", ob dort in dem benannten ein Mausklick stattfindet.

Suche also hier im Forum oder bei den netten [url=http://www.oooforum.org/forum/]Kollegen[/url] mal nach dem Suchbegriff "Listener".

Viel Erfolg.

Jürgen

Hallo Jürgen,
auch Dir danke für die Hinweise (auch den mit der Shift-Taste ;-) )
Ich bin schon viel gelesen -auch in Michaels Homepage- verstehe es aber oft nicht.
Dein Code-Beispiel ist für mich als Neuling natürlich super - vielen Dank.

Wo wir gerade so nett plaudern - das paßt weitgehend auch dazu:

Kann Basic auch die Zellen überwachen?
Also zB.:
Wenn ich Zelle A3 (oder eine Zelle im Bereich A1:A100) anklicke, dann öffnet sich eine -im VBA heißt es Userform-
also eine von mir gestaltete Eingabemaske (muss ich auch noch lernen)


MfG Achim

Sub Test1
myDoc = thisComponent
mySheet = myDoc.sheets(2)
mycell = mysheet.getcellrangebyName("A1")
if mycell.Value = 1 then
mysheet.getcellrangebyName("B1").String = "Achim"
else
mysheet.getcellrangebyName("B1").String = "Sabine"
end if
End Sub 

Sub Test2
if thisComponent.Sheets(2).getcellrangebyName("A1").value = 1 then
thisComponent.Sheets(2).getcellrangebyName("B1").string = "Achim"
else
thisComponent.Sheets(2).getcellrangebyName("B1").string = "Sabine"
end if
End Sub

Hallo Achim,

warum folgst Du nicht der Empfehlung von Karolus und holst Dir die Informationen von Michaels [url=http://www.dannenhoefer.de/faqstarbasic/WiekannmanWerteeinerZellelesenundschreib.html#Zweig173]Homepage[/url] die echt klasse ist.

Ausserdem wäre es schön, wenn Du Dich bemühen würdest, die Shifttaste mal öffters zu gebrauchen.
Deine Texte lesen sich extrem schlecht wenn alles kleingeschrieben ist. Vielen Dank.
Oder ist die Shifttaste defekt?

Hier mal ein klassischer Code:
[code]Sub Test1
myDoc = thisComponent
mySheet = myDoc.sheets(2)
mycell = mysheet.getcellrangebyName("A1")
if mycell.Value = 1 then
mysheet.getcellrangebyName("B1").String = "Achim"
else
mysheet.getcellrangebyName("B1").String = "Sabine"
end if
End Sub [/code]

Oder auch so:
[code]Sub Test2
if thisComponent.Sheets(2).getcellrangebyName("A1").value = 1 then
thisComponent.Sheets(2).getcellrangebyName("B1").string = "Achim"
else
thisComponent.Sheets(2).getcellrangebyName("B1").string = "Sabine"
end if
End Sub[/code]

Viel Erfolg.

Jürgen

hi,
is nur ein kleiner test.
wenn in a1 eine 1 steht, dann schreib in b1 (gleiches sheet) "achim", sonst schreib in b1 "sabine"
ich versuche nur rauszufinden was ich überhaupt für eine code schreiben muss, damit das funktioniert.
aber es klappt nicht.

[quote="achimgr"][quote="steffn"]1. Woher soll jemand anderes wissen, was deiner Meinung nach nicht an dem Macro funktioniert, wenn du es nicht schreibst?[/quote]
danke für deinen hinweis -stimmt natürlich.[/quote]
...

[quote="achimgr"]ich erhalte die msgbox:
[i]basic-laufzeitfehler
sub oder function-prozedur nicht definiert[/i]
[u]if range("A1")=1 then[/u] im code ist makiert.[/quote]
Damit sagt Open Office dir, dass es "range" für eine Prozedur hält und diese nicht kennt.
"range" kann alleine nicht funktionieren.


Da du bisher nicht mitgeteilt hast, was da passieren soll, ...

hallo steffn,

[quote="steffn"]1. Woher soll jemand anderes wissen, was deiner Meinung nach nicht an dem Macro funktioniert, wenn du es nicht schreibst?[/quote]
danke für deinen hinweis -stimmt natürlich.

ich erhalte die msgbox:
[i]basic-laufzeitfehler
sub oder function-prozedur nicht definiert[/i]
[u]if range("A1")=1 then[/u] im code ist makiert.

[quote="steffn"]2. Der Teil "pSheet=ThisComponent.sheets.getByName("tabelle3")
if range("A1")=1 then" ergibt für mich keinen Sinn.[/quote]
ich habe das mir zurechtgebastelt, bisschen vba mit drin.

[quote="steffn"]Probier mal "getcellbyName" statt "getcellrangebyName".[/quote]
habe ich ersetzt, bis dahin kommt der code allerdings nicht.

1. Woher soll jemand anderes wissen, was deiner Meinung nach nicht an dem Macro funktioniert, wenn du es nicht schreibst?

2. Der Teil "pSheet=ThisComponent.sheets.getByName("tabelle3")
if range("A1")=1 then" ergibt für mich keinen Sinn.

3. Fehlermeldungen beachten und teilen ist immer eine gute Sache.

4. Probier mal "getcellbyName" statt "getcellrangebyName".

hallo an alle,
ich versuche mich in BASIC
warum funktioniert mein makro nicht?

sub test
pSheet=ThisComponent.sheets.getByName("tabelle3")
if range("A1")=1 then
thisComponent.Sheets(2).getcellrangebyName("B1").string = "Achim"
else
thisComponent.Sheets(2).getcellrangebyName("B1").string = "Sabine"
endif
end sub

wo ist der / wo sind die fehler?
danke für eure hilfe.