Tabellenblatt kopieren

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
Bild

Betrifft: Tabellenblatt kopieren von: Sonja
Geschrieben am: 13.04.2005 12:14:50

Hallo,

ich möchte über eine Schaltfläche den kompletten Inhalt eines Tabellenblattes
in eine leere Tabelle kopieren vor der Übergabe sollte sich ein Feld öffnen
in der ich den neuen Tabellennamen eintragen kann der mir dann auch ins Blattregister übernommen wird.

Geht so was?????????????
Könnte mir hier ein Profi bitte etwas zumailen.

Gruss
Sonja

Bild


Betrifft: AW: Tabellenblatt kopieren von: Willie
Geschrieben am: 13.04.2005 12:59:45

Sub Blattnamen()
Hallo Sonja so sollte es funktionieren!
Rückmeldung nicht vergessen 
Willie
Dim TbName As String
TbName = InputBox("Blattnamen", "Blattnamen eingeben!")
    ActiveSheet.Cells.Select
    Selection.Copy
    ActiveSheet.Select
    ActiveWorkbook.Sheets.Add After:=Worksheets(Worksheets.Count)
    Cells.Select
    ActiveSheet.Paste
    Sheets(Worksheets.Count).Name = TbName
End Sub



Bild


Betrifft: AW: Tabellenblatt kopieren von: Sonja
Geschrieben am: 14.04.2005 11:15:26

Vielen Danke für deine (euere) schnelle Hilfe,

geht es auch noch als Fehlermeldung wenn das Tabellenblatt mit
dem von mir eingegebenen Namen schon vorhanden ist.

Viele Grüsse
Sonja


Bild


Betrifft: AW: Tabellenblatt kopieren von: Ralf (Schwabenland)
Geschrieben am: 13.04.2005 13:05:03

Hallo Sonja,

hier mal ein Beispiel:

https://www.herber.de/bbs/user/21085.xls

Hoffe es hilft.

Gruß
Ralf


Bild


Betrifft: AW: Tabellenblatt kopieren von: Mathias
Geschrieben am: 13.04.2005 13:07:00

Guck mal hier viel Spass

https://www.herber.de/bbs/user/21086.xls


Mathias


Bild


Betrifft: AW: Tabellenblatt kopieren von: Sonja
Geschrieben am: 14.04.2005 13:25:54

Klasse,

Vielen Dank und einen schönen Tag
Sonja


 Bild

Beiträge aus den Excel-Beispielen zum Thema "Tabellenblatt kopieren"