wie kann ich denn mit einer Schleife und dem Replace-Befehl (vermute ich) die Spalte K durchlaufen und alle Buchstaben und Sonderzeichen löschen ?
Also, letztendlich will ich in dieser Splate nur noch ZIFFERN.
Danke
Kai
For Each zellchen In Range("K1:K" & Cells(Rows.Count, 11).End(xlUp).Row)
Text1 = zellchen.Text
Text2 = ""
For i = 1 To Len(Text1)
If IsNumeric(Mid(Text1, i, 1)) Then Text2 = Text2 & Mid(Text1, i, 1)
Next i
zellchen.Value = Text2
Next