|
Da hat mir der Browser wohl einen Strich durch die Rechnung gemacht, hier nochmal übersichtlich:
Erstmal vielen Dank für die schnelle Antwort und deine Hilfe.
Könnte es an einem fehlendem s im Bereich ".Column s .EntireColumn.Copy" liegen? Damit spuckt das Makro zwar keinen Fehler mehr aus, jedoch wird nicht die letzte Spalte, sondern die erste Spalte kopiert. Außerdem wird mit dem Code der Name der neuen Tabelle noch nicht passend geändert, dort soll der Wert aus der markierten Zelle rein. Bei einem anderen Makro habe ich das über ActiveSheet.Name = Zelle.Value gemacht, das funktioniert hier aber nicht...
Der aktuelle Code noch einmal im Überblick:
Sub Neues_Tabellenblatt_erzeugen()
Dim WS As Worksheet
Set WS = Sheets("Gesamt")
With Sheets.Add
WS.Columns("A:C").Copy .Cells(1, 1)
WS.Activate
ActiveCell.EntireColumn.Copy .Cells(1, 4)
Cells(1, Columns.Count).End(xlToLeft).Columns.EntireColumn.Copy .Cells(1, 5)
ActiveSheet.Name = Zelle.Value
End With
End Sub
|