Zeichen per makro löschen.



Excel-Version: 9.0 (Office 2000)
nach unten

Betrifft: Zeichen per makro löschen.
von: Wolle
Geschrieben am: 12.06.2002 - 13:09:24

hallo zusammen,

ich suche nach einer Möglichkeit, das erste und das letzte Zeichen einer Reihe zu löschen.

das soll dann von Reihe 1 bis Reihe 1000 geschehen.

Vielen dank für die Hilfe, Wolle


nach oben   nach unten

Re: Zeichen per makro löschen.
von: Kl@us-M.
Geschrieben am: 12.06.2002 - 13:37:14

Hallo Wolle,
mit ´ner VBA-Lösung kann ich leider nicht dienen, dafür aber mit einer Möglichkeit per Formeln:


MS Excel von Kl@us-M. an Wolle
 ABC
1Klaus-Martin12laus-Marti
2  =LÄNGE(A1)=TEIL(A1;2;B1-2)


Vielleicht hilft es Dir weiter ?

Gruss
Klaus-Martin

nach oben   nach unten

Re: Zeichen per makro löschen.
von: Wolle
Geschrieben am: 12.06.2002 - 14:00:08

Hallo,

brauche leider aber die VBA-Lösung.

MFG, Wolle


nach oben   nach unten

Re: Zeichen per makro löschen.
von: WernerB.
Geschrieben am: 12.06.2002 - 16:20:39

Hallo ???,

teste doch mal dieses Makro (die gewünschte Spaltennummer kannst Du in der "Const"-Zeile vorgeben):


Option Explicit
Sub TextAbschneiden()
Dim tw As String
Dim As Long, laR As Long
Const sp As Integer = 1
    laR = Cells(Rows.Count, sp).End(xlUp).Row
    For i = 1 To laR
      tw = Left(Cells(i, sp).Text, Len(Cells(i, sp).Text) - 1)
      tw = Right(tw, Len(tw) - 1)
      Cells(i, sp).Value = tw
    Next i
End Sub

Gestatte mir abschließend bitte noch einen Hinweis:
In diesem Forum bitte mit Realnamen auftreten (Vorname genügt); lies dazu bitte auch die "FAQ" in der Kopfleiste dieses Forums.
Vielen Dank für Dein Verständnis!

Viel Erfolg wünscht
WernerB.

nach oben   nach unten

An Werner
von: Wolle
Geschrieben am: 12.06.2002 - 17:24:55

Hallo,

Ich heiße Wolle, kann auch nichts dafür.
Nur so zur Info.

Danke für Deine Hilfe.

MFG, Wolle


 nach oben

Beiträge aus den Excel-Beispielen zum Thema "Zeichen per makro löschen."