Laufzeitfehler 9 - wg. Tabellenblattname=Zahl?
07.04.2005 14:40:50
zeh06
ich kopiere Zeilen aus einer Tabelle in verschiedene Worksheets einer anderen Datei nach folgender Regel:
WENN Zelle A1=(Zahl) DANN kopiere Zeile1 zu DateiX in Worksheet(Zahl) in nächste freie Zeile.
Daraufhin erhalte ich Laufzeitfehler 9.
Auszug aus dem Code:
...
For Each c In Worksheets("Sheet1").Range("C6:C50").Cells
MA = (c.Value)
Select Case MA
Case "83202", "83209", "83256"
If (c.Value) = MA Then
Rows(c.Row).Copy
Windows("MA Telefon Auswertung.xls").Activate
Sheets(MA).Select
***das Sheet wird nicht ausgewählt, hier erscheint der Fehler***
...
Die 'Quelldaten' habe ich bereits in verschiedenen Formatierungen getestet (Standard, Zahl, Text), brachte aber keine Besserung...
Ein ähnliches Makro, bei welchem jedoch nicht Zahlen, sondern Namen zu Grunde liegen, funktioniert einwandfrei.
Vermutung: es liegt an den Zahlen, oder an den vielen Tabellenblättern in der Zieldatei (ca. 50 Sheets).
Weiss jemand Rat?
Gruss
Frank