gibt es eine Möglichkeit in Excel, die Diagonalen mit Nullen zu füllen? Würde bei mir von Zelle D4 bis OY415 gehen.
Vielen Dank schonmal Im Voraus!
Grüße,
Basti
Option Explicit
Sub eine_Null()
Dim x As Long
For x = 4 To 415
Cells(x, x) = 0
Cells(419 - x, x) = 0
Next
End Sub
Gruß Matthias
For x = 4 To 415
Cells(x, x) = 0
Cells(x, x).Interior.Color = vbYellow
Cells(419 - x, x) = 0
Cells(419 - x, x).Interior.Color = vbYellow
Next