Herbers Excel/VBA-Archiv
kopierte Tabelle Sheetname ändern | Herbers Excel-Forum
- kopierte Tabelle Sheetname ändern von Peter vom 04.02.2010 17:50:35
- AW: kopierte Tabelle Sheetname ändern - von JOWE am 04.02.2010 17:53:06
- AW: kopierte Tabelle Sheetname ändern - von Josef Ehrensberger am 04.02.2010 17:54:44
- ActiveSheet.Name = "Kopie" 'Vor End With _oT - von NoNet am 04.02.2010 17:54:54
- AW: kopierte Tabelle Sheetname ändern - von Peter am 04.02.2010 18:29:00
- AW: kopierte Tabelle Sheetname ändern - von Josef Ehrensberger am 04.02.2010 19:06:12
- AW: kopierte Tabelle Sheetname ändern - von Peter am 04.02.2010 20:17:39
- AW: kopierte Tabelle Sheetname ändern - von Peter am 04.02.2010 20:17:39
- AW: kopierte Tabelle Sheetname ändern - von Josef Ehrensberger am 04.02.2010 19:06:12
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 SubGruß
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.
Dim objSh As Worksheet
With ActiveWorkbook
Set objSh = .Sheets("Daten").Copy(after:=.Sheets("Daten"))
objSh.Name = "Kopie"
End With
Set objSh = Nothing
End Sub
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.
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