Microsoft Excel

Herbers Excel/VBA-Archiv

kopierte Tabelle Sheetname ändern | Herbers Excel-Forum


Betrifft: kopierte Tabelle Sheetname ändern von: Peter
Geschrieben am: 04.02.2010 17:50:35

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

  

Betrifft: AW: kopierte Tabelle Sheetname ändern von: JOWE
Geschrieben am: 04.02.2010 17:53:06

Hallo Peter,
so?

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

Gruß
Jochen


  

Betrifft: AW: kopierte Tabelle Sheetname ändern von: Josef Ehrensberger
Geschrieben am: 04.02.2010 17:54:44

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



  

Betrifft: ActiveSheet.Name = "Kopie" 'Vor End With _oT von: NoNet
Geschrieben am: 04.02.2010 17:54:54

_oT = "ohne Text"


  

Betrifft: AW: kopierte Tabelle Sheetname ändern von: Peter
Geschrieben am: 04.02.2010 18:29:00

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


  

Betrifft: AW: kopierte Tabelle Sheetname ändern von: Josef Ehrensberger
Geschrieben am: 04.02.2010 19:06:12

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



  

Betrifft: AW: kopierte Tabelle Sheetname ändern von: Peter
Geschrieben am: 04.02.2010 20:17:39

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


Beiträge aus den Excel-Beispielen zum Thema "kopierte Tabelle Sheetname ändern"