Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
392to396
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
392to396
392to396
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Zeichen an bestimmter Stelle ersetzen

Zeichen an bestimmter Stelle ersetzen
09.03.2004 08:08:00
Juli
Guten Morgen zusammen.
Kann mir bitte jemand helfen ?
Ich habe eine Spalte mit 6stelligen Zahlen und möchte immer die 9 an der ersten Stelle durch eine 1 ersetzen, bzw. eine 23 durch EV.
Wie kann ich das in einem Makro durchführen ??

Besten Dank im Voraus.

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zeichen an bestimmter Stelle ersetzen
09.03.2004 08:54:10
Mac4
Hi,
ich hoffe, das passt so:

Sub test()
For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row
If Left(Cells(i, 1).Value, 1) = "9" Then
Cells(i, 1).Value = WorksheetFunction.Substitute(Left(Cells(i, 1).Value, 1), "9", 1) & Right(Cells(i, 1), 5)
Else
If Left(Cells(i, 1).Value, 2) = "23" Then
Cells(i, 1).Value = WorksheetFunction.Substitute(Left(Cells(i, 1).Value, 2), "23", "EV") & Right(Cells(i, 1), 4)
End If
End If
Next
End Sub

Marc
Anzeige

314 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige