von klaus_harrer » Mo, 15.03.2004 20:06
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
Hallo
Ich seh wahrscheinlich den Wald vor Bäumen nicht
[code]
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
[/code]
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