AW: Hier eines der Paradebeispiele:
Ramses
Hallo
"...Ich finde Bernd sieht gut aus...."
Kann ich nicht beurteilen, ich habe ihn noch nicht gesehen ;-)
Sub LeerzeichenEntfernen()
Dim Zelle As Range
Dim s As String
Debug.Print "Bernd: " & Now
For Each Zelle In Selection
For i = 1 To Len(Zelle)
If (Mid(Zelle, i, 1)) <> " " Then s = s & Mid(Zelle, i, 1)
Next i
Zelle.Value = s
s = ""
Next Zelle
Debug.Print Now
End Sub
Hier ein Beispiel das Boris auf fast die gleiche Frage mal erstellt hat.
Sub LeerzeichenEntfernen_mit_Power()
Debug.print "Boris: " & Now
Selection.Replace " ", ""
Debug.print Now
End Sub
Der Code macht das gleiche, nur wesentlich schneller und sauberer.
Erstelle mal 2 Saplten mit 65536 Zellen mit "Muster mann", Markiere die Spalte A und lass Bernd's Code laufen, anschliessend markiere die Spalte B und lass den zweiten Code laufen.
Nun kannst du die zeitlichen Ergebnisse im Direktfenster vergleichen ;-))
Sollten in etwa so aussehen
Bernd: 31.05.2004 13:52:55
31.05.2004 13:53:32
Boris: 31.05.2004 13:54:24
31.05.2004 13:54:28
Nun wirst du verstehen, warum alle so erstaunt sind über diesen "Wahnsinns Code".
Abgesehen davon, dass der Code nicht läuft wenn "Option Explicit" eingestellt ist, sollte bei einem renommierten Autor wie Bernd solche einfachen Fehler wie fehlende Deklarationen einfach nicht vorkommen ;-)
Gruss Rainer