Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1452to1456
1452to1456
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA: Führendes Leerzeichen löschen

Forumthread: VBA: Führendes Leerzeichen löschen

VBA: Führendes Leerzeichen löschen
02.11.2015 10:57:51
Manfred
Hallo Excelfreunde,
in der Recherce bin ich zwar fündig geworden, nur klappt es nicht, was ich erreichen möchte.
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, 2).Value)
Next i
End Sub
Die Anzahl der Einträge wird in Spalte A ermittelt und das führende Leerzeichen soll ich Spalte B entfernt werden.
Was ist hier noch falsch an dem VBA, denn das führende Leerzeichen wird nicht wie gewünscht entfernt?
Gruß Manfred

Anzeige

9
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA: Führendes Leerzeichen löschen
02.11.2015 11:03:05
Daniel
Hi
du musst den Funktionswert auch in die Zelle schreiben: 

cells(i, 2).Value = LTrim(Cells(i, 2).Value)
Gruß Daniel

AW: VBA: Führendes Leerzeichen löschen
02.11.2015 11:14:37
Manfred
Hallo Daniel,
danke das funktioniert jetzt, dauert bei ca. 100.000 Datensäten nur recht lange. Gibt es vielleicht auch eine Möglichkeit über den Befehl ersetzen? Schwierigkeit dabei ist scheinbar, das nur das führende Leerzeichen ersetzt werden soll.
Gruß Manfred

Anzeige
AW: VBA: Führendes Leerzeichen löschen
02.11.2015 12:25:29
RPP63
Hi!
Klar, 100.000*2 Zellzugriffe kosten Zeit!
Schreibe in eine Hilfsspalte in den gesamten Bereich die Formel =GLÄTTEN(B1)
(nicht per Schleife!) 
Range("PQS2:PQS100000").Formula = "=TRIM(B2)"

Kopiere den Bereich und füge ihn als Wert in B ein und lösche die Hilfsspalte.
Gruß Ralf

Anzeige
AW: VBA: Führendes Leerzeichen löschen
02.11.2015 12:52:48
Daniel
wobei man beachten muss das Glätten nicht nur die führenden Leerzeichen löscht (nur das führende war die Anforderung), sondern auch die folgenden Leerzeichen und alle mehrfach aufeinanderfolgenden Leerzeichen innerhalb des Textes.
Die Funktion LTrim, welche nur die führenden Leerzeichen entfernt, gibt es in Excel nicht.
wenn man mit Formeln arbeiten will, müsste man sich so behelfen:
a) wenn es immer nur genau ein oder kein führendes Leerzeichen geben kann, mit dieser Formel: 
=Wenn(Links(B2;1)=" ";Teil(B2;2;9999);B2)
also Code dann: 
With ActiveSheet.usedrange
With .columns(.columns.Count + 1)
.FormulaR1C1 = "=IF(Left(RC2,1)="" "",Mid(RC2,2,9999),RC2)"
.Offset(0, 2 - .column) = .value
.ClearContents
End with
end With
b) wenn es mehrere führende Leerzeichen geben kann, müsste man das LTrim auch in Excel verfügbar machen.
hierzu schreibt man dann folgenden code in ein allgmeines Modul: 
Public Function GlättenLinks(txt as string) as string
GlättenLinks = LTrim(txt)
End Function

dann kann man die Funktion GlättenLinks in Excel wie eine normale Excelfunktion einsetzen und das auch im Code verwenden: 
With ActiveSheet.usedrange
With .columns(.columns.Count + 1)
.FormulaR1C1 = "=GlättenLinks(RC2)"
.Offset(0, 2 - .column) = .value
.ClearContents
End with
end With

Gruß Daniel

Anzeige
AW: VBA: Führendes Leerzeichen löschen
02.11.2015 12:52:49
Daniel
wobei man beachten muss das Glätten nicht nur die führenden Leerzeichen löscht (nur das führende war die Anforderung), sondern auch die folgenden Leerzeichen und alle mehrfach aufeinanderfolgenden Leerzeichen innerhalb des Textes.
Die Funktion LTrim, welche nur die führenden Leerzeichen entfernt, gibt es in Excel nicht.
wenn man mit Formeln arbeiten will, müsste man sich so behelfen:
a) wenn es immer nur genau ein oder kein führendes Leerzeichen geben kann, mit dieser Formel: 
=Wenn(Links(B2;1)=" ";Teil(B2;2;9999);B2)
also Code dann: 
With ActiveSheet.usedrange
With .columns(.columns.Count + 1)
.FormulaR1C1 = "=IF(Left(RC2,1)="" "",Mid(RC2,2,9999),RC2)"
.Offset(0, 2 - .column) = .value
.ClearContents
End with
end With
b) wenn es mehrere führende Leerzeichen geben kann, müsste man das LTrim auch in Excel verfügbar machen.
hierzu schreibt man dann folgenden code in ein allgmeines Modul: 
Public Function GlättenLinks(txt as string) as string
GlättenLinks = LTrim(txt)
End Function

dann kann man die Funktion GlättenLinks in Excel wie eine normale Excelfunktion einsetzen und das auch im Code verwenden: 
With ActiveSheet.usedrange
With .columns(.columns.Count + 1)
.FormulaR1C1 = "=GlättenLinks(RC2)"
.Offset(0, 2 - .column) = .value
.ClearContents
End with
end With

Gruß Daniel

Anzeige
AW: VBA: Führendes Leerzeichen löschen
02.11.2015 11:03:38
matthias
Hallo Manfred,
deine Anweisung mit LTrim musst du natürlich auch wieder an eine Zelle/Varibale übergeben: 
 Cells(i,2) = LTrim(Cells(i,2)
lg Matthias

AW: VBA: Führendes Leerzeichen löschen
02.11.2015 11:14:06
Jürgen
Hallo Manfred,
du musst bei deinem Ltrim zuvor noch die Zelle angeben, in die das Ergebnis des LTrim eingetragen wird!
Sub leerzeichen_links_weg()
Dim laR As Long, lngI As Long
laR = cells(Rows.Count, 1).End(xlUp).Row
For lngI = 1 To laR
cells(lngI,2).value = LTrim (cells(lngI, 2).Value)
Next lngI
End Sub
Gruß
Jürgen

Anzeige
AW: VBA: Führendes Leerzeichen löschen
02.11.2015 12:27:13
Rusi
Hallo,
sollte das Geschwindigkeitsproblem lösen: 
Sub leerzeichen_links_weg()
Dim laR As Long, i As Long, vTmp
Application.ScreenUpdating = False
laR = Cells(Rows.Count, 1).End(xlUp).Row
vTmp = Cells(1, 2).Resize(laR)
For i = 1 To laR
vTmp(i, 1) = LTrim(vTmp(i, 1))
Next i
Cells(1, 2).Resize(laR) = vTmp
End Sub

Gruß
Rudi

Anzeige
AW: VBA: Führendes Leerzeichen löschen
02.11.2015 13:10:17
Manfred
Hallo Rudi,
vielen Dank, das klappt jetzt wesentlich schneller.
Gruß Manfred
;

Forumthreads zu verwandten Themen

Die ersten 2 Zeichen entfernen
MikeM

Hallo,
ich suche nach einer Möglichkeit per FORMEL die ersten 2 Zeichen eines Textes zu löschen.
Z.B.:
ABCDE soll werden: CDE
ABCD soll werden: CD
Text in Spalten ist klar, will das aber per Formel machen.
Und um das ganze noch einfacher zu machen: Die ersten beiden Z...
20.04.2009 08:53:00
Thread-ID: 1069716
7 Beiträge
letzte zeichen entfernen
Frank

hallo,
wie muss der Code lautetn wenn ich in einer Textbox in einer Userform vom eingetragenem Text die letzen 2 Zeichen löschen möchte sobald 20 Zeichen erreicht sind?
meine idee dazu ist: Private Sub TextBox1_Change() If Len(TextBox1) > 20 Then TextBox1 = Left(TextBox1) - 1 UserFor...
07.08.2009 11:05:20
Thread-ID: 1094231
8 Beiträge
Anzeige
letztes Zeichen löschen
Roger

Hallo zusammen,
mein Tabellenblatt enthält in einer Spalte Textstrings, die als letztes Zeichen ein " enthalten. Das möchte ich gerne löschen.
Mit
Cells.Replace What:="Zeichen_alt", Replacement:="Zeichen_neu", LookAt:=xlPart, SearchOrder _ :=xlByRows, MatchCase:=True ersetze ich z....
16.11.2009 16:00:48
Thread-ID: 1117654
4 Beiträge
Anzeige
Leerzeichen nach Text in Zelle löschen
Helmut

Liebe Forenuser,
ich habe noch eine Frage für heute:
Wie kann ich die Leerzeichen nach einem Text in allen Zellen in einem Tabellenblatt löschen?
Genauer:
Wenn ich z.B. in eine Zelle hineingehe, dann stehe ich oft nicht genau nach dem letzten Zeichen in der Zelle, sondern weiter...
07.05.2010 13:54:48
Thread-ID: 1156080
3 Beiträge
Anzeige
Leerzeichen in Zelle löschen
Helmut

Liebe Forenuser,
ich habe einen Code bekommen, der jeden Text in der Zelle auf seine Länge trimmt (Leerzeichen danach werden gelöscht). Dieser Code bezieht sich auf das komplette Tabellenblatt. Hier der Code:
Sub leerzeichen_loeschen() Dim c As Range Application.ScreenUpdating = False F...
28.06.2010 09:20:04
Thread-ID: 1164259
4 Beiträge
Tab. nur nach letzten 2 Zeichen sortieren
Charly

Hallo,
was muss im Code eingefügt werden damit die Tabellen nur nach den letzten 2 Zeichen sortiert werden?
Sub SortSheets() Dim w%, x%, y%, z% z = ThisWorkbook.Sheets("INFO").Index + 1 w = ThisWorkbook.Sheets.Count For x = z To w For y = x To w If Worksheets(y).Name Danke vorab.
C...
25.08.2010 00:13:10
Thread-ID: 1174058
3 Beiträge
VBA Säubern und die letzten 5 Zeichen prüfen
Sebastian

Hallo,
ich habe mal eine kurze Frage,
ich hole mir mithilfe von Sendkeys (STRG+C) Anweisungen einen Link aus dem IE
Jetzt würde ich gerne in VBA überprüfen, ob die letzten 5 stellen des Links = 5000 ist.
In Excel selber mach ich das so…
K38 hier wird der Link hinkopiert
09.09.2010 10:02:50
Thread-ID: 1176528
9 Beiträge
Leerzeichen in Zelle Löschen
Fatih

Hallo Ihr Lieben,
ich habe gerade eine Excel-Datei bekommen aus dem ich ein Serienbrief gestalten soll - gar kein Problem.
In einer Spalte sind die Adressen und Hausnummern jeweils mit vielen Leerzeichen getrennt.
Etwa so.
Musterstrasse _________ 6 a
Teststrasse _______44___...
12.10.2010 13:52:43
Thread-ID: 1181955
7 Beiträge
von links 4 Leerzeichen entfernen
links

Hallo Forum,
ich benötige Hilfe.
In den ersten 4 Stellen eines Strings kann
entweder 1 einzelnes Leerzeichen oder mehrere
aufeinander folgende Leerzeichen auftreten.
Ich möchte diese, jedoch nur im Bereich der 1.Stelle bis
zur 4.Stelle von links entfernen.
Als Ergeb...
06.03.2011 10:57:24
Thread-ID: 1204429
3 Beiträge
VBA - Leerzeichen löschen
WalterK

Hallo,
mit diesem Teil meines Codes lösche u.a. die Leerzeichen aus der Tabelle:
With ActiveSheet
With Range(Cells(1, 1), Cells(lngA, LCol))
.EntireColumn.NumberFormat = "General"
.Replace What:=" ", Replacement:=""
.Replace What:="FALSCH", Replacement:=""
End With
06.05.2011 07:44:28
Thread-ID: 1213288
6 Beiträge
Punkt hinter dem letztem Zeichen entfernen
Karsten

Hallo,
ich möchte in einer Textformatierten Zelle den Punkt hinter dem letztem Zeichen entfernen, per Worksheet_Change. Aus z.B. 149. soll 149 werden.
Kann mir jemand helfen.
Danke
Gruß
Karsten
09.12.2011 06:23:51
Thread-ID: 1241330
12 Beiträge
Anzeige
mit VBA vorangehendes Zeichen löschen
Micha

Hallo zusammen,
mit einem Makro finde ich einen Teilstring in einer Zelle. Nun möchte ich ein vorangehendes "+" und diesen Teilstring löschen. Das Problem ist, dass das + manchmal direkt vor dem String steht und manchmal stehen noch andere Zeichen dazwischen, die aber nicht gelöscht werden...
18.02.2014 15:05:59
Thread-ID: 1350226
16 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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