Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 16:50:59
2 Zellen in 2 Blättern mit unterschiedlichen Bereichen vergl
25.04.2024 15:03:35
Unterschiedliche Dateien miteinander abgleichen lassen
25.04.2024 14:05:48
Makro in aktueller Zelle ausführen mit Doppelklick
25.04.2024 12:56:25
Werte von Kunden und Artikel stehen untereinander
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1452to1456
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
1452to1456
1452to1456
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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

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

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

301 Forumthreads zu ähnlichen 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
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
VBA die letzten 4 Zeichen in einem String löschen
andreas

Hallo zusammen,
ich lese die Zelle "k12" als Variable ein und möchte dabei immer die letzten 4 Zeichen löschen
Modellname = Left(("k12"), Len("k12") - 4)
was ist falsch geschrieben?
Danke für die Hilfe
19.02.2010 11:58:31
Thread-ID: 1139731
4 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
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
6
7
3
3
2
3
2
8
6
2
5
11
2
14
1
15
2
10
5
6
2
3
3
11
6