ja :D

die MSGBoxen kommen natürlich weg, die dienen erst mal nur zum testen ob es richtig erkannt wird. Die Zellen wird auch keiner mehr anschauen. Es soll alles komplett automatisch ausgefüllt werden. Und ob die Zahl größer als 0 ist soll entscheiden ob das Makro in der Zeile ausgeführt werden soll oder nicht.

Könnte mir jemand die Schleife so programmieren das es funktioniert?

Es soll eigentlich nur die Zelle H16 bis H59 nach und nach ausgewählt werden.

Beispiel:

Range("H16").Select
         Call IstZelleEineZahl

Range("H17").Select
         Call IstZelleEineZahl

.....

Range("H59").Select
         Call IstZelleEineZahl

End Sub

Sub IstZelleEineZahl()

'Abfragen ob in der Zelle eine 0 steht
  If ActiveCell.Value = "0" Then GoTo ENDE99
  'makro ausführen

ENDE99:
End Sub