Vielen Dank für eure Hilfe
Michael
Sub Zellenformat_ändern()
Dim ws As Worksheet
Dim rng1, rng2, rng3, rng4, rng5, rng6, rng7, rng8, rng9, rng10 As Range
rng1 = Range("G49:H90")
rng2 = Range("G94:H135")
rng3 = Range("G139:H180")
rng4 = Range("G184:H225")
rng5 = Range("G229:H270")
rng6 = Range("G274:H315")
rng7 = Range("G319:H360")
rng8 = Range("G364:H405")
rng9 = Range("G409:H450")
Set rng = Range("rng1, rng2, rng3, rng4, rng5, rng6, rng7, rng8, rng9")
Application.ScreenUpdating = False
For Each ws In ThisWorkbook.Worksheets
If Right(ws.Name, 2) = "TK" Then
With ws
rng = NumberFormat = "#,##0.00 $"
End With
End If
Next ws
Application.ScreenUpdating = True
End Sub