Range("AC2").Select
With Range(Cells(2, 1), Cells(Rows.Count, 1).End(xlUp)).Offset
Selection.NumberFormat = "#,##0.00 $"
Ich erreiche damit aber nur die Formatierung Euro in AC2 und nicht bis zum Ende der Datentabelle. Was fehlt?
With Range("AC2:AG" & Cells(Rows.Count, 33).End(xlUp)) 'bis letzte belegte zelle in Spalte AG
.NumberFormat = "#,##0.00 "
End With
Die Datei https://www.herber.de/bbs/user/65384.xls wurde aus Datenschutzgründen gelöscht
Option Explicit
Sub n()
Range("AC2:AG" & Cells(Rows.Count, 33).End(xlUp).Row).NumberFormat = "#,##0.00 "
End Sub
Gruß