Moin Uwe,
sorry, Asche auf mein Haupt, ich habe nur einen Ausschnitt vom Code gepostet weil der Rest funktioniert und dann nur End Sub eingefügt.
Wäre schön gewesen wenn es nur daran gelegen hätte, ich habe das Ganze jetzt aber anders gelöst.
Danke für die Unterstützung.
Gruß Tobias