guten morgen
wie kann ich diese 2 ersetzten vorgänge ,
die mit dem recorder aufgezeichnet wurden,
beschleunigen.Privat Sub ersetzen_Klick()
' Ersetzen "#wert" fehlermeldung
Application.ScreenUpdating = False
Dim Bereich As Range
Dim zelle
Set Bereich = Range("E1:E10000")
For Each zelle In Bereich
If zelle.Text = "#WERT!" Then Range(zelle.Address) = ""
Next
' Ersetzen der endung "mp3"
Cells.Replace What:=".mp3", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Application.ScreenUpdating = True
End SubIch wäre auch noch sehr froh über ein paar tips,
wie man makros grundsätzlich schneller machen kann und was man beachten sollte!Ivan