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
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen