Hallo zusammen,
ich habe ein kleines VBA Makro geschieben das in einer Spalte alle Leerzeichen löscht.
Sub Datenvorbereitung()
'löscht überzählige Leerzeichen
Application.ScreenUpdating = False
Dim i As String, Addresse As String
Range("F7").Activate
Addresse = ActiveCell.Address
Do Until (ActiveCell.Value = "")
ActiveCell.Offset(0, 2).Formula = "=TRIM(" & Addresse & ")"
i = ActiveCell.Offset(0, 2).Value
ActiveCell.Value = i
ActiveCell.Offset(0, 2).Delete
ActiveCell.Offset(1, 0).Select
Addresse = ActiveCell.Address
Loop
EndSub
Nun ist meine Frage wie kann man diesen Code noch auf Geschwindigkeit optimieren, da ich das ganze in gut 75.000 Zellen machen muss.
Immo läuft das Makro gut 10 Min. das ist mir eindeutig zu lang, da das nur eine Vorbereitung für ein anderes Makro werden soll.
Bin für alle Vorschläge dankbar!
Gruß
Paul