With WS.UsedRange .Value = .Value gibt Fehler
Peter
Nachfolgender Code läuft bis zur 23. Tabelle, dann kommt ein Laufzeitfehler '1004' Anwendungs- oder objektdefinierter Fehler. Ich kann in der Tabelle, die bearbeitet werden soll, nichts auffälliges finden.
Wer hat mir einen guten Rat?
Danke und Gruss, Peter
Option Explicit
Sub Formeln_und_Farben_ade()
Dim Ws As Worksheet
'Application.ScreenUpdating = False
For Each Ws In ThisWorkbook.Worksheets
'Debug.Print Ws.Name
With Ws.UsedRange
.Value = .Value
.Font.ColorIndex = 0
.Interior.ColorIndex = xlNone
.FormatConditions.Delete
End With
Next Ws
'Application.ScreenUpdating = True
End Sub
Anzeige