wie kann ich per Makro fürhrende Leerzeichen (keines, eines oder mehrere) entfernen ?
Gruß
Bernhard Stillger
wie kann ich per Makro fürhrende Leerzeichen (keines, eines oder mehrere) entfernen ?
Gruß
Bernhard Stillger
vielleicht reicht das ja schon ;-)
Bye
Nike
LTrim
Gruß hajo
Da es sich um ein recht komplexes Sheet handelt kann ich nicht mit einer Feld Formel arbeiten.
Es muß schon automatisiert, global gehen.
Eine weiterer, kreativer Vorschlag ?
Bernhard Stillger
Sempi
Danke.
Bernhard Stillger
das stimmt schon das Makro muß erst geschrieben werden. Aber was ist dann am starten des Makros zu viel Handarbeit??
Gruß hajo
Vielleicht als Makro ?
Bernhard Stillger
ein bischen was muss man schon tun.
Hokus Pokus geht halt nicht in EXCEL
Sub StartTrim()
For i = 1 to Range("A65536").End(xlup).Row
For n = 1 to 165
Cells(i,n).Value = LTrim(Cells(i,n).Value)
Next n
Next i
End Sub
Das ist keine Handarbeit, ... das ist Geistesarbeit :-),.... und noch nicht mal eine grosse.
Gruss Rainer
Sub Leerzeichen_links_weg()
Dim laR As Long, i As Long
laR = Cells(Rows.Count, 1).End(xlUp).Row
For i = 1 To laR
LTRIM(Cells(i, 1).Value)
Next i
End Sub
Gruß
bernhard Stillger
noch nicht, wird wohl wenn dann heute erst hier aufschlagen.
Melde mich auf jeden Fall, wenn's soweit ist ;-)
Bye
Nike
Bernhard Stillger
da war ich gemeint, daher Offtopic ;-)
Bye
Nike
Bye
Nike
Ist das nicht am Kürzesten?
Ciao
Alf
Bye
Nike
Hey, LEFT kannte ich noch gar nicht... ;-)
Hast Du eigentlich mein Mail bekommen?
Ciao
Alf
Um führende Leerzeichen in Excel zu entfernen, kannst Du die Funktion LTrim oder ein VBA-Makro verwenden. Hier ist eine Schritt-für-Schritt-Anleitung für beide Methoden.
1. Mit der Excel-Funktion LTrim:
=LTrim(A1)2. Mit VBA:
ALT + F11, um den VBA-Editor zu öffnen. Sub StartTrim()
Dim i As Long, n As Long
For i = 1 To Range("A65536").End(xlUp).Row
For n = 1 To 165
Cells(i, n).Value = LTrim(Cells(i, n).Value)
Next n
Next i
End SubProblem: Die Funktion LTrim funktioniert nicht.
Problem: Das Makro entfernt nur die führenden, nicht die nachfolgenden Leerzeichen.
RTrim-Funktion oder Trim, um auch nachfolgende Leerzeichen zu entfernen:
Cells(i, n).Value = Trim(Cells(i, n).Value)Wenn Du Excel leerzeichen am Anfang und Ende entfernen möchtest, kannst Du auch die TRIM-Funktion verwenden:
=TRIM(A1)
Diese Funktion entfernt sowohl führende als auch nachfolgende Leerzeichen.
Für den Fall, dass Du mit Access arbeitest, kannst Du die Trim-Funktion in Access VBA verwenden, um vba leerzeichen aus string entfernen.
Beispiel mit Excel-Formel:
" Beispieltext". =LTrim(A1) wird der Text in B1 zu "Beispieltext".Beispiel mit VBA:
TRIM, wenn Du sowohl führende als auch nachfolgende Leerzeichen entfernen möchtest.TRIM kann helfen, diese zu bereinigen.1. Wie kann ich führende Leerzeichen in mehreren Spalten gleichzeitig entfernen? Um führende Leerzeichen in mehreren Spalten zu entfernen, passe das VBA-Makro an, um mehrere Spalten zu durchlaufen.
2. Was ist der Unterschied zwischen LTrim und Trim in VBA?
LTrim entfernt nur die führenden Leerzeichen, während Trim sowohl führende als auch nachfolgende Leerzeichen entfernt.
3. Gibt es eine Formel, die auch nachfolgende Leerzeichen entfernt?
Ja, die TRIM-Funktion entfernt sowohl führende als auch nachfolgende Leerzeichen.