Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
900to904
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
900to904
900to904
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Leerzeichen entfernen

Leerzeichen entfernen
25.08.2007 12:21:00
Larissa
Hallo,
nun habe ich da noch eine Frage.
Wie kann ich das folgende Makro nur auf die Spalte A beschränken?

Sub leerzeichen_entfernen()
Dim cells As Range
For Each cells In ActiveSheet.UsedRange
cells = LTrim(cells)
Next cells
End Sub


Vielen Dank für Eure Hilfe,
Larissa

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

Betreff
Datum
Anwender
Anzeige
AW: mit Activesheet.usedrange.columns(1) owt
25.08.2007 12:27:00
Daniel
Gruß, Daniel

AW: mit Activesheet.usedrange.columns(1) owt
25.08.2007 13:12:11
Larissa
Hallo,
Meinst Du so:

Sub leerzeichen_entfernen()
Dim cells As Range
For Each cells In ActiveSheet.UsedRange.Columns(1)
cells = LTrim(cells)
Next cells
End Sub


das funktioniert leider nicht, oder habe ich das falsch verstanden?
Lieben Gruß,
Larissa

AW: mit Activesheet.usedrange.columns(1) owt
25.08.2007 13:27:01
Daniel
HI
ja, so wars gedacht.
allerdings ist es keine clevere Idee, einen von VBA verwendeten Begriff (cells) nochmal als Variablenbezeichnung zu verwenden.
so sollte es funktionieren:

Sub leerzeichen_entfernen()
Dim Zelle As Range
For Each Zelle In ActiveSheet.UsedRange.Columns(1).cells
Zelle = LTrim(Zelle)
Next Zelle
End Sub


Gruß, Daniel

Anzeige
AW: mit Activesheet.usedrange.columns(1) owt
25.08.2007 13:32:50
Larissa
Ja Klasse! So klappt es.
Vielen Dank, Daniel.
Lieben Gruß,
Larissa

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige