Anzeige
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 Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Nur Bestimmte Angezeigte Spalten per Email schicke

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

Anzeige

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

Forumthreads zu verwandten 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
Autofilter zeigt nicht alles an
thomas

Hallo,
In einem Tabellenblatt sind 1752 Zeilen ausgefüllt. Der Autofilter zeigt in seiner Auflistung nur 1426 Zellwerte an.
Weis jemand woran das liegt?
Danke für die Hilfe
thomas
29.08.2008 15:59:23
Thread-ID: 1005882
4 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
Autofilter für Spalten?
Timo

Hallo,
ich würde gern über ein Makro gewisse Spalten ausblenden.
In der Beispieldatei über den u.s. Link sollen alle Spalten ausgeblendet (also versteckt) werden, die eine "0" in Zeile 1 aufweisen. Überall, wo eine "1" steht, sollen die Spalten weiterhin lesbar sein.
https://www.h...
12.07.2009 18:07:56
Thread-ID: 1087997
9 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
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
Autofilter Zahlen zählen, nur bestimmte Zahlen
Martin

Hallo
Ich bitte um Hilfe. Ich möchte in einer gefilterten oder ungefilterten Liste die Anzahl Zahlen zählen, pro Kategorie aber ohne die 0-er Einträge. Filter steht im Beispiel in B8. Ergebnis soll in die Felder B1,B2,B3. Anmerkung, die Zahlen im Bereich A9:A23 werden durch eine andere Fo...
15.04.2010 21:56:14
Thread-ID: 1152123
6 Beiträge
Autofilter findet nicht alle Einträge
Armin

Hallo,
ich habe folgendes Problem mit dem Autofilter.
in Zelle A1 steht die Überschrift
In Zelle A2 der Eintrag 3D20
in Zelle A3 der Eintrag 3100
in Zelle A4 der Eintrag 32KR
in Zelle A5 der Eintrag 3200
Wenn ich nun über den Autofilter in Zelle A1 nach "Benutzerdefi...
21.07.2010 10:07:24
Thread-ID: 1168026
2 Beiträge
Autofilter findet nicht alle Einträge
Armin

Hallo,
ich habe folgendes Problem mit dem Autofilter.
in Zelle A1 steht die Überschrift
In Zelle A2 der Eintrag 3D20
in Zelle A3 der Eintrag 3100
in Zelle A4 der Eintrag 32KR
in Zelle A5 der Eintrag 3200
Wenn ich nun über den Autofilter in Zelle A1 nach "Benutzerdefi...
21.07.2010 10:07:03
Thread-ID: 1168027
9 Beiträge
Nur eine bestimmte Spalte einer Matrix
pastinake

Help !
Irgendwie stehe ich auf dem Schlauch. Ich habe einen dynamischen Bereichsnamen, aus dem ich alle Werte der 1. Spalte dieser Matrix abfragen möchte.
Also Set Suchbereich = "Spalte 1 aus Matrix"
Vielen Dank
Bernd
11.05.2011 13:58:56
Thread-ID: 1214018
8 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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