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"