Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

VBA: Blatt anlegen und kopieren - Fehlersuche

VBA: Blatt anlegen und kopieren - Fehlersuche
30.07.2013 19:21:25
WalterK
Hallo,
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
Danke uns Servus, Walter

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA: Blatt anlegen und kopieren - Fehlersuche
30.07.2013 19:51:27
Gerd
Servus Walter,
wenn du mittendrin "wsNew" zerstörst, kannst du weiter unten auf diese Variable eben nicht mehr referenzieren. Rein nach deiner Beschreibung ist kein "Move" notwendig.
Sub Blattanlegen_und_Reinkopieren()
Dim wsQuelle As Worksheet
Dim wsZiel As Worksheet
Set wsQuelle = Worksheets("Tabelle1")
Set wsZiel = Worksheets.Add(after:=Sheets(Sheets.Count))
With wsZiel
.Name = "Gelöschte_Sätze_" & Format(Now, "yyyymmdd_hhmmss")
wsQuelle.Cells(2, 1).Resize(9, 11).Copy .Range("A2")
End With
'... ggf noch hier irgendeines aktivieren
Set wsQuelle = Nothing: Set wsZiel = Nothing
End Sub
Gruß Gerd

Anzeige
AW: VBA: Blatt anlegen und kopieren - Fehlersuche
30.07.2013 20:27:38
WalterK
Hallo Gerd,
wie immer hat Deine Hilfe perfekt funktioniert.
Bedanke mich recht herzlich,
Servus, Walter

306 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige