Hallo Luschi......es hat nur einen Tag ;-) gedauert bis ich deine Funktion einarbeiten konnte.Läuft perfekt.Danke nochmal dafür.
.........aber mir gelang es nur indem ich die
Funktion ZusFsgNamen (weil die je zusammengefassten Bereich einen Wert zurückgibt)
und
Workbook_Open() Ereignis
vervierfachte .
Also:
ZusFsgNamen1
ZusFsgNamen2
ZusFsgNamenJD
ZusFsgNamenRZ
Somit läuft er alle Namen (und das werden dann ca. 300 werden) viermal durch.
Ich bitte vielleicht könntest du mir (habe Beispieldatei erstellt und würde diese bei deinem OK hochladen)die Laufzeit auf 1/4 reduzieren.
Vielleicht hast mal eine Muse-Halbe-STunde.
In Erwartung deiner - hoffentlichen pos. Antwort - verbleibe ich
mfg STeve