Hallo,
ich möchte in meiner Ausgangstabelle (Gesamt) einen Zellbereich in einer Zeile markieren. Für jede dieser Zellen soll ein neues Tabellenblatt erzeugt werden. Gleichzeitig soll in jedem neuen Tabellenblatt die Spalten A-D aus der Ausgangstabelle (Gesamt) eingefügt werden. Folgenden Code habe ich mir dafür gedacht, funktioniert nur leider nicht wie gewünscht (Fehlermeldung unzulässiger oder nicht ausreichend definierter Verweis):
Sub Neues_Tabellenblatt_erzeugen()
Dim Zelle As Range
Sheets("Gesamt").Activate
For Each Zelle In Selection
Worksheets.Add
ActiveSheet.Name = Zelle.Value
Worksheet("Gesamt").Columns("A:D").Copy .Cells(1, 1)
Range("A3") = "test"
Next Zelle
End Sub
Scheine wohl auf dem Schlauch zu stehen... Kann da jemand helfen?
|