If-Anweisung - Wenn-Anweisung

[achimgr]

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.

[steffn]

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".

[achimgr]

hallo steffn,

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

danke für deinen hinweis -stimmt natürlich.

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

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

ich habe das mir zurechtgebastelt, bisschen vba mit drin.

Probier mal "getcellbyName" statt "getcellrangebyName".

habe ich ersetzt, bis dahin kommt der code allerdings nicht.

[steffn]

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

danke für deinen hinweis -stimmt natürlich.

...

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

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, ...

[achimgr]

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.

[turtle47]

Hallo Achim,

warum folgst Du nicht der Empfehlung von Karolus und holst Dir die Informationen von Michaels Homepage 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: Alles auswählen

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 

Oder auch so:

Code: Alles auswählen

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

Viel Erfolg.

Jürgen

[achimgr]

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

[turtle47]

Hallo Achim,

auch Dir danke für die Hinweise (auch den mit der Shift-Taste )

Gerne geschehen. Der Text liest sich jetzt viel besser.

das paßt weitgehend auch dazu:

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 Kollegen mal nach dem Suchbegriff "Listener".

Viel Erfolg.

Jürgen