Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
156to160
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
156to160
156to160
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Tabellenblatt kopieren

Tabellenblatt kopieren
14.09.2002 06:05:06
jochen
hallo,

wie kann ich eine tabelle("name") als ("name2") in dasselbe workbook kopieren?

danke im voraus
jochen

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Tabellenblatt kopieren
14.09.2002 07:44:22
Andre
Hallo Jochen,
ich nehme an, Du willst das als VBA programmieren. Da hilft Dir der Makrorecorder. Einfach starten, per Hand alles nötige tun, und dann den Recorder beenden - schon hast Du's.
gruss andre
Re: Tabellenblatt kopieren
14.09.2002 10:50:30
Boris
Hallo Jochen,

rechte Maustaste auf das Register "Name", verschieben/kopieren, Häkchen setzen bei Kopie erstellen, kopieren in dieses Workbook, fertig.

Gruß Boris

Re: Tabellenblatt kopieren
14.09.2002 11:51:02
Sergio
Hallo Jochen

Sub neuesblatt()
Dim x As Object
Dim neu$, mldg$, title$
Dim ergebnis%, stil%
neu = InputBox("Bitte geben Sie den Namen der neuen Tabelle ein:")
If neu = ("") Then
Exit Sub
End If
For Each x In ActiveWorkbook.Sheets
If x.Name = neu Then
mldg = "Blattname existiert schon!"
stil = vbCritical + vbOKOnly
title = "A C H T U N G ! ! !"
ergebnis = MsgBox(mldg, stil, title)
Exit Sub
End If
Next x
ActiveSheet.Copy After:=ActiveSheet
ActiveSheet.Name = neu
End Sub

Und das wenn du eine Tabelle löschen will.

Sub LoescheAktivesBlatt()
Dim txtTB As String
txtTB = InputBox("Welche Tabelle möchten Sie löschen?")
If txtTB > "" Then ActiveWorkbook.Sheets(txtTB).Delete
End Sub
Gruß Sergio

Anzeige
Danke oT
15.09.2002 01:21:36
jochen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige