Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: 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.
Anzeige

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
Anzeige
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
Anzeige
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 !!
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige
Anzeige

Infobox / Tutorial

Versand von Tabellenblatt mit Werten (ohne Formel)


Schritt-für-Schritt-Anleitung

Um ein einzelnes Tabellenblatt aus Excel zu versenden, ohne die darin enthaltenen Formeln zu verschicken, kannst Du ein einfaches VBA-Makro nutzen. Hier sind die Schritte, die Du befolgen musst:

  1. Öffne die Excel-Datei, die das Tabellenblatt enthält, das Du versenden möchtest.

  2. Drücke ALT + F11, um den VBA-Editor zu öffnen.

  3. Klicke auf Einfügen > Modul, um ein neues Modul zu erstellen.

  4. Füge den folgenden VBA-Code in das Modul ein:

    Sub Blatt_senden()
       Sheets("Versand").Copy
       ActiveSheet.UsedRange.Value = ActiveSheet.UsedRange.Value
       ActiveWorkbook.SendMail "E-Mail Adresse des Empfängers", "Auftrag"
       Application.DisplayAlerts = False
       ActiveWindow.Close
       Application.DisplayAlerts = True
    End Sub
  5. Ändere die E-Mail-Adresse im Code zu der Adresse des Empfängers.

  6. Schließe den VBA-Editor und führe das Makro aus, um das Tabellenblatt zu versenden.


Häufige Fehler und Lösungen

  • Fehler: Makro wird nicht ausgeführt.

    • Lösung: Stelle sicher, dass die Makros in den Excel-Optionen aktiviert sind. Gehe zu Datei > Optionen > Trust Center > Einstellungen für das Trust Center > Makroeinstellungen und aktiviere die Makros.
  • Fehler: E-Mail wird nicht gesendet.

    • Lösung: Überprüfe, ob Du ein Standard-E-Mail-Programm (z.B. Outlook) installiert und konfiguriert hast.
  • Fehler: Formeln werden trotzdem versendet.

    • Lösung: Stelle sicher, dass Du den Teil des Codes .Value = .Value verwendest, um die Werte zu fixieren und die Formeln zu entfernen.

Alternative Methoden

Wenn Du kein VBA verwenden möchtest, kannst Du auch manuell die Werte aus dem Tabellenblatt kopieren:

  1. Markiere die Zellen in dem Tabellenblatt, das Du versenden möchtest.
  2. Kopiere die Zellen (STRG + C).
  3. Öffne ein neues Excel-Dokument oder ein neues Tabellenblatt.
  4. Klicke mit der rechten Maustaste und wähle Inhalte einfügen > Werte.
  5. Speichere die neue Datei und sende sie per E-Mail.

Diese Methode ist besonders nützlich, wenn Du keine Erfahrung mit VBA hast und nur ein Tabellenblatt aus Excel versenden möchtest.


Praktische Beispiele

  1. Versand eines Tabellenblatts ohne Formeln:

    Wenn Du ein Tabellenblatt namens "Versand" hast, kannst Du das oben angegebene Makro verwenden, um dieses Tabellenblatt zu versenden, ohne die Formeln mitzuschicken.

  2. Excel-Liste aller Tabellenblätter ohne VBA:

    Wenn Du eine Übersicht aller Tabellenblätter in einer Excel-Datei benötigst, kannst Du dies manuell tun, indem Du die Namen der Tabellenblätter in eine Liste schreibst.


Tipps für Profis

  • Verwendung von Tastenkombinationen: Nutze ALT + F8, um das Makro auszuführen, nachdem Du es erstellt hast. Dies macht den Prozess schneller.
  • E-Mail-Versand automatisieren: Wenn Du häufig Tabellenblätter versendest, kannst Du das Makro anpassen, um es an verschiedene Empfänger zu senden.
  • Sicherheit: Achte darauf, die E-Mail-Adresse zu anonymisieren, wenn Du das Makro in einer öffentlichen Umgebung teilst.

FAQ: Häufige Fragen

1. Kann ich mehrere Tabellenblätter gleichzeitig versenden?
Leider erlaubt das Makro, das wir hier verwenden, nur den Versand eines einzelnen Tabellenblatts. Du müsstest den Code anpassen, um mehrere Blätter zu versenden.

2. Wie kann ich die Formatierung beibehalten?
Das oben angegebene Makro entfernt die Formatierung, da es nur die Werte kopiert. Wenn Du die Formatierung beibehalten möchtest, musst Du die Zellen manuell kopieren und die Werte einfügen, während Du die Formatierung beibehältst.

3. Was passiert, wenn ich die E-Mail-Adresse nicht eingebe?
Das Makro wird einen Fehler auslösen, wenn die E-Mail-Adresse leer ist. Stelle sicher, dass Du die Adresse im Code vor dem Ausführen des Makros einfügst.

Beliebteste Forumthreads (12 Monate)

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