Probleme mit ein Makro
24.08.2003 20:36:02
René
besser ausgedrückt, ich habe eine Mappe mit zwei Tabellen (Filialen und Muster). In den Tabellenbaltt Filialen steht eine Liste mit 8 Spalten und ca. 200 Zeilen. Mit den unten aufgeführten Makro lege ich dann für jede Zeile aus der Liste ein extra Tabellenblatt an (wobei der Inhalt der Zeile als eine Art Kopfzeile mit übernommen wird) und es wird gleichzeitig der Name aus einer bestimmten Zelle an das Tabellenblatt übergeben. So weit so gut. Aber wenn ich jetzt meine Liste um weite Zeilen erweitere und dann nochmal das Makro ausführe kommt ein Laufzeitfehler 1004 und wenn ich dann den Debugger aufmache ist folgende Zeile gelb makiert.
ActiveSheet.Name = sWks
Ich vermute das der Grund darin liegt das er in meiner Liste wieder von vorn beginnt und rum meckert, weil das Tabellenblatt mit diesen Namen schon vorhanden ist.
Wie kann das umgangen werden, oder besser gesagt er soll erst prüfen ob Tabellenblatt schon vorhanden, wenn ja dann nächste Zeile sonst Tabellenblatt anlegen und kopieren.
Gruß und Danke René
Sub Filialen_anlegen()
Dim sWks As String
Dim i As Long
i = 2
Dim Default
Do While Sheets("Filialen").Cells(i, 2).Value <> ""
Sheets("Muster").Copy After:=Sheets(2 + J)
J = J + 1
sWks = Sheets("Filialen").Cells(i, 2).Value
ActiveSheet.Name = sWks
[B1] = Sheets("Filialen").Cells(i, 1).Value
[B2] = Sheets("Filialen").Cells(i, 2).Value
[B3] = Sheets("Filialen").Cells(i, 4).Value
[C2] = Sheets("Filialen").Cells(i, 3).Value
[C3] = Sheets("Filialen").Cells(i, 5).Value
[J1] = Sheets("Filialen").Cells(i, 6).Value
[J2] = Sheets("Filialen").Cells(i, 8).Value
[K1] = Sheets("Filialen").Cells(i, 7).Value
i = i + 1
Loop
End Sub