Pro Zeile ein bestimmtes Zahlenformat VBA

[diving_excel]

Guten Abend!

Mit einem VBA Code möchte ich eine ganze Zeile ein bestimmtes Zahlenformat zuweißen, basierend auf einem Wert in einer Zelle der jeweiligen Zeile:

Code:

Private Sub CommandButton1_Click()
Dim i As Long
Application.ScreenUpdating = False
For i = 18 To 300
If Cells(i, 4) = "Costs" Then
   ActiveSheet.EntireRow.NumberFormat = "_($* #,##0.00_);_($* (#,##0.00);_($* ""-""??_);_(@_)"
End If
Next i

Application.ScreenUpdating = True

End Sub

Leider funktioniert er noch nicht,
ich schreibe grade meine ersten eigenen Codes, bin mir deshalb nicht sicher was hier nicht stimmt.

Vielen dank für euren Input

Gruß

[Elex]

Hi

fehlt doch nicht mehr viel.

Code:

For i = 18 To 300
If Cells(i, 4) = "Costs" Then
   ActiveSheet.Cells(i, 4).EntireRow.NumberFormat = "_($* #,##0.00_);_($* (#,##0.00);_($* ""-""??_);_(@_)"
End If
Next i

Gruß Elex

[diving_excel]

Danke dir, bald hab ich den Dreh auch raus :D