Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Zeichen entfernen

Forumthread: Zeichen entfernen

Zeichen entfernen
terraner
Hallo Leute,
habe schon im Archiv geschaut aber leider keine passende Lösung gefunden. Habe folgendes Problem: ich habe eine Spalte (A) mit Zeichenketten. Bei diesen möchte ich immer die ersten 18 und die letzten 4 Zeichen entfernen.
Wie kann ich das durch VBA programmieren?
Vielen Dank!
Anzeige

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Zeichen entfernen
03.01.2011 12:06:06
Reinhard
Hallo Terraner,

Option Explicit
Sub Entfernen()
Dim Zei As Long
For Zei = 1 To Cells(Rows.Count, 1).End(xlUp).Row
With Cells(Zei, 1)
If Len(.Value) >= 22 Then
.Value = Mid(.Value, 19, Len(.Value) - 22)
End If
End With
Next Zei
End Sub

Gruß
Reinhard
Anzeige
;

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige