Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
18.04.2024 19:30:20
VBA - Tabelle mit Mannschaftsergebnissen sortieren
18.04.2024 18:04:29
Formel fehler Wert#
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
468to472
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
468to472
468to472
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

aus Excel senden, aber mit Zellenformatierung?

aus Excel senden, aber mit Zellenformatierung?
14.08.2004 03:27:15
Racebutt
Hallo,
ich benutze dieses skript, um aus Excel 2003 mit Outlook 2003 zu senden:
http://www.office.gmxhome.de/_excel_outlook.htm#Bereich_mit_Outlook_senden
Das funktioniert soweit auch prima, aber ich habe das Problem, dass die Zellenformatierung nicht übernommen wird (Rahmenlinien, Fettschrift, etc.)
Wenn ich händisch Copy & Paste mache, funktioniert es. Woran kann das liegen und wie kann ich das ändern?
Vielen Dank
Racebutt

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: aus Excel senden, aber mit Zellenformatierung?
Erich
Hallo Racebutt,
(seltener Name?)
habe mir aus dem Forum das gebastelt, mit dem die aktuelle Tabelle versendet wird:
Option Explicit
Sub BlattKopierenUndVersenden()
'aktives Tabellenblatt als Arbeitsmappe
'im Temporären Ordner speichern, als
'Anlage mit Outlook versenden und anschliesend löschen
Dim strPath As String
Dim strName As String
Dim strFile As String
strPath = "C:\Windows\Temp\" ' !!!!!!!! Pfad anpassen !!!!!!!!!!!!
strName = InputBox("Dateiname eingeben, xls wird automatisch vergeben")
If strName = "" Then Exit Sub
'strName = ActiveSheet.Name 'Tabellenname
strFile = strPath & strName & ".xls"
Application.ScreenUpdating = False
ActiveSheet.Copy
Cells.Select
Selection.Copy
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Range("A1").Select
Application.CutCopyMode = False
With ActiveWorkbook
.SaveAs strFile
Senden strFile 'Datei versenden
.Close
End With
Kill strFile 'Datei löschen
Application.ScreenUpdating = True
End Sub
Sub Senden(AWS As String)
Dim Nachricht As Object, OutApp As Object
Set OutApp = CreateObject("Outlook.Application")
Set Nachricht = OutApp.CreateItem(0)
With Nachricht
'.To = "muster@muster.de"
'.Subject = InputBox(strName) '"strName" ' "Betreffzeile Header"
.attachments.Add AWS
'.Body = "Das ist ein Test." & vbCrLf & "Bitte ignorieren."
'Hier wird die Mail nochmals angezeigt
.Display
'Hier wird die Mail gleich in den Postausgang gelegt
'.Send
End With
'OutApp.Quit
'Set OutApp = Nothing
'Set Nachricht = Nothing
End Sub

mfg
Erich
Anzeige
AW: aus Excel senden, aber mit Zellenformatierung?
14.08.2004 11:51:13
Racebutt
Hallo Erich,
wenn ich das richtig verstehe, wird die Tabelle als Anhang versendet? Das will ich ja nicht, die Zellen sollen direkt in die E-Mail eingetragen werden.
Gruß Racebutt
AW: aus Excel senden, aber mit Zellenformatierung?
14.08.2004 16:51:15
Racebutt
Ja, das benutze ich doch, aber die Zellformatierung wird dabei nicht in die Outlook-Mail übernommen, quasi wird nur der Zellinhalt übernommen, ich brauche aber die Gitternetzlinien und Fettdruck und sowas...
gibt's dafür keine Lösung?
Anzeige
AW: aus Excel senden, aber mit Zellenformatierung?
Ramses
Hallo
Tut mir leid, aber die Gitternetzlinien werden nie übernommen.
Das einzige was ich dir anbieten kann, um die Formatierungen zu übernehmen ist das:
Sub Send_OriginalRange_from_Excel() 'Getestet unter Office XP 'Ohne Select geht es nicht :-)) Range("A1:C9").Select 'Das anzeigen der Envelope Commandbar ist unabdingbar ActiveWorkbook.EnvelopeVisible = True 'Nun werden die Adressen vergeben With ActiveSheet.MailEnvelope .Introduction = "Das ist der Einleitungstext." & vbCrLf & "mit einer zweiten Zeile" .Item.To = "irgendwer@irgendwo.de" .Item.Subject = "Die aktuellen Daten" .Item.Send End With End Sub
Gruss Rainer
Anzeige

300 Forumthreads zu ähnlichen Themen

Auswählen einer Zelle sofort mit X kennzeichnen.
Richard

Hallo,
ich habe folgenden Code geschrieben: Wenn ich Zelle A1 auswähle, dann soll er dort ein X reinsetzten, steht da schon ein X dann soll er es wieder rausnehmen.
Jetzt kommt 'ne ganz blöde Frage: Wie definiere ich einen ganzen Bereich indem er das machen soll? Zum Beispiel A1:B100. S...
22.08.2008 15:12:33
Thread-ID: 1003911
3 Beiträge
Anzeige
Zelleninhalt mit CommandButton in Textbox anzeigen
Markus

Hallo an alle!
Mein Makro kann bisher folgendes:
Per Klick auf 1 von 300 Comandbuttons wird der entsprechende Inhalt aus einer von 300 Zellen in eine Textbox geladen.
"Das funktioniert"
Nun möchte ich , nachdem ich einen Button gedrückt habe und der Inhalt in Textbox angezeigt w...
21.11.2008 11:05:00
Thread-ID: 1026664
2 Beiträge
Zellen mit Text zählen
ric

Hallo,
ich habe Zellen, die Text enthalten und Zellen, welche eine Zahl enthalten. Wie kann ich die Anzahl der Zellen ermitteln, die nur Text enthalten.
Danke
25.11.2008 15:18:00
Thread-ID: 1027745
3 Beiträge
Anzeige
Lange Matrixformel mittels VBA in Zelle eintragen
hoffi

Hallo zusammen,
auch nach einer längeren Internetrecherche konnte ich folgendes Problem leider nicht lösen.
Ich möchte in Excel 2003 mittels VBA eine Matrixformel in eine Zelle schreiben lassen. Der Programmiercode sieht vereinfacht so aus:
A = "=sum(if(XXX,YYY,ZZZ))"
Cells(1,1)...
25.03.2009 13:09:25
Thread-ID: 1063729
5 Beiträge
Letzte Zelle mit konstantem Wert in Excel
Daniel

Hallo zusammen,
mit welchem VBA-Befehl komme ich an die letzte Zeile mit einem konstantem Wert (KEINE Formel!!) in einem Excel-Blatt? (Mit Cells(Rows.Count,1).End(xlUp).Row bekomme ich ja die letzte Zeile mit einer Formel zurückgeliefert)
Vielen Dank für eine Antwort!
04.05.2009 14:37:38
Thread-ID: 1072763
18 Beiträge
Matrix (mit leeren zellen) in Liste umwandeln
Wolfango

Hallo nochmal,
(diese Frage knüpft an die vorhin gestellte Frage an; nur diesmal mit einem anderen Ansatz)
Wie kann ich die in der angehängten Matrix (noch) vorhandenen Werte, über Formeln sauber in einer Liste (Spalte) zusammenführen?
Die Datei https://www.herber.de/bbs/user/61614...
05.05.2009 11:55:18
Thread-ID: 1073036
5 Beiträge
Nur Zellen mit Text kopieren
Peter

Hallo
ich bin gerade dabei eine Excel Tabelle zu bearbeiten und haben ein Auswahltabellenblatt wo ich über
Kontrollkästchen verschiedene Options auswählen kann, bzw noch die Anzahl angeben kann.
In einen Datentabellenblatt werden mir untereinander die Daten ausgegeben.
Das heißt...
15.06.2009 12:58:41
Thread-ID: 1081552
21 Beiträge
Zellen mit Farbe füllen
Karsten

Hallo,
ich möchte, wenn in der aktiven Zelle "Montag" steht, dass sie und die linken 11 Zellen sich mit Farbe 38 füllen. Steht Dienstag, dann dasselbe, nur mi Farbe 8.
Kann mir da jemand mit dem richtigen Befehl weiterhelfen?
Gruß
Karsten
25.07.2009 15:05:43
Thread-ID: 1091238
18 Beiträge

Links zu Excel-Dialogen

InputBox

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
2
5
1
2
2
4
17
4
20
17
7
7
16
12
1
4
1
17
1
7
11
14
4
12
5