Teilstring löschen



Excel-Version: 9.0 (Office 2000)
nach unten

Betrifft: Teilstring löschen
von: Thomas Machelett
Geschrieben am: 20.06.2002 - 20:55:34

Guten Abend

Ich habe in den Zellen ("A1:A400")Namen stehen vor manchen stehen einstellige Zahlen und die sollen per VBA weg.

MS Excel von Thomas Machelett
 AB
1aussoll
28MaierMaier
3KunzKunz
43MüllerMüller
51KloseKlose


Im vorraus schon schönen Dank für eure Hilfe

Gruß Thomas

nach oben   nach unten

Re: Teilstring löschen
von: Klaus Schubert
Geschrieben am: 20.06.2002 - 22:14:47

Hallo Thomas,

versuch's mal mit diesem Code:


Sub ZahlEntfernen()
Dim Zelle As Range
Dim Bereich As Range

Set Bereich = ActiveSheet.Range("a:a")

For Each Zelle In Bereich
    If Zelle = "" Then Exit Sub
    
        If Asc(Zelle) >= 48 And Asc(Zelle) <= 57 Then
        Zelle = Right(Zelle, Len(Zelle) - 1)
        End If

Next Zelle
End Sub

Gruß Klaus

 nach oben

Beiträge aus den Excel-Beispielen zum Thema "Teilstring löschen"