Hallo Heinz,
Heinz Kiesewetter schrieb:
ich beschäftige mich gerade mit Makros (Win xp oo3.0).
Das Beispiel aus der F1-Hilfe unter "OpenOffice.org Basic" im Index
"Next-Anweisung", läuft bei mir nicht.
aua ..das sieht auch böse zerschossen aus (ich betreibe nachher mal
Ursachenforschung)
Wer kann mir sagen, wie man das ändern muß, damit es läuft?
nimm das als Beispiel:
Sub SortierenB
Dim sEntry(9) As String
sEntry(0) = "Jerry"
sEntry(1) = "Uwe"
sEntry(2) = "Thorsten"
sEntry(3) = "Manfred"
sEntry(4) = "Erwin"
sEntry(5) = "Timo"
sEntry(6) = "Karsten"
sEntry(7) = "Regina"
sEntry(8) = "Christiane"
sEntry(9) = "Uta"
For iCount = 0 To 9
For iCount2 = iCount + 1 To 9
If sEntry(iCount) > sEntry(iCount2) Then
sTemp = sEntry(iCount)
sEntry(iCount) = sEntry(iCount2)
sEntry(iCount2) = sTemp
Endif
Next iCount2
Next iCount
For iCount = 0 To 9
Print sEntry(iCount)
Next iCount
End Sub
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
