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
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen