Live-Forum - Die aktuellen Beiträge
Datum
Titel
23.04.2024 17:41:19
Link erstellen mit Formel oder VBA?
23.04.2024 17:00:22
Summe und Ausgabe
23.04.2024 16:27:34
Excel Starthinweis - Arbeitsmappenleistung überprüfen ...
23.04.2024 16:15:16
Mittels VBA vordefinierte Kommentare in Zellen einfügen?
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
812to816
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
812to816
812to816
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Leerzeichen löschen

Leerzeichen löschen
26.10.2006 12:25:28
Fritz
Hallo!
Ich habe in der spalte a verschiedene eintragungen. bei manchen sind vorher leerzeichen enthalten . gibts eine möglichkeit die leerzeichen mit eoinem makro vor dem ersten buchstaben oder zahl zu löschen?
Danke

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Leerzeichen löschen
26.10.2006 12:47:31
Uduuh
Hallo,
ja, die gibt es.
Warum benutzt du nicht die Funktion GLÄTTEN?
Gruß aus’m Pott
Udo

AW: Leerzeichen löschen
26.10.2006 12:48:51
Heiko
Hallo Fritz,
Bereich wo was passieren soll markieren und das Makro starten, fertig.

Sub TrimmenT()
Dim rngCells As Range
Application.ScreenUpdating = False
For Each rngCells In Selection
rngCells = LTrim(rngCells)
Next rngCells
Application.ScreenUpdating = True
End Sub

Gruß Heiko
PS: Rückmeldung wäre nett !
AW: Leerzeichen löschen
ransi
Hallo Fritz
Wenn deine Daten in Spalte A versuch mal dies:


Option Explicit
Public Sub test()
Dim arr
Dim L As Long
Dim letzte As Long
letzte = Range("A65536").End(xlUp).Row
arr = Range("A1:A" & letzte)
For L = 1 To UBound(arr)
    arr(L, 1) = WorksheetFunction.Trim(arr(L, 1))
Next
Range("A1:A" & letzte) = arr
End Sub


ransi
ransi
Anzeige
AW: Leerzeichen löschen
26.10.2006 13:09:59
Fritz
Danke!
funktioniert

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige