bester Weg ganze Spalten zu glätten (VBA)

Forumthread: bester Weg ganze Spalten zu glätten (VBA)
4 Beiträge zu diesem Forumthread
Anzeige

Forumthread: bester Weg ganze Spalten zu glätten (VBA)

10.04.2025 13:17:51

velo

Hallo zusammen,

was ist der effizienteste und robusteste Weg um mit VBA mehrere Spalten zu glätten?

Man kann natürlich mit einem Loop und der Trim-Funktion arbeiten, das ist aber bei >100.000 Datensätzen und einer Handvoll Spalten eher schlecht als recht.
Ich habe auch mit TextToColumns gearbeitet, Ergebnisse waren gut, bin mir aber ehrlicherweise nicht sicher wie robust das ganze ist, da es hier über ein Dutzend Funktions-Parameter gibt (welche Parameter sind wirklich wichtig, welche überflüssig?) und die Datensätze nicht immer gleich aufgebaut sind.

Freue mich schon auf eure Tipps :)

Danke und VG
velo

P.S. PQ kommt bei dieser Geschichte leider nicht in Frage

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: bester Weg ganze Spalten zu glätten (VBA)

10.04.2025 13:32:04

Fennek
AW: bester Weg ganze Spalten zu glätten (VBA)

10.04.2025 13:58:59

velo
AW: bester Weg ganze Spalten zu glätten (VBA)

10.04.2025 13:41:37

Daniel
AW: bester Weg ganze Spalten zu glätten (VBA)

10.04.2025 14:01:17

velo

AW: bester Weg ganze Spalten zu glätten (VBA)

10.04.2025 13:32:04

Fennek

Hallo,

VBA für einzelne Zellen ist recht langsam, aber wenn der gesamte Bereich zuerst in ein Array kopiert wird, dort "geglättet" und komplet wieder zurück geschrieben wird, sind Zeiten auch für 100.000 Zeilen im Sekundenbereich möglich.

Ohne Beispiel ist aber nur wenig konkretes zu sagen.

mfg

AW: bester Weg ganze Spalten zu glätten (VBA)

10.04.2025 13:58:59

velo

Hallo Fennek,

danke für den Tipp, hab es getestet und funktioniert einwandfrei!

VG
velo

AW: bester Weg ganze Spalten zu glätten (VBA)

10.04.2025 13:41:37

Daniel

Hi

a) Arbeite mit Arrays

dim A

Dim Z as long 

Dim S as Long

With Selection

    A = .Value

    For Z = 1 to UBound(A, 1)

        for S = 1 to UBound(A, 2)

            A(Z,S) = Trim(A(Z, S))

        Next

    Next

    .value = A

End With

b) erstelle ein leeres Tabellenblatt
Schreibe dort in den Zellbereiche, den du glätten willst, die Formel =Glätten(Tabelle1!A1)
Kopiere dann den Bereich und füge ihn als Wert in den alten Bereich ein

Gruß Daniel

AW: bester Weg ganze Spalten zu glätten (VBA)

10.04.2025 14:01:17

velo

Hallo Daniel,

auch dir danke für deinen Hinweis, habe es jetzt mit Arrays gelöst, da b) leider nicht in Frage kommt.

VG
velo

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!