hey, danke claudius - es funzt. gleich noch 2 fragen obendrauf: 1. wann arbeitest du eigentlich? kommst du �berhaupt dazu? *g* 2. was hat das mit dem "wort" auf sich? -> for each wort in ar
wie das funktionieren kann peile ich �berhaupt nicht!? gru� > > > Ok.. Schauen wir mal... > > > Ungetestet... > > > > Und schon zu fr�h abgeschickt... > > > > > > > > Function Text_format(txt,breite) > > > Dim ar, zeile, text > > > ar = split(txt," ") > > > for each wort in ar > > > if len(zeile)+len(wort)<=breite then > > > zeile = zeile & " " & wort > > > else > > > text = text & mid(zeile,2) & vbCrLf > > > > zeile = " " & wort > > > > > end if > > > next > > > if zeile<>"" then text = text & mid(zeile,2) > > > Text_format = text > > > End function > > > > > > Claudius | [aspdecoffeehouse] als [email protected] subscribed | http://www.aspgerman.com/archiv/aspdecoffeehouse/ = Listenarchiv | Sie k�nnen sich unter folgender URL an- und abmelden: | http://www.aspgerman.com/aspgerman/listen/anmelden/aspdecoffeehouse.asp
