Habe mir einen Code zusammengebastelt, komme nun aber nicht weiter. In einfachen Worten: der Code soll alle Sheets in einer Mappe ansprechen deren Name mit "Ü" beginnt(ZB:Ü001,Ü018,Ü339 usw.), und in diesen Sheets in Spalte H, Zeilen 3-444 das voranstehende "x" im Text mit einem "=" ersetzen.
Sub x_ändern()
Application.ScreenUpdating = False
Dim I As Long
Dim ws As Worksheet
For Each ws In ThisWorkbook.Worksheets
If ws.Name Like "Ü*" Then
With ws
For I = 3 To 444
Cells(I, 8).FormulaLocal = Replace(Cells(I, 8), "x", "=") 'Index 8= Spalte H
Next I
End With
End If
Next ws
Application.ScreenUpdating = True
End Sub
In der Zeile
bleibt mein Code stehen, und Excel sagt "1004" Anwendungs oder Objekt orientierter Fehler
Wenn ich folgenden Code für jeden Sheet einzeln schreibe, funktioniert es aber.
Sub Ersetze()
Application.ScreenUpdating = False
Dim I As Long
For I = 3 To 444
Sheets("Ü001").Cells(I, 8).FormulaLocal = Replace(Cells(I, 8), "x", "=")
Next I
Application.ScreenUpdating = True
End Sub
Kann mir bitte jemand weiterhelfen. Vielen Dank und Gruß
Michael