OpenOffice.info

Hallo Leute.

@F3K Total
Oooooh welch Schande über mich. :oops:
Solch simple Schleifen hatte ich vor 20 Jahren in meinem Atari 800Xl erstellt, und bis heute alles vergessen. Ich hatte mal wieder viiiel zu kompliziert gedacht. Nu fiel es mir aber wieder wie Schuppen von den Augen, als ich die Lösung sah. Es geht aber auch ohne die Klammern.

Ich Danke dir vielmals. Es funktioniert Perfekt :D.



@Karo
[quote]
Mir ist das etwas zu abstrakt, möchtest du berichten welches Problem du lösen willst
[/quote]
Sei mir net bös, aber diesmal nicht. Ich hab mein Ziel mit der Lösung erreicht. Und außerdem wäre die Umschreibung noch abstrakter.


@clag
Auch dir ein Danke schön für dein Vorschlag. :)



Gruß
balu

sub CountWithThree
	Dim oDoc As Object
	Dim oSheet As Object
	oDoc = ThisComponent
	oSheet = oDoc.Sheets.getByIndex(0)
	dim rx as integer
	rx = 1
	
	for ox = 2 to 4
	rx = 1
	oSheet.getCellByPosition(ox,1).value = ox
		for ix = ox to 19 step +3 
		oSheet.getCellByPosition(ox,rx).value = ix
		rx = rx+1 
		next
	next
end sub

Hallo Balu,

da war wohl jemand schneller, meine Idee dazu ist ähnlich
[code]
sub CountWithThree
Dim oDoc As Object
Dim oSheet As Object
oDoc = ThisComponent
oSheet = oDoc.Sheets.getByIndex(0)
dim rx as integer
rx = 1

for ox = 2 to 4
rx = 1
oSheet.getCellByPosition(ox,1).value = ox
for ix = ox to 19 step +3
oSheet.getCellByPosition(ox,rx).value = ix
rx = rx+1
next
next
end sub[/code]

Hallo Balu
Mir ist das etwas zu abstrakt, möchtest du berichten [u]welches[/u] Problem du lösen willst - dann kann man eher beurteilen [u]wie[/u] das lösbar ist.

Gruß Karo

sub Zaehlen
for i=2 to 4
   print "i: "+i
   for k=i to (i+17) step 3
      print "k: "+k
   next k
next i
end sub

Versuch es mal hiermit:
[code]sub Zaehlen
for i=2 to 4
print "i: "+i
for k=i to (i+17) step 3
print "k: "+k
next k
next i
end sub[/code]

G R

For ol = 2 to 4
oVari1 = "Eintrag" & ol
	For lb = 2 to 17 step 3
	oVari2 = "Titel" & lb 
		print oVari1
		print oVari2
	Next lb
?????

a = 2
b = 2
c = 17
For ol = a to a+2
oVari1 = "Eintrag" & ol
	For lb = b to c step 3
	oVari2 = "Titel" & lb 
		print oVari1
		print oVari2
	Next lb
?????

Guten Tach ihr Könner :-)

Ich blicke durch Varible "Verschleifung" nicht durch. Verzeiht wenn ich nicht die richtigen Ausdrücke kenne.

Also folgende Problematick.
Ich habe 2 verschiedene Variablen die sich unterschiedlich in einer Schleife verhalten sollen.

Die 1. Vari soll von 2 zu 4 zählen.
Die 2. Vari zählt von 2 zu 17 in 3er Schritten (2, 5, 8...17) wenn Vari 1 gleich 2 ist.

Es soll also dann wie folgt aussehen, abstrakt betrachtet.
Vari1 = 2
Vari2 = 2, 5, 8 bis zu 17
Vari1 = 3
Vari2 = 3, 6, 9 bis zu 18
Vari1 = 4
Vari2 = 4, 7, 10 bis zu 19

Ungefährer Ablauf wäre
[code]
For ol = 2 to 4
oVari1 = "Eintrag" & ol
For lb = 2 to 17 step 3
oVari2 = "Titel" & lb
print oVari1
print oVari2
Next lb
?????
[/code]
Oder anders Formuliert
[code]
a = 2
b = 2
c = 17
For ol = a to a+2
oVari1 = "Eintrag" & ol
For lb = b to c step 3
oVari2 = "Titel" & lb
print oVari1
print oVari2
Next lb
?????
[/code]
Wie müsste das ganze jetzt aussehen, damit a b c sich in der richtigem Reihenfolge erhöhen, und wie bekomme ich diese Erhöhung überhaupt Hin?
Meine Bemühungen If-Then-Else, oder IIF einzusetzen scheitern an meinem Durchblick, der irgendwann verloren ging. Ich weiß das es traurig ist, aber es ist halt leider so. :oops:

Und ja, ich Suche, lese und Experimentiere, aber ich kriegs net in meinem Kopf. Selbst diese Seiten bringen nicht den zündenden Funken.
http://www.it-academy.cc/article/1558/Fallunterscheidungen+in+Open+Office+Basic.html
http://www.it-academy.cc/article/1557/Eingabedialoge+in+Open+Office+Basic.html
http://de.ooo-info.org/workshops/einstieg.html

Könnte mir da jemand des Rätsels Lösung nennen? Wäre wirklich echt lieb.
Bedanke mich schon mal im voraus für eure Bemühungen.


Gruß
balu