Anzeige
Archiv - Navigation
372to376
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
372to376
372to376
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Zahlen ersetzen

Zahlen ersetzen
02.02.2004 21:39:40
helmi
Hallo Leute
Habe ein problem , muß in einer excel-tabelle von telefonnummern die beiden letzten stellen zweck´s datenschutz durch x ersetzen.
wer kann mir da helfen???? vielleicht mit einem makro ???
danke schon vorher

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zahlen ersetzen
02.02.2004 21:51:37
K.Rola
Hallo,
''Annahme, in Zeile 1 stehen Überschriften, ansonsten
''For Z = 2 to lz anpassen
''Telefonnummern stehen in Spalte A
Option Explicit

Sub zwei_x()
Dim z As Long, lz As Long, strNr As String
lz = [a65536].End(xlUp).Row
For z = 2 To lz
strNr = Cells(z, 1).Text
strNr = Left(strNr, Len(strNr) - 2) & "xx"
Cells(z, 1) = strNr
Next
End Sub

Gruß K.Rola
AW: Zahlen ersetzen
02.02.2004 22:21:48
helmi
Besten Dank funktioniert super.

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige