Hallo Jörg
ich habe den Code bei mir mal mit neu erstellten Sheets getestet. Dabei sind mir einige Fehler aufgefallen die du bitte korrigieren musst!
In allen Modulen musst du Range.Values gegen Range.Value tauschen, in einigen Modulen Range.Formula2R1C1 gegen Range.FormulaR1C1
Im Modul für Sheets("V03 erweitert") bitte With WBZiel.Sheets("V03 erweitert") gegen With ThisWorkbook.Sheets("V03 erweitert") tauschen.
In mehreren Modulen muss loLetzte1 = getauscht werden zu loLetzte Am besten mit dem Suchen/Ersetzen Suchlauf im gesamten Projekt.
Diese Fehler werden sofort angemeckert wenn du in jedem Modul ganz oben "Option Explicit" angeibst. Dann prüft Excel ob alle Variablen stimmen und zeigt dir an welche NICHT deklariert wurde, oder einen Schreibfeher hat. Das erleichtert dir keine Variablen Fehler mehr zu haben. Variable die als Public deklariert sind brauchst du nicht in jedem Modul zu wiederholen. Die sind Öffentlich und gelten für alle Module.
Sheets("V03").UsedRange.Copy
Sheets("TEMP1").Range("A1").PasteSpecial xlPasteAll
Application.CutCopyMode = False
Aendere das Kopieren bei allen Sheets bitte noch wie oben angegeben auf UsedRange um. Viel Spass und Erfolg bei Testen.
mfg Nobody
|