VBA Schleife mit einzelner Zellbearbeitu

Sub Schriftart()
Dim Zeile As Long
Dim EndeZeile As Long
Dim Spalte As Long
Dim EndeSpalte As Long
With Tabelle1
EndeZeile = .UsedRange.Rows.Count
EndeSpalte = .UsedRange.Columns.Count
For Spalte = 1 To EndeSpalte
For Zeile = 1 To EndeZeile
If .Cells(Zeile, Spalte).Value  "" Then
With Zelle
.Name = "Times New Roman"
.Size = 14
End With
End If
Next Zeile
Next Spalte
End With
End Sub