Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1116to1120
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
Inhaltsverzeichnis

Versand von Tabellenblatt mit Werten (ohne Formel)

Versand von Tabellenblatt mit Werten (ohne Formel)
Tabellenblatt
Hallo Zusammen,
bei mir dreht es sich um folgendes Problem: Ich muss ein Tabellenblatt aus Excel durch ein Makro versenden. Dafür alleine habe ich eine Lösung im Netz gefunden, aber: Das Tebellenblatt soll mit den absoluten Werten und nicht mit den darin befindlichen Formeln versandt werden.
Kann mir bitte jemand weiterhelfen, da ich nicht wirklich einen Plan von VBA habe.
Hier mal das Makro das derzeitige Makro:
Sub Blatt_senden()
Sheets("Versand").Copy
ActiveWorkbook.SendMail "E-Mail Adresse des Empfängers ", "Auftrag"
Application.DisplayAlerts = False
ActiveWindow.Close
Application.DisplayAlerts = True
End Sub
Anm.: Die Formeln im Tabellenblatt "Versand" berechnen nichts sondern sammelt sich nur aus anderen Tabellenblättern die Werte zusammen.

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

Betreff
Benutzer
Anzeige
AW: Versand von Tabellenblatt mit Werten (ohne Formel)
16.11.2009 12:56:16
Tabellenblatt
Hallo,
Sub Blatt_senden()
Sheets("Versand").Copy
With ActiveSheet.UsedRange
.Value = .Value
End With
ActiveWorkbook.SendMail "E-Mail Adresse des Empfängers ", "Auftrag"
Application.DisplayAlerts = False
ActiveWindow.Close
Application.DisplayAlerts = True
End Sub

Gruß
Rudi
AW: Versand von Tabellenblatt mit Werten (ohne Formel)
16.11.2009 12:58:39
Tabellenblatt
Hallo,
dann ersetze die Zellen einfach durch ihre Werte:
Sub Blatt_senden()
Sheets("Versand").Copy
ActiveSheet.UsedRange.Cells = ActiveSheet.UsedRange.Cells.Value
ActiveWorkbook.SendMail "E-Mail Adresse des Empfängers ", "Auftrag"
Application.DisplayAlerts = False
ActiveWindow.Close
Application.DisplayAlerts = True
End Sub
Viele Grüße
Martin
Anzeige
AW: Versand von Tabellenblatt mit Werten (ohne Formel)
16.11.2009 13:01:11
Tabellenblatt
Hi.
Sub Blatt_senden()
Sheets("Versand").Copy
With ActiveSheet
.Cells.Copy
.Cells.PasteSpecial Paste:=xlValues
End With
ActiveWorkbook.SendMail "E-Mail Adresse des Empfängers ", "Auftrag"
Application.DisplayAlerts = False
ActiveWindow.Close
Application.DisplayAlerts = True
End Sub

Ist einfach kopieren - Werte einfügen.
Gruss, Jogy
AW: Versand von Tabellenblatt mit Werten (ohne Formel)
16.11.2009 13:20:17
Tabellenblatt
RESPEKT !!
Herzlichen Dank für die Ultraschnellen Antworten !!!
So schnell kann ich mich ja nicht mal bedanken.
Vielen Dank !!

307 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige