Wollte ein Makro schreiben mit dem die Zelle "M2" auf Inhalt geprüft wird (j oder n).
With Worksheets("Fragebogen Bildungsurlaub")
If LCase$(.Range("M2")).Value = "n" Then
Wenn "n", soll die Zelle "H1" um den Wert 1 erhöht werden.
With Worksheets("Fragebogen Bildungsurlaub")
If LCase$(.Range("M2")).Value = "n" Then
.Range("H1").Value = .Range("H1").Value + 1
Wenn "j" soll das Tabellenblatt gedruckt werden und dann die Zelle "H1" erhöht werden.
Das lässt sich nun von oben ableiten.
Das Ganze soll enden, wenn die Zelle "H1" genauso groß ist wie Zelle "H10".
Prüfe diese Bedingung zuerst. H1 = H10.
Wenn H1 "genauso groß" wie H10 ist, mach garnicht mit den oben erläuterten Prüfungen weiter.
Wobei Ich denke, dass Du nicht möchtest, dass weitergemach wird, wenn H1 genauso groß ODER größer ist. (aus welchen Umständen auch immer grösser sein könnte). Demnach würde das wie folgt formuliert:
'*** im oben aufgeführten With-Block
If .Range("H1").Value >= .Range("H10").Value Then
...
|