Datum

Titel

26.09.2025 10:29:46

Wert aus einer Zelle bei jeder Eingabe in neue Zelle

26.09.2025 08:51:00

Teilinhalt einer Zelle vergleichen

25.09.2025 23:04:12

Einen von drei möglichen Einträgen in einer Zeile suchen

25.09.2025 19:59:48

Lebenserleichternde Datei, im Bezug auf die Essensauswahl

Keine passende Antwort im Forumarchiv gefunden?

Stelle deine Frage im Live-Forum

HERBERS

Excel-Forum (Archiv)

20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Vorheriger Thread

Rückwärts Blättern

Aktuelles Verzeichnis

Übersicht Verzeichnisse

Nächster Thread

Vorwärts blättern

Inhaltsverzeichnis

kopierte Tabelle Sheetname ändern

Forumthread: kopierte Tabelle Sheetname ändern
6 Beiträge zu diesem Forumthread
Anzeige
19 Threads zu ähnlichen Themen
VBA Beispiele zu verwandten Themen
Top 100 Forumthreads

Forumthread: kopierte Tabelle Sheetname ändern

Peter

Guten Abend
Ich möchte das Sheet "Daten" duplizieren und dem Duplikat den Namen "Kopie" geben. Wie muss ich das anstellen?
Danke und gruss, Peter

Sub Kopie()
With ActiveWorkbook
.Sheets("Daten").Copy after:=.Sheets("Daten")
End With
End Sub

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

AW: kopierte Tabelle Sheetname ändern

JOWE
AW: kopierte Tabelle Sheetname ändern

Josef
ActiveSheet.Name = "Kopie" 'Vor End With _oT

NoNet
AW: kopierte Tabelle Sheetname ändern

Peter
AW: kopierte Tabelle Sheetname ändern

Josef
AW: kopierte Tabelle Sheetname ändern

Peter

AW: kopierte Tabelle Sheetname ändern

04.02.2010 17:53:06

JOWE

Hallo Peter,
so?

Sub Kopie()
With ActiveWorkbook
.Sheets("Daten").Copy after:=.Sheets("Daten")
End With
activesheet.name ="Kopie"
End Sub

Gruß
Jochen

AW: kopierte Tabelle Sheetname ändern

04.02.2010 17:54:44

Josef

Hallo Peter,

ohne Prüfung, ob es vielleicht schon ein Blatt "Kopie" gibt.

Sub Kopie()
  Dim objSh As Worksheet

  With ActiveWorkbook
    Set objSh = .Sheets("Daten").Copy(after:=.Sheets("Daten"))
    objSh.Name = "Kopie"
  End With

  Set objSh = Nothing
End Sub

Gruß Sepp

ActiveSheet.Name = "Kopie" 'Vor End With _oT

04.02.2010 17:54:54

NoNet

_oT = "ohne Text"

AW: kopierte Tabelle Sheetname ändern

04.02.2010 18:29:00

Peter

Hallo
Danke für die Rückmeldungen
@ Josef Ehrensberger
Set objSh = .Sheets("Daten").Copy(after:=.Sheets("Daten"))
Hier bringt mit der Code die Fehlermeldung "Objekt erforderlich"
Wenn ich den Errorhandler einschalte, sehe ich, dass objSh "Nothing" ist.
Wenn es jedoch immer so ist, dass nach dem Duplizieren einer Tabelle die neue Tabelle aktiv ist, könnte ich die anderen Varianten verwenden. Aber wenn die Bildschirmaktualisierung deaktiviert ist, wird das wohl nicht mehr der Fall sein.
Gruss, Peter

AW: kopierte Tabelle Sheetname ändern

04.02.2010 19:06:12

Josef

Hallo Peter,

man(n) solte halt keinen ungetesteten Code posten ;-((
Natürlich läuft das auf einen Fehler, du kannst dich ruhig auf "Activesheet" beziehen, auch wenn .ScreenUpdating" auf False steht.

Gruß Sepp

AW: kopierte Tabelle Sheetname ändern

04.02.2010 20:17:39

Peter

Hallo Sepp
Danke für die Nachricht und die Hilfe!
Peter

;