Danke für die Hilfe. Ich habe es so ausprobiert. Jedoch bekomme ich jetzt die Fehlermeldung Sub oder Function nicht definiert.