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

4 Zeichen durch "XX" ersetzen

4 Zeichen durch "XX" ersetzen
18.03.2008 12:50:00
Bernhard
Hallo Forum,
bräuchte nochmal eure Hilfe:
Ich will per VBA-Makro in Spalte C alles durch "XX" ersetzen, was eine Zeichenlänge von genau 4 hat. Weiß jemand, wie ich das anstelle?
Vorab muchas gracias!
Bernhard

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: 4 Zeichen durch "XX" ersetzen
18.03.2008 13:14:00
Rainer
Hi,

Sub Replace_()
Dim a As Range
For Each a In Range("C1:C" & Rows.Count)
If Len(a) = 4 Then a = "XX"
Next a
End Sub


Gruß Rainer

AW: 4 Zeichen durch "XX" ersetzen
18.03.2008 13:24:35
Bernhard
Hallo Rainer,
Spitzenklasse, es funzt!!! Vielen Dank. Irgendwann lerne ich das auch noch mal.
Danke Dir & frohes Ostereiersuchen,
Bernhard

;-) o. T.
18.03.2008 13:25:00
Rainer

AW: 4 Zeichen durch "XX" ersetzen
18.03.2008 13:15:00
Waven
Hallo Bernhard
Mit folgendem Makro sollte es klappen:

Sub test()
Dim rngBereich As Range, rng As Range
Set rngBereich = Range(Cells(Rows.Count, 3).End(xlUp), Cells(1, 3))
For Each rng In rngBereich
If Len(rng.Value) = 4 Then rng.Value = "XX"
Next
End Sub


Gruss
Waven

Anzeige
AW: 4 Zeichen durch "XX" ersetzen
18.03.2008 13:25:36
Bernhard
Vielen Dank auch Dir - hat funktioniert. Ihr seid super!

303 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige