Leerzeichen entfernen bis letzte Zeile
25.11.2014 16:13:21
Peter
Ich habe folgenden Code, jedoch geht der nicht weiter als bis zur 10000 Zeile, möchte jedoch bis ganz runter laufen lassen, oder bis zur letzten Zeile der Tabelle.
Der Code entfernt alle alle Leerzeichen in der Spalte E von links.
Wie müsste ich den Code anpassen?
Option Explicit
Option Private Module
Sub LeerzeichenSpalteE_entfernen()
Dim i As Integer
Get_More_Speed
For i = 1 To 10000
Cells(i, 5) = LTrim(Cells(i, 5))
'Leerzeichen werden Links entfernt
Next
Get_More_Speed False
End Sub
P.s. wäre es möglich auf die eMail-Adresse peterlijaba@gmail.com zu senden?
Mit freundlichen Grüssen
Peter Scheuzger