Leerzeichen vor Text löschen

Sub Erstes_Leerzeichen_ersetzen() Dim i As Integer ' i = Platzhalter fuer die einzelnen Zeilen in der Schleife Dim last As Integer ' last = Letzte befuellte Zeile last = Cells(Rows.Count, 4).End(xlUp).Row ' Letzte befuellte Zeile in Spalte 4 For i = 2 To last 'Die Schleife laeuft ab Zeile 2 in Spalte 4 bis zur letzten _ befuellten Zelle Cells(i, 4).Value = Replace(Cells(i, 4).Value, " ", "") 'Hier werden alle Leerzeichen _ geloescht Next i 'Die Schleife laeuft bis zur letzten befuellten Zeile End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Code: [Cc] Sub Erstes_Leerzeichen_ersetzen() Dim i As Integer Dim last As Integer With Application .ScreenUpdating = False .EnableEvents = False .Calculation = xlCalculationManual End With last = Cells(Rows.Count, 4).End(xlUp).Row For i = 2 To last Cells(i, 4).Value = LTrim(Cells(i, 4).Value) Next i With Application .ScreenUpdating = True .EnableEvents = True .Calculation = xlCalculationAutomatic End With End Sub

Hi
der Code braucht so lange, weil jedes Lesen und Beschreiben einer Zelle in Excel eine Reihe von Hintergrundaktionen auslöst, die einfach Zeit kosten und in der Schleife jedesmal wiederholt ausgeführt werden müssen.
einen Teil dieser Hintergrundaktionen kann man deaktivieren, dann läuft das ganze schon mal schneller ab.
Dazu such mal nach "GetMoreSpeed"
dort sollte beschrieben sein, welche Einstllungen du ändern musst, um den ablauf zu beschleunigen.
da das Ändern von Einstellungen immer eine kritische Sache ist (man sollte dem Anwender ja nichts verstellen) gibt es noch einen anderen Weg.
Dazu lädt man die Inhalte in ein Array, bearbeitet sie dort und schreibt dann das Array als ganzes zurück.
Eine Schleife über ein Array ist wesentlich schneller als eine Schleife mit Excelzellen, und beim Zurückschreiben des Arrays als ganzes werden die o.g. Hintergrundaktionen nur einmalig ausgeführt, so dass sie zeitlich nicht relevant sind.
das würde dann in etwa so aussehen und sollte ziemlich zügig sein:

Sub Erstes_Leerzeichen_ersetzen()
Dim arr
Dim i As Integer            ' i = Platzhalter fuer die einzelnen Zeilen in der Schleife
Dim last As Integer         ' last = Letzte befuellte Zeile
last = Cells(Rows.Count, 4).End(xlUp).Row
arr = range(cells(2, 4), cells(2, last)).value 'Werte ins Array lesen
For i = 1 To ubound(arr, 1)
arr(i, 1) = LTrim(arr(i, 1)
Next i
Range(Cells(2, 4), cells(2, last)).value = arr 'Array in Zellbereich zurückschreiben
End Sub

Gruß Daniel

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

314 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Leerzeichen vor Text löschen

9 Beiträge zum Forumthread Beiträge zu diesem Forumthread

314 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread