Guten Abend,

habe geschrieben:

Sub DruckAnwesenheitsnachweis_Arge3()

' zum Tabellenblatt wechseln
 Sheets("Anwesenheitsnachweis Arge").Select
 Range("R1").Value = 1
     
    'prüfe, ob R1<=U2 ist
    If Range("R1").Value <= Range("U2").Value Then
'bis hierher klappt alles

nun soll zusätzlich geprüft werden, ob die Zelle Range("U1") den Wert "j" enthält.
Wenn ja, dann soll gedruckt werden und die Zelle R1 um den Wert 1 erhöht werden (Range("R1").Value = Range("R1") + 1)

Wenn nein, soll nicht gedruckt werden und die Zelle R1 um den Wert 1 erhöht werden.

Das Makro soll enden, wenn "Loop Until Range("R1").Value = Range("U2").Value"

Irgendwie habe ich keinen Lösungsansatz.

Kann mich einer auf die richtige Spur bringen? :-)

Liebe Grüße

Matthias