replace / substitutte
02.08.2018 11:31:37
Georg
wie krieg ich im nachfolgenden Code noch unter, dass er über alle Blätter(außer dem ersten) läuft? Ich steh gerade i-wie auf der Leitung, danke.
Sub JahrTauschen()
On Error Resume Next
Dim Zelle As range
Dim SuchenNach As String
Dim ErsetzenDurch As String
SuchenNach = "2018"
ErsetzenDurch = "2019"
For Each Zelle In ActiveSheet.UsedRange
Zelle.Value = Application.Substitute(Zelle.Value, SuchenNach, ErsetzenDurch)
Next Zelle
On Error GoTo 0
End Sub
Anzeige