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

Beiträge aus den Excel-Beispielen zum Thema " Leerzeichen Löschen"