✔ Zeilenvorschub aus Variable entfernen

[GerhardSchrader]

Hallo ich möchte gerne Zeilenvorschub aus Variabeln entfernen. Aber irgendwie haut das nicht hin. Vielleicht hat ja einer von euch ein Tip.

Hier der Code:

For i = 1 To Len(wetterart1)
If Mid$(wetterart1, i, 1) = Chr$(13) Then wetterart = wetterart & " "
If Mid$(wetterart1, i, 1) = Chr$(10) Then wetterart = wetterart
If Mid$(wetterart1, i, 1) <> Chr$(10) Or Mid$(wetterart1, i, 1) <> Chr$(13) Then wetterart = wetterart & Mid$(wetterart1, i, 1)


Next i

Das Problem ist das der Zeilenvorschub chr$(10) und chr$(13) weiterhin drinn bleiben.

Blinky

 

[Shakie]

Verwende doch einfach die Replace-Funktion:

OhneZeilenvorschub=vba.Replace(MitZeilenvorschub,vbCrLf,vbNullString)

vbCrLf ist gleichbedeutend mit Chr$(13)+Chr$(10)

 

[GerhardSchrader]

Danke für deine Hilfe. Hab es jetzt hinbekommen .

Blinky