Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1192to1196
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

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!

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige