Hallo Rainer,
ich habe es jetzt so gelöst : Sheets("Daten").Columns(3).Cells.Replace What:="01", Replacement:="1", LookAt:=xlWhole, SearchOrder _
:=xlByColumns, MatchCase:=False
Da wird natürlich 9 mal gesucht was ich eigentlich nicht wollte.
Erklärung:
Die KW werden aus SAP in eine Tabelle C2:C53 (im Textformat). erzeugt.
Mit der aktuellen KW ( =KALENDERWOCHE) aus einer anderen Tabelle wird mit einem Makro in der Tabelle mit den (01-52 KW) gesucht.
Es wird also mit 6 gesucht in der Tabelle wo 06 steht .
strSuch = Sheets("Lieferzeiten").Range("A5").Value
lngAnz = WorksheetFunction.CountIf(Columns(3), strSuch)
Columns(3).Find(What:=strSuch, LookIn:=xlValues, LookAt:= _
xlWhole, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:= _
False).Activate
Wahrscheinlich kann ich es nicht so richtig erklären.
Gruß
fedjo