VBA: Blatt anlegen und kopieren - Fehlersuche
30.07.2013 19:21:25
WalterK
und wieder einmal komme ich nicht weiter.
Der Code soll ein neues Blatt anlegen und dann Daten vom ursprünglichen Blatt in das neu angelegte Blatt kopieren. Es kommt allerdings der Fehler: Laufzeitfehler 91: Objektvariable oder With-Blockvariable nicht festgelegt.
Option Explicit
Sub BlattAnlegenUndKopieren()
Dim wsNew As Worksheet
Set wsNew = Worksheets.Add
With wsNew
.Name = "Gelöschte_Sätze_" & Format(Now, "yyyymmdd_hhmmss")
.Move after:=Sheets(Sheets.Count)
End With
Set wsNew = Nothing
Worksheets("Tabelle1").Activate
With ActiveSheet
.Range(.Cells(2, 1), .Cells(10, 11)).Copy wsNew.Range("A2")
End With
End Sub
Anzeige