Hallo Platin,
ich habe mich an die Aufgabe gehlaten
"Da auch gewollte Leerzeilen vorhanden sind, habe ich mir ein Makro vorgestellt, das, wenn in Spalte Z eine "0" steht, alle leeren Zellen der Spalte F und N der gleichen Zeile mit "0" aufgefüllt werden."
Sollen die Inhalte in F und N nicht überschrieben werden?
Option Explicit
Sub Platin()
Dim LoLetzte As Long
Dim LoI As Long
LoLetzte = IIf(IsEmpty(Cells(Rows.Count, 26)), Cells(Rows.Count, 26).End(xlUp).Row, Rows.Count)
Application.ScreenUpdating = False
For LoI = 1 To LoLetzte
If Not IsEmpty(Cells(LoI, 26)) And Cells(LoI, 26) = 0 Then
If Cells(LoI, 14) = "" Then Cells(LoI, 14) = 0
If Cells(LoI, 6) = "" Then Cells(LoI, 6) = 0
End If
Next LoI
Application.ScreenUpdating = False
End Sub
Gruß Hajo