Dies:
If InStr(Worksheets(2).Cells(i + 1, 4).Value, "### [kK][wW]") Then
War bisher mein Versuch die Form des Ausdrucks festzustellen um ihn dann mit hilfe von right$(...) herauszukopieren.
Die Angaben haben leider die sehr uneinheitliche form
[2-3 Ziffern][Leerzeichen oder kein Leerzeichen][kW oder KW oder kw]
stehen aber immer am ende des Zelleninhalts.
Wenn jemand das Problem nachvollziehen und mir helfen kann, würde mich das sehr freuen.
lg Dominik