Microsoft Excel

Herbers Excel/VBA-Archiv

trim auf ganze Spalte

Betrifft: trim auf ganze Spalte
von: Michael Heering
Geschrieben am: 13.04.2003 - 12:15:27

Hallo Miteinander!

Kann mir jemand sagen, wie ich einen trim-Befehl auf eine gesamte Spalte anwenden kann?

Danke
Michael Heering

  

Re: trim auf ganze Spalte
von: Forum
Geschrieben am: 13.04.2003 - 12:49:38

Hallo Michael

da bleibt wohl nur die Möglichkeit mit einer Schleife


Sub Leerstellen()
'   erstellt von Hajo.Ziplies@web.de am 13.04.03
'   alle Leerstellen vor und nach der Zeichenkette entfernen
    Dim LoLetzte As Long
    Dim LoI As Long
    LoLetzte = 65536
    If Range("B65536") = "" Then LoLetzte = Range("B65536").End(xlUp).Row
    For LoI = 1 To LoLetzte
        Cells(LoI, 2) = Trim(Cells(LoI, 2).Value)
    Next LoI
End Sub

Gruß Hajo
Der Code wurde getestet unter Betriebssystem XP Pro und Excel Version XP SBE.
Bitte kein Mail, Probleme sollen im Forum gelöst werden.
Microsoft MVP für Excel

  

Vielen Dank Hajo
von: Michael Heering
Geschrieben am: 13.04.2003 - 12:56:18

.

  

Re: trim auf ganze Spalte
von: Knut
Geschrieben am: 13.04.2003 - 14:20:29

Wenn du schon in einer ganzen Spalte die Zellen abklappern willst, dann solltest du zumindest screenupdating, calculation und enableevents ausschalten, dann gehts min. doppelt so schnell.
Wenn du die Daten zuerst in ein Datenfeld einliest, gehts min. 10 mal schneller.
Knut

  

Re: trim auf ganze Spalte
von: Michael Heering
Geschrieben am: 13.04.2003 - 14:32:17

Hallo Knut!

Klingt interessant mit dem Datenfeld. Hast Du da vielleicht eine Lösung? Mit Datenfeldern kenne ich mich nicht aus.

Danke
Michael Heering

  

Re: trim auf ganze Spalte
von: Knut
Geschrieben am: 13.04.2003 - 14:41:12

Variant Datenfeld deklarieren, den Zellebereich dem Datenfeld
zuordnen, das Datenfeld(Lbound to UBound) in Schleife bearbeiten,
Datenfeld dem Zellbereich zuordnen.
Ein wenig willst du doch sicher selbst knobeln.
Knut

 

Beiträge aus den Excel-Beispielen zum Thema "trim auf ganze Spalte"