Den Wald vor Bäumen nicht

[klaus_harrer]

Hallo
Ich seh wahrscheinlich den Wald vor Bäumen nicht

Code: Alles auswählen

oCell(0) = oTabellenBlatt(0).getCellByPosition(3,Zeile)
oDatum = oTabellenBlatt(0).getCellByPosition(0,Zeile)
oCell(1) = oTabellenBlatt(0).getCellByPosition(3,Zeile + 1)
oTabellenBlatt(1).getCellByPosition(1,0).String = oTabellenBlatt(0).getCellByPosition(2,0).String 
'die eigentliche Funktion

While Len(oTabellenBlatt(0).getCellByPosition(0,Zeile).String) <> 0
While oCell(0).String = 0
Zeile = Zeile + 1
Wend
Print oCell(0).String
Print Zeile
Wend
End Sub

Die erste Schleife funzt. Die zweite nicht, ich weiss nicht warum.
Eigentlich dürfte " Print oCell(0).String" keinen Leerstring ausgeben, da Zeile Solange erhöht wird bis kein Leerstring in "Spalte 3" vorhanden ist. Doch " Print oCell(0).String" gibt einen Leerstring aus. Wahrscheinlich ist es ein ganz banaler Fehler,bloss ich seh ihn nicht.

MfG
Klaus

[openmind]

Code: Alles auswählen

While Len(oTabellenBlatt(0).getCellByPosition(0,Zeile).String) <> 0

	While oCell(0).String = 0
	         ^^^^^^^^
		'
		'  hoch zählen ohne Variablen in der Bedingung zu verändern?	
		'  Loopt das hier nicht?
		Zeile = Zeile + 1
	Wend

	Print oCell(0).String
	Print Zeile
Wend

[klaus_harrer]

Hallo

Wie gesagt Wald vor Bäumen nicht

Code: Alles auswählen

While Len(oTabellenBlatt(0).getCellByPosition(0,Zeile).String) <> 0
While Len(oCell(0).String) = 0
Zeile = Zeile + 1
oCell(0) = oTabellenBlatt(0).getCellByPosition(3,Zeile)
Wend
Print oCell(0).String
Print Zeile
Wend

Jetzt funktioniert es

MfG
Klaus