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

mehrere vorgestellte Leerzeichen entfernen

Forumthread: mehrere vorgestellte Leerzeichen entfernen

mehrere vorgestellte Leerzeichen entfernen
17.04.2024 13:18:17
Fred
Hallo Excel Profis,
ich habe vor längerer Zeit von Onur eine "Function" bekommen. Die funktioniert auch.
Problem; Die Zellen mit dem Inhalt, auf die ich mich mit der Function berufe, sind mittlerweile sehr unteschiedlich in Hinsicht auf Leerzeichen zu Beginn.
Zwischen 0 - 3 Leerzeichen zu Anfang,- und dann funzt die Function auch nicht mehr (nur wenn es kein Leerzeichen zu Beginn gibt)
Meine Frage; Wie entferne ich mit einem Makro alle vorangestellten Leerzeichen??
https://www.herber.de/bbs/user/168801.xlsb
Mit; 
Sub EntferneLeerzeichen6()

    Dim letzteZeile As Long

    Dim i As Long

    

    letzteZeile = Cells(Rows.Count, "A").End(xlUp).Row

    

    For i = 11 To letzteZeile

        Cells(i, "I").Value = Trim(Cells(i, "I").Value)

    Next i

End Sub

wird nur das erste Leerzeichen entfernt.

Gruss
Fred


Anzeige

11
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: mehrere vorgestellte Leerzeichen entfernen
17.04.2024 13:27:46
daniel
Hi

Führende Leerzeichen entfernst du in VBA einfach mit der Funktion LTRIM(Text)

Folgende mit RTRIM(Text)

Führende und folgende mit TRIM(Text)

Gruß Daniel
AW: mehrere vorgestellte Leerzeichen entfernen
17.04.2024 13:50:55
Kuwer
Hallo Fred, 

Sub EntferneLeerzeichen6()

  Dim letzteZeile As Long

  Dim i As Long

  

  letzteZeile = Cells(Rows.Count, "A").End(xlUp).Row

  

  For i = 11 To letzteZeile

    With Cells(i, "I")

      .Value = Replace(.Value, Chr(160), "")

      .Value = Trim(.Value)

    End With

  Next i

End Sub


Gruß, Uwe
Anzeige
AW: mehrere vorgestellte Leerzeichen entfernen
17.04.2024 15:29:31
daniel
noch ne Variante, diese lässt den Rest des Textes unverändert.
dh Zeichen 160 innerhalb bleiben erhalten (für den Fall, dass die später noch benötigt werden) 
Sub EntferneLeerzeichen6()

    Dim letzteZeile As Long

    Dim i As Long

    dim t as long

    dim Txt as string

    letzteZeile = Cells(Rows.Count, "A").End(xlUp).Row

    

    For i = 11 To letzteZeile

        Txt = Cells(i, "I").value

        for t = 1 to len(Txt)

        Select Case ASC(mid(txt, t, 1))

             Case 32, 160

             Case Else

                exit for

        end Select

        Cells(i, "I").Value = Mid(Txt, t)

    Next i

End Sub

Gruß Daniel
Anzeige
AW: mehrere vorgestellte Leerzeichen entfernen
17.04.2024 14:03:43
Fred
Hallo Uwe,
vielen Dank, deine Version klappt genauso gut wie meine!!!
Unterschiedliche Schreibweisen, manchmal gleiches Ergebnis

Danke nochmals

Gruss
Fred
AW: mehrere vorgestellte Leerzeichen entfernen
17.04.2024 14:20:28
Yal
Hmm... was die Funktionsweise angeht, ja genauso gut, was Performance angeht, wäre Uwes Lösung ein paar Nanosekunden schneller: 160 durch 32 zu ersetzen, um anschliessend per Trim diese loszuwerden, ist iwi eine unnötige Schritt zuviel :-)

Die kurzeste (bzw. auf die Art und Weise, wie ich sie schreiben würde): 
Sub EntferneLeerzeichen()

Dim Z As Range



    Application.EnableEvents = False 'weil es in Zellen geschrieben wird

    For Each Z In Range("I11:I" & Cells(Rows.Count, "A").End(xlUp).Row)

        Z.Value = Trim(Replace(Z.Value, Chr(160), ""))

    Next

    Application.EnableEvents = True

End Sub


VG
Yal
Anzeige
wer zuerst denkt..
17.04.2024 14:23:57
Yal
bevor er postet, vermeidet sich blosszustellen (in dem Fall meine ich mich!):

160 durch 32 und dann Trim ist in folgendem Fall richtig: wenn 160er Zeichen innerhalb des Strings vorkommen, will man diesen natürlich nicht weg haben.

VG
Yal
Stimmt :-)
17.04.2024 15:18:39
Kuwer
Also dann einfach zusammengefasst: 

Z.Value = Trim(Replace(Z.Value, Chr(160), " "))


Gruß, Uwe
Anzeige
AW: mehrere vorgestellte Leerzeichen entfernen
17.04.2024 13:33:01
Fred
Hallo Daniel, das hatte ich ebenfalls ausprobiert.
Es wird aber nur das erste Leerzeichen entfernt,- wenn zB 3 Leerzeichen zuvor, sind es 2 weitere. Das Makro dann nochmals durchführen, bringt keine Veränderung.

Gruss
Fred

AW: mehrere vorgestellte Leerzeichen entfernen
17.04.2024 13:38:42
daniel
dann kann ich dir nicht weiterhelfen.
bei mir entfernt LTrim alle Leerzeichen, die am Anfang des Textes stehen. 

LTrim("           Hallo Welt")

ergibt beim mir 
"#Hallo Welt"
als Ergebnis.

mehr kann ich dazu nicht sagen.

Gruß Daniel
Anzeige
AW: mehrere vorgestellte Leerzeichen entfernen
17.04.2024 13:49:22
daniel
Hi
dann schau dir mal den Text genau an, lass dir beispielsweise die ASCII-Codes der Zeichen der Texte geben.
du wirst feststellen, dass hier immer nur das erste Leerzeichen ein echtes Leerzeichen ist (ASCII-Code 32) und die weiteren Leerzeichen dann geschützte Leerzeichen mit dem Code 160. Geschütze Leerzeichen werden von den Textfunktionen nicht wie Leerzeichen behandelt, sondern wie normale Zeichen. Das heißt, bei einem Geschützten Leerzeichen findet kein Zeilenumbruch statt und auch die TRIM-Funktionen lassen diese Zeichen stehen.
du müsstest also erst die Zeichen 160 durch die Zeichen 32 austauschen Trim(Replace(deinText, Chr(160), Chr(32))

Gruß Daniel
Anzeige
AW: mehrere vorgestellte Leerzeichen entfernen
17.04.2024 14:00:10
Fred
Hallo Daniel,
Super! Das mit Code 160 kommt mir aus der Vergangenheit bekannt vor.
Danke für die Unterstützung!
Nun klappt es; 


Sub EntferneLeerzeichen()

    Dim letzteZeile As Long

    Dim i As Long

    Dim zelle As String

    

    letzteZeile = Cells(Rows.Count, "A").End(xlUp).Row

    

    For i = 11 To letzteZeile

        zelle = Cells(i, "I").text

        zelle = Replace(zelle, Chr(160), Chr(32))

        zelle = Trim(zelle)

        

        Cells(i, "I").Value = zelle

    Next i

End Sub


Gruss
Fred

Anzeige

Forumthreads zu verwandten Themen

Leerzeichen links aus TextBox entfernen
Lenni

Moin Excellianer!
Wie kann man in einer TextBox (in einem UserForm) Leerzeichen links des ersten Wortes so rausfiltern, dass der TB-Eintrag wirklich mit einem Zeichen beginnt? ...und keinem Leerzeichen.
Vielen Dank für Eure Hilfe!
Viele Grüße aus dem hohen Norden!
Lenni
19.02.2009 21:58:00
Thread-ID: 1052293
5 Beiträge
gewisse sonderzeichen aus zelle entfernen
Tobias

Hallo allerseits,
Ich würde gerne ein gewisses sonderzeichen aus einer zelle entfernen
nämlich dieses: •
If ((cells(i,2) = ?) then ' wenn die zelle dieses zeichen enthält
cells(i,2) = ? ' entfernen
End if
Was muss ich in diesen code einb...
28.02.2009 15:56:56
Thread-ID: 1055091
8 Beiträge
Anzeige
nicht gültige Zeichen aus String filtern
heinzs

Hallo Excelfreunde,
in VBA möchte ich aus einem String nicht erlaubte Zeichen entfernen:
gn_erlaubte_zeichen = "1234567890HIN"
gn_string_original = "abc123HIN"
gn_string_resultat = "123HIN"
Da ich sehr viele Strings zu kontrollieren habe, würde ich ungern mit einer for-Next...
29.12.2010 11:42:18
Thread-ID: 1193168
7 Beiträge
Zelle verlassen = Leerzeichen entfernen
{mskro}

Hallo Excelfreunde,
wer kann mir mal wieder etwas weiter helfen.
Mit folgender Sub öffne ich ein Fenster, wenn ich den Zelleninhalt der Zelle A1 geändert habe.
Private Sub Worksheet_Change(ByVal Target As Excel.Range) If Not Intersect(Target, Range("A1")) Is Nothing Then MsgBox "Die...
10.01.2011 11:04:26
Thread-ID: 1194794
3 Beiträge
Sonderzeichen aus Spalte entfernen
Peter

Hallo,
ich möchte aus der Spalte B alle Sonderzeichen
wie z.B. _, (,),? usw. entfernen.
Mein Versuch funktioniert leider nicht.
Wer kann helfen?
Siehe Anlage
Danke
Peter
Sub SonderzDel() Dim a As Integer For a = 2 To 5 'Cells(65536, 2).End(xlUp).Row If Cells(a,...
03.03.2011 00:32:51
Thread-ID: 1203960
2 Beiträge
%-Zeichen aus Hyperlink entfernen
Stefan


Hallo zusammen,
ich habe ein Problem mit meiner Tabelle, in denen Fotos zu Namen per Hyperlink hinterlegt sind.
Warum auch immer, stehen auf einmal in allen Hyperlinkadressen '%20' mit drin, also so:
Name,%20Vorname%20200800022991%20opg%202%20.jpg
Richtig heißt die Datei (u...
30.03.2011 20:26:02
Thread-ID: 1208245
3 Beiträge
Per VBA , in . ändern in ersten 7-String-Zeichen
TommiH

Moin,
gibt es eine einfache Möglichkeit (einfacher als per left/mid/instr. oder split) um in den ersten 7 Zeichen einer Zelle die Kommas in Punkte zu ändern? Und das per VBA-Code?
Tommi
04.07.2011 15:34:05
Thread-ID: 1220870
3 Beiträge
Anzeige
Bereich markieren u. Zeichen daraus entfernen
Wolfgang

Guten Abend, liebe Excel-Gemeinde !
Irgendwie stehe ich auf dem Schlauch. Hoffentlich kann mir jemand helfen...
Ich bekomme aus unterschiedlichen Quellen Materialnummern im Excelformat
für die Erstellung von Versandaufträgen zugeschickt.
Mal haut der Absender Leerzeichen dazwis...
26.09.2011 19:42:13
Thread-ID: 1231545
4 Beiträge
Zeichen über der Raute aus Tabelle entfernen
ropa

Hallo,
ich habe eine Tabelle in der mehrere Spalten mit Zahlen an der ersten STelle
das Zeichen auf der Rautentaste hat-
Jetzt kann ich mit den Werten nicht rechnen.
Wie kann ich dieses Zeichen entfernen.
Grüße
Roland
13.02.2013 17:28:34
Thread-ID: 1299197
15 Beiträge
am Anfang und am Ende die Leerzeichen entfernen
Selma

Hallo Leute,
wie kann ich bitte per VBA in aktivem Arbeitsblatt am Anfang und am Ende die Leerzeichen entfernen.
Es soll an gesamten Arbeitsblatt angewendet werden!
Gruß,
Selma
27.12.2013 19:19:05
Thread-ID: 1343589
7 Beiträge
Aktenzeichen aus String filtern
Klaus

Hallo Forumsgemeinde,
ich verzweifle an einem Problem, welches ich in VBA nicht gelöst bekomme:
Ich möchte aus einem Textfeld ein Aktenzeichen auslesen.
Das Aktenzeichen hat immer das Format ##.##.## und kommt in dem zu prüfenden Textfeld immer an unterschiedlicher Position vor. And...
08.01.2015 21:44:01
Thread-ID: 1401583
5 Beiträge
Zeichen aus Textbox beim Kopieren entfernen
Thomas
Hallo!
Ich benötige bitte Eure Hilfe!
In eine TextBox wird ein Wert kopiert. Davor steht immer ein Pluszeichen.
Ich möchte nun diesen Wert kopieren, aber beim Kopieren soll das Pluszeichen
nicht mit übernommen werden. Könnt ihr mir dabei helfen?
Gibt es da nicht sowas wie die Cu...
17.02.2015 20:00:28
Thread-ID: 1410011
6 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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