Hallo zusammen,
ich benötige Hilfe. Ich habe ein Problem mit einer aufgezeichneten Replace-Funktion. Beim Aufzeichnen hat es funktioniert und wenn ich den Code über das Makro ausführen will passiert gar nichts. Beim Sortieren (unterer Teil des Codes habe ich das Problem über einen eindeutigen Feldbezug Worksheets("Umsätze bearbeitet").Range("B3")) lösen können. Beim Replacement weiß ich mir im Moment nicht zu helfen.
Hat jemand einen Tipp? Code siehe unten.
Gruß,
Jessica
'Fehler ersetzen
Worksheets("Umsätze bearbeitet").Select
Worksheets("Umsätze bearbeitet").Cells.Select
Selection.Replace What:="#NV", Replacement:="ZZZZ", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
z = Worksheets("Umsätze bearbeitet").Range("A65536").End(xlUp).Row
Application.ScreenUpdating = True 'wegnehmen
'Sortieren
Worksheets("Umsätze bearbeitet").Range("A2:DT" & z).Select
Selection.Sort Key1:=Worksheets("Umsätze bearbeitet").Range("B3"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal