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
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
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