Makro modifizieren
23.01.2004 07:26:59
ewald
das nachfolgende Makro funktioniert, wäre es trotzdem
möglich, das Makro zu modifizieren d.h. vereinfachen?
Sub test()
Dim Startzeile%, Endzeile&, Zähler&
Application.ScreenUpdating = False
Startzeile = 14
Endzeile = Cells(65536, 39).End(xlUp).Row
For Zähler = Stestartzeile To Endzeile
If Cells(Zähler, 16) = "" Then
Cells(Zähler, 16) = "0"
If Cells(Zähler, 17) = "" Then
Cells(Zähler, 17) = "0"
If Cells(Zähler, 20) = "" Then
Cells(Zähler, 20) = "0"
If Cells(Zähler, 21) = "" Then
Cells(Zähler, 21) = "0"
If Cells(Zähler, 24) = "" Then
Cells(Zähler, 24) = "0"
If Cells(Zähler, 25) = "" Then
Cells(Zähler, 25) = "0"
If Cells(Zähler, 28) = "" Then
Cells(Zähler, 28) = "0"
If Cells(Zähler, 29) = "" Then
Cells(Zähler, 29) = "0"
If Cells(Zähler, 32) = "" Then
Cells(Zähler, 32) = "0"
If Cells(Zähler, 33) = "" Then
Cells(Zähler, 33) = "0"
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
Next Zähler
Application.ScreenUpdating = True
End Sub
Vielen Dank im Voraus.
Grüße
Anzeige