For Each Schleife braucht Stoppwert?
09.05.2016 19:23:46
Marco
Ich habe mich trotz geringer VBA-Kenntnisse aufgemacht, ein kleines Makro zu schreiben.
Es soll in einem definierten Zellbereich alle Zellen durchlaufen und falls es einen Eintrag findet und in der Zelle rechts daneben noch nichts steht in ebendiese eine Formel eintragen.
An sich keine große Sache. Folgendermaßen sieht es aus:
For Each Zelle In Sheets("Technik").Range("A5:A96")
If Zelle.Value "" And Zelle.Offset(0, 1).Value = "" Then
Zelle.Offset(0, 1).FormulaLocal = "=HEUTE()"
End If
Next
Leider funktioniert das Ganze nur dann so wie gewollt, wenn in der Spalte B (wo die Formel eingetragen wird, an beliebiger Stelle bereits ein Wert steht. Ist die Spalte B komplett leer, trägt er mir in jede Zelle die Formel ein. Genau das will ich ja aber nicht und dachte, mit der "For Each"-Prüfung würde er das schaffen.
Ich komme aber leider auch nicht dahinter, was ihm Probleme bereitet und wie ich es anpassen muss.