Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.09.2025 22:18:24
Liste mit Links - tricky
26.09.2025 18:34:36
Welches Datum gibt mein M-Code aus?
26.09.2025 10:29:46
Wert aus einer Zelle bei jeder Eingabe in neue Zelle
26.09.2025 08:51:00
Teilinhalt einer Zelle vergleichen
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
640to644
640to644
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Email Kopie TB ohne MappenNr??

Forumthread: Email Kopie TB ohne MappenNr?

Email Kopie TB ohne MappenNr?
25.07.2005 11:53:31
GeorgK
Hallo,
ich versende mit nachfolgendem Makro die Kopie eines Tabellenblattes. Wie kann ich dem TB einen Namen mitgeben (bisher immer nur Mappe?)?
Ich möchte, dass die Kopie den Namen aus dem Zellinhalt A1 der Kopie erhält. Ist das möglich?

Sub SendenTab30()
Application.ScreenUpdating = False
Sheets("Aktuell").Select
Dim wks As Worksheet
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Set wks = ActiveSheet
Worksheets(Range("AD1").Value).Copy
ActiveWorkbook.SendMail wks.Range("AE1").Value, wks.Range("AF1").Value
ActiveWorkbook.Close savechanges:=False
Application.ScreenUpdating = True
End Sub

Vielen Dank für jede Hilfe
Grüße
Georg
Anzeige

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Email Kopie TB ohne MappenNr?
25.07.2005 12:23:28
Ramses
Hallo
probiers mal so

Sub SendenTab30()
Dim tmpName as string
Application.ScreenUpdating = False
Sheets("Aktuell").Select
Dim wks As Worksheet
Application.ScreenUpdating = False
Application.DisplayAlerts = False
'Was ist das ?
Set wks = ActiveSheet
Worksheets(Range("AD1").Value).Copy
ActiveWorkbook.SaveAs Range("A1").Text
tmpName = ActiveWorkbook.FullName
ActiveWorkbook.SendMail wks.Range("AE1").Value, wks.Range("AF1").Value
ActiveWorkbook.Close savechanges:=False
Kill tmpName
Application.ScreenUpdating = True
End Sub

Gruss Rainer
Anzeige
AW: Email Kopie TB ohne MappenNr?
25.07.2005 14:08:27
GeorgK
Hallo Rainer,
herzlichen Dank für Deine Hilfe. Bringt mich schon ein ganzes Stück weiter. Klappt soweit ganz gut.
Nur, wenn ich das ganze zweimal senden möchte, erhalte ich die Fehlermeldung:
C\.....System\Mapi\103 nicht verfügbar. Die Beschreibungen verweisen dann auf verschiedene Möglichkeiten.
Ich habe aber vor dem zweiten versenden schon alle Mails und Kopien gelöscht, sodaß eine Datei mit dem vorher vergebenen Namen auf meinem Rechner nicht mehr existiert.
Wenn ich die Ursprungsdatrei schließe - mit oder ohne speichern - und wieder öffne, kann ich wieder versenden - leider nur einmal.
Gibt es da noch eine Lösung?
Vielen Dank und Grüße
Georg
Anzeige
AW: Email Kopie TB ohne MappenNr?
25.07.2005 14:39:32
Ramses
Hallo
Tut mir leid, ich versteh nicht was du meinst.
Du kannst doch
ActiveWorkbook.SendMail wks.Range("AE1").Value, wks.Range("AF1").Value
mehrfach hintereinander setzen ?
Gruss Rainer
AW: Email Kopie TB ohne MappenNr?
25.07.2005 14:55:20
GeorgK
Hallo Rainer,
ja, das ist richtig.
Das Problem liegt darin, wenn das Makro zweimal hintereinander gestartet wird, erscheint beim zweitenmal die Fehlermeldung. Ich kann also, ohne die Arbeitsmappe zu schliessen, das Makro nur einmal starten.
Da die Fehlermeldung u.a. auch darauf verweist, das evtl. ein Dateinname schon vorhanden ist, habe ich alle gesendeten Daten mal gelöscht. Aber ohne schliessen der Arbeitsmappe ist ein weiteres starten des Makros nicht möglich.
Hast Du ein Ahnung, ob der vergebene Dateiname aus "A1" noch irgendwo im System ist, solange die Ursprungsdatei nicht geschlossen ist?
Vielen Dank und Grüße
Georg
Anzeige
AW: Email Kopie TB ohne MappenNr?
25.07.2005 14:59:58
Ramses
Hallo
Zeig mal den Code den du jetzt verwendest.
mit welchem Mail-System arbeitest du ?
Hab das ganze jetzt mal mit OE und Outlook probiert.
Funktioniert problemlos 10 mal hintereinander mit unterschiedlichen Adressen
Gruss Rainer
AW: Email Kopie TB ohne MappenNr?
25.07.2005 15:09:13
GeorgK
Hallo Rainer,
hier der Code, der bei mir nur einmal läuft. Ich arbeite mit Outlook.
Markiert ist bei der Fehlermeldung:
"ActiveWorkbook.SaveAs Range("A1").Text"

Sub SendenTab30()
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Dim tmpName As String
Dim wks As Worksheet
Set wks = ActiveSheet
Worksheets(Range("AD1").Value).Copy
ActiveWorkbook.SaveAs Range("A1").Text
tmpName = ActiveWorkbook.FullName
ActiveWorkbook.SendMail wks.Range("AE1").Value, wks.Range("AF1").Value
ActiveWorkbook.Close savechanges:=False
Kill tmpName
Application.ScreenUpdating = True
End Sub

Vielen Dank und Grüße
Georg
Anzeige
AW: Email Kopie TB ohne MappenNr?
25.07.2005 15:21:39
Ramses
Hallo
Ich sehe kein Problem, ausser dass ein Fehler auftritt wenn in A1 nichts steht bzw. unerlaubte Zeichen zum speichern verwendet werden.
Schau mal hier vorbei
http://www.online-excel.de/excel/grusel_vba.php?f=8
oder hier
http://www.office.gmxhome.de/_excel_outlook.htm
Da sind ein paar Varianten aufgelistet die mehr Möglichkeiten bieten, wenn du mit Outlook arbeitest.
Gruss Rainer
Anzeige
AW: Email Kopie TB ohne MappenNr?
25.07.2005 15:25:34
GeorgK
Hallo Rainer,
vielen Dank für Deine Mühe und Deine Hinweise.
Die beiden URL hab ich schon in meinen Favoriten.
Grüße
Georg
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige