Hilfe mit NEXT o.a.
Rainer
habe nun mit Eurer Hilfe folgenden Code zusammengestellt:
Sub copyAktSpplan()
'prüfen ob Angaben vollständig gemacht wurden
If Worksheets("intern").Range("H46").Value
Nun müsste ich den Code noch etwas ergänzen, damit ich je nach Plan zwei Dateien gespeichert bekomme.Folglich müssten vor Sheets(aPlan).Copy die Zeilen
If Sheets("intern").Range("J12") = "nein" Then ' Zweiseitiger Druck?
Sheets(aPlan).Copy
Sheets("intern").Range("M12") = True ' Auswahl alle Mannschaften
Else
Sheets("intern").Range("N12") = True ' Auswahl Gruppe 1
Sheets(aPlan).Copy
Sheets("intern").Range("O12") = True ' Auswahl Gruppe 2
Sheets(aPlan).Copy
End If
Damit ich nicht Sheets(aPlan).Copy dreimal reinkopieren muss hätte ich es mit einem neuen Sub mit obiger If-Anweisung gemacht und jeweils statt "Sheets(aPlan).Copy" "copyAktSpplan" aufgerufen.Frage: Liese sich das auch innerhalb des Codes realisieren, ohne ...Copy unnötig zu kopieren?
Gruß Rainer