Office: Hilfe bei Programmierung

Hi muss in der Schule etwas Programmieren, dort klappt es hier aber nicht.

For m = 1 To 148
Länge = Len(Daten(1, m))
Stelle = 0
Do
Stelle = 1 + Stelle
Loop Until Daten(3, m) = Mid(Daten(1, m), Stelle, Länge) = " "
Next

m Stelle und Länge sind als Integer deklariert, Daten als Variant...

Alles klappt außer die Zeile "Stelle = 1 + Stelle" da´wird immer ein fehler angezeigt und die Programmierung stoppt. Umformungen meiner Programmierung helfen mit nicht weiter, da ich diese Art gelernt hab und deswegen dem Lehrer auch diese Zeigen muss. Der Unterschied scheint in Excel zu liegen?!, hab bis SP3 geupdatet...

Kann mir jemand helfen??

 

Hallo!

Wenn deine Until-Bedingung nicht erfüllt wird, dann wird Stelle immer weiter hochgezählt. Wächst Stelle also über 32768 hinaus, so kommt es zum Überlauf.

 

Ja ich weiß dass der dann überläuft aber, ich weiß den Grund nicht, er soll ja laufen bis er die Stelle " " findet, aber er findet sie nicht! Verstehe nicht warum, in der Schule hat diese Programmierweise funktioniert :-(

 

Hallo!

Ich kenne ja deine Werte nicht, die sich im Array "Daten" befinden, aber deine Abbruchbedingung
Loop Until Daten(3, m) = Mid(Daten(1, m), Stelle, Länge) = " "
weist zum einen ZWEI Gleichheitszeichen auf, zum anderen ist der String "Mid(Daten(1, m), Stelle, Länge)" immer genauso lang wie "Daten(1, m)", denn das definierst du ja so durch die Variable "Länge".