Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 00:08:11
In Ordner nur das Speichern von Dateien erlauben
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
19.04.2024 17:05:40
Zählen von Zeilen, in denen in bestimmten Bereich Daten sind
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1392to1396
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1392to1396
1392to1396
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Nur Bestimmte Angezeigte Spalten per Email schicke

Nur Bestimmte Angezeigte Spalten per Email schicke
02.12.2014 21:17:53
Vulferin
Hi zusammen,
ich habe eine Userform, wo ich meine Liste mit Filtern kann.
Jetzt würde ich gerne Spalte A-C ( das was dort angeziegt wird ) per Email als neue Excel Tabelle oder PDF wegschicken
am besten mit Autofit für die spalten
wie kann ich das Problem lösen
Die Datei brauche ich nicht speichern.
Warum neue Datei wenn excel format.
Weil in der Hautpexcelmappe die ganze Programmierung drin ist, die ja dann mit gespeichert wird.
Danke euch

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Nur Bestimmte Angezeigte Spalten per Email schicke
03.12.2014 09:18:09
Tino
Hallo,
hier ein Beispiel.
Die PDF wird im Ordner der Exceldatei gespeichert.
Sub Excel_zu_PDF_Mail()
Dim sPath$
Dim MyOutApp As Object, MyMessage As Object

sPath = IIf(Right$(ThisWorkbook.Path, 1) = "\", _
            ThisWorkbook.Path, ThisWorkbook.Path & "\")

With Tabelle1 'Tabelle anpassen 
    sPath = sPath & .Name & ".pdf"
    .Columns("A:C").AutoFit
    .PageSetup.PrintArea = "A:C"
    .ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        sPath, Quality:=xlQualityStandard, _
        IncludeDocProperties:=False, IgnorePrintAreas:=False, OpenAfterPublish:=False
    .PageSetup.PrintArea = ""
End With

Set MyOutApp = CreateObject("Outlook.Application")
Set MyMessage = MyOutApp.CreateItem(0)
With MyMessage
    .To = "Hier kommt die Adresse rein"
    .Subject = "Excel zu PDF"
    .body = "hier ist die PDF"
    .Attachments.Add sPath
    .Importance = 2 'Wichtigkeit hoch 
    .Display
    '.Send  'Hier wird die Mail gesendet 
End With

Set MyOutApp = Nothing
Set MyMessage = Nothing

End Sub
Gruß Tino
Anzeige

315 Forumthreads zu ähnlichen Themen

AutoFilter zeigt nicht alle Einträge
Andre

Hallo Excel-Freunde,
ich weiß, dieses Problem tauchte schon öfters auf.
Aber irgendwie passt das nicht zu meinem Problem:
Ich habe eine Excel-Tabelle, in der ihc mit VBA den AutoFilter aktiviere und gewisse Spalten filtere. Will ich nun eine gewisse "planned_effort(in hours)"-Spalt...
10.08.2008 15:47:23
Thread-ID: 1000645
2 Beiträge
Anzeige
nur eine der Spalten darf gefüllt sein
Simon

Hallo,
ich habe glaube ich eine einfache Frage, komme aber nicht drauf Sie selbst zu lösen:
ich habe 4 Spalten: ja; nein; mehr Menge; weniger Menge
dahinter möchte ich eine 5te Spalte Kontrolle setzen. In dieser soll eine Fehlermeldung erscheinen falls mehr als eine Spalte ausgefüll...
01.09.2008 16:15:00
Thread-ID: 1006502
8 Beiträge
Spalten statt Zeilen filtern
Steffen

Hallo Forum,
den Autofilter kenne ich, aber ich brauche einen Filter der Spalten anstatt der Zeilen und von VBA habe ich leider keine Ahnung.
ich habe eine Tabelle mit Namen in A2:A10. Im Bereich B2:X10 steht in verschiedenen Zellen entweder ein "x" oder die Zellen sind leer.
Nun hä...
29.10.2008 16:41:00
Thread-ID: 1020355
13 Beiträge
Anzeige
Combobox nur bestimmte Inhalte anzeigen
k

Hallo und einen wundervollen Guten Morgen ;o)
...ich habe mal wieder eine Frage (auch wenn ich hier shcon viel gelernt habe in den letzten Wochen !).
Habe in einer Userform eine Combobox (CB1) und diese zeigt alle Kundennamen einer Gesamtliste (Tabelle1) an. Jeder Kundensatz in der Tabe...
23.07.2009 09:28:23
Thread-ID: 1090694
3 Beiträge
2D - Array aber nur bestimmte Spalten einlesen
Axel

Hallo,
ich möchte ein Datenblatt einlesen. Dieses besteht aus 1800 Zeilen und 9 Spalten.
Diese lesen ich in einen Variant ein. Dim Daten As Variant Daten = Worksheets("Tabelle1").Range("A3:I1874")
allerdings brauche ich die Spalte H nicht. Meiner Meinung nach habe ich jetzt zwei Mö...
04.09.2009 11:44:00
Thread-ID: 1100595
9 Beiträge
Autofilter: 1 Kriterium für 2 Spalten
Stefan

Guten Morgen,
kann mir jemand bei folgender Frage helfen ?
Ich habe 2 Spalten, die mit Werten gefüllt sind. Nun habe ich mit dem Textfeld aus der Steuerelemente-Toolbox ein Suchfeld erschaffen. Sobald hier ein Suchbegriff eingegeben wird, sollen die beiden Spalten durchsucht und die Erg...
22.10.2009 10:51:27
Thread-ID: 1111254
5 Beiträge
Autofilter findet nicht alle Sätze!?
ing.grohn

Hallo Forum,
ich habe Probleme mit dem Autofilter.
In meiner Datei stehen definitiv 15 Sätze in Spalte B, die die Buchstaben "gro" enthalten!
Mit DATEN AUTOFILTER, dann BENUTZERDFINIERT ENTHÄLT "gro"
werden mir 7 Datensätze angeboten (die Zeilen liegen relativ nah zusammen).
...
11.03.2010 09:34:14
Thread-ID: 1145049
12 Beiträge
ClearContents nicht alle Spalten
Sascha

Hallo Forum
ich habe Makro das daten von einem Tabellenblatt in ein anderes überträgt und dann das Tabelleblatt wieder löscht mit
Sheets("Import 200").UsedRange.Offset(3, 0).ClearContents
kann ich das noch so ändern das es nur von Spalte A bis Spalte M löscht?
Gruss Sascha
05.04.2010 12:28:47
Thread-ID: 1150231
2 Beiträge
Anzeige

Links zu Excel-Dialogen

UserForm

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
1
3
7
12
8
2
8
4
11
1
5
1
8
4
7
4
3
3
1
3
1
2
5
3
2