Erst vergleichen dann Tabellenblatt anlegen...
23.08.2003 22:47:19
René
ich habe da noch ein kleines Problem. Habe da so ein schönes Makro was super funktioniert und meinen Zwecken entspricht, aber wenn ich dann meine Liste erweiter und nochmal das Makro betätige kommt eine Meldung. Ich vermute hier müsste irgendwie eingefügt werden, wenn Tabellenblatt schon vorhanden dann Zeile überspringen. Aber ich weiß nicht wie das geht. Ich hoffe Ihr könnt mir helfen.
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
Gruß René