mhm, mhm,
dann pack mal vor alle Range...Select noch Sheets(i)
Beispiel:
Sheets(i).Range("D9:G11").Select
Noch n Hinweis:
Wenn Du die Sheets-Auflistung verwendest, darf es kein Diagrammblatt geben, welches wie eine Tablle heisst, die Du in Deinem Select-Case-Konstrukt verwendest. Das wird zu einem Laufzeitfehler führen.
Abhilfe:
Entweder namensgebung sicherstellen (was ohnehin sehr wahrscheinlich ist)
Oder Du verwendest die Worksheets-Auflistung (anstelle Sheets)
Beispiel:
Worksheets(i) anstelle Sheets(i)
|