Herbers Excel-Forum - das Archiv

Leerzeichen Löschen

Bild

Betrifft: Leerzeichen Löschen
von: Max M.
Geschrieben am: 12.10.2003 17:28:05
Hallo Excelfreunde,

ich möchte in den Zellen das Leerzeichen zwischen Buchstaben und Zahlen Löschen und habe folgendes Makro geschrieben, aber leider funktioniert es nicht.
Könnt Ihr mir ein Tipp geben was ich falsch gemacht habe?

Sub LeezeichenLöschen()
Dim i As Integer
Dim J As Integer
For J = 1 To 40 Step 2
For i = 2 To 11 Step 1
With Cells(J, i)
Trim Cells(J, i)
End With
Next i
Next J
End Sub


Max M.
Bild

Betrifft: AW: Leerzeichen Löschen
von: Hajo_Zi
Geschrieben am: 12.10.2003 17:51:53
Hallo Max

Trim lösch nur Leerstellen davor und danach, willst Du alle entfernen??

Sub LeezeichenLöschen()
Dim i As Integer
Dim J As Integer
For J = 1 To 40 Step 2
For i = 2 To 11 Step 1
Cells(J, i) = Replace(Cells(J, i), " ", "")
Next i
Next J
End Sub


Falls Code vorhanden wurde dieser getestet unter Betriebssystem XP Pro und Excel Version XP SBE.
Bitte kein Mail, Probleme sollen im Forum gelöst werden.

Microsoft MVP für Excel

Das Forum lebt auch von den Rückmeldungen.

http://home.media-n.de/ziplies/

Bild

Betrifft: AW: Leerzeichen Löschen
von: Max M.
Geschrieben am: 12.10.2003 17:58:19
Hallo Hajo,

vielen Dank für Deine Hilfe, daß Makro funktioniert.

Gruß Max.
 Bild
Excel-Beispiele zum Thema " Leerzeichen Löschen"
Leerzeichen aus einem Bereich löschen Nach jedem 5. Zeichen ein Leerzeichen einfügen
Alle überflüssigen Leerzeichen im Arbeitsblatt löschen Zeichen in Zeichenfolgen umwandeln und Leerzeichen entfernen
Leerzeichen zwischen Zeichen- und Zahlenfolge entfernen Überflüssige Leerzeichen in einem vorgegebenen Bereich löschen
Zeichenfolgen aus Zellen in TextBox mit Leerzeichen darstellen Zeichenfolgen aus 1. mit Leerzeichen in 2. TextBox übernehmen