Microsoft Excel

Herbers Excel/VBA-Archiv

Versand von Tabellenblatt mit Werten (ohne Formel) | Herbers Excel-Forum


Betrifft: Versand von Tabellenblatt mit Werten (ohne Formel) von: Didi M.
Geschrieben am: 16.11.2009 12:49:38

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.

  

Betrifft: AW: Versand von Tabellenblatt mit Werten (ohne Formel) von: Rudi Maintaire
Geschrieben am: 16.11.2009 12:56:16

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


  

Betrifft: AW: Versand von Tabellenblatt mit Werten (ohne Formel) von: Martin S.
Geschrieben am: 16.11.2009 12:58:39

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


  

Betrifft: AW: Versand von Tabellenblatt mit Werten (ohne Formel) von: JogyB
Geschrieben am: 16.11.2009 13:01:11

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


  

Betrifft: AW: Versand von Tabellenblatt mit Werten (ohne Formel) von: Didi M.
Geschrieben am: 16.11.2009 13:20:17

RESPEKT !!

Herzlichen Dank für die Ultraschnellen Antworten !!!

So schnell kann ich mich ja nicht mal bedanken.

Vielen Dank !!


Beiträge aus den Excel-Beispielen zum Thema "Versand von Tabellenblatt mit Werten (ohne Formel)"