Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
240to244
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
240to244
240to244
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Neues Blatt mit Namen

Neues Blatt mit Namen
05.04.2003 13:43:17
BernhardStock
Hallo Forum,

ich möchte aus einer Mappe mit 4 Tabellen die aktuelle Mappe
die 1.) per Email versenden, dazu wird sie zunächst mit
" ActiveWorkbook.Worksheets(ActiveSheet.Name).Copy "
Leider hat die Kopie dann einen Namen wie "Mappe1",
sollte aber einen Namen haben der z.B. in Zelle C12
des Orginals steht. Wie kann ich dem aktuellen Blatt
einen Namen zuweisen?

hier das komplette Script:

Sub Email()
Dim e As String
Dim t As String

ActiveWorkbook.Worksheets(ActiveSheet.Name).Copy
' e + t wird eigentlich aus der Tabelle ausgelesen
e = "Adresse"
t = "mailname"
Application.Dialogs(xlDialogSendMail).Show e, t
ActiveWorkbook.Close savechanges:=False
End Sub

Danke für Eure Tipps,

Bernhard


6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Neues Blatt mit Namen
05.04.2003 13:46:41
Knut

Das geht nur mit Speichern unter...
Knut

Re: Neues Blatt mit Namen
05.04.2003 13:47:40
Ramses

Hallo,

einer neu erstellten Mappe kannst du keinen Namen zuweisen.
Den Namen erhält sie erst, wenn sie gespeichert wurde.
Du musst also die Datei zuerst speichern, dann versenden, und anschliessend, wenn du sie nicht mehr brauchst, wieder löschen.

Gruss Rainer

Re: Neues Blatt mit Namen
05.04.2003 13:53:20
th.heinrich

hallo Bernhard,

uebernimmt namen aus A1.

gruss thomas


Re: Neues Blatt mit Namen
05.04.2003 13:57:16
BernhardStock

Gut, schon ein Stück näher.
Wie erreiche ich dass meine Kopie gespeichert wird und nicht das "Orginal"?

Bernhard

Re: Neues Blatt mit Namen
05.04.2003 13:58:16
Knut

SaveCopyAs
Knut

Anzeige
Re: Neues Blatt mit Namen
05.04.2003 14:06:59
BernhardStock

Danke, es klappt.
Habe aber aus dem Script nur den Part
"ActiveSheet.Name = n(ame)" übernommen.

Bernhard


Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige