noch eine Frage:
ich möchte einen laaangen String von Zeichen, deren Code kleiner 33 und größer 126 ist, befreien.
Das kann ich natürlich mit einer loop machen. Gibt es jedoch noch eine elegantere (schnellere) Methode?
Danke
Christian
Sub aa()
Dim s, i, t, x
s = WorksheetFunction.Rept("a b c d ", 4000)
MsgBox s
For i = 1 To Len(s)
t = Mid(s, i, 1)
Select Case Asc(t)
Case 33 To 126
x = x & t
End Select
Next
s = x
MsgBox s
End Sub