Office: (Office 2007) aktives Excel-Datenblatt per VBA-Makro nach Outlook kopieren

Helfe beim Thema aktives Excel-Datenblatt per VBA-Makro nach Outlook kopieren in Microsoft Excel Hilfe um das Problem gemeinsam zu lösen; Hallo, jetzt Funktioniert schon mal 1 "E" Formatierung, die 2. "F" noch nicht! Dieses Thema im Forum "Microsoft Excel Hilfe" wurde erstellt von Joao, 10. Juni 2015.

Seite 2 von 6

JOAO

Joao

aktives Excel-Datenblatt per VBA-Makro nach Outlook kopieren

Hallo,

jetzt Funktioniert schon mal 1 "E" Formatierung, die 2. "F" noch nicht!

Joao, 22. Juni 2015

#16
XLPH

xlph

anbei die Excel-Datei.
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

...ein Hauch von Nix.*wink.gif*

xlph, 22. Juni 2015

#17
Beverly Erfahrener User

Hi,

dazu kann man leider nach wie vor nichts sagen. Lade dein Mappe hoch, damit man das Original auch mal in einer anderen Excelversion testen kann - dann lässt sich sicher besser feststellen, ob es an deiner Version oder an der bedingten Formatierung selbst liegt.

Beverly, 23. Juni 2015

#18
JOAO

Joao

aktives Excel-Datenblatt per VBA-Makro nach Outlook kopieren

So aber jetzt, anbei die Datei *Smilie

PS: hat auch jemand eine Idee für mein 2. Problem?
Makro "Auftrag offen" soll alle Aufträge die noch offen sind und älter als 35 Tage sind auflisten.

Danke

Joao, 23. Juni 2015

#19
XLPH

xlph

...wunderbar, ohne Bed. Formatierung.

Ich bin dann mal raus.

xlph, 23. Juni 2015

#20
Beverly Erfahrener User

Hi,

versuche es auf diesem Weg:

Code:

Function RangetoHTML(rng As Range)
Dim fso As Object
Dim ts As Object
Dim TempFile As String
Dim TempWB As Workbook
Dim intSpalte As Integer
TempFile = Environ$("temp") & "/" & Format(Now, "dd-mm-yy h-mm-ss") & ".htm"
Set TempWB = Workbooks.Add(1)
ThisWorkbook.Worksheets("Auftrag_offen").Copy before:=TempWB.Worksheets(1)
With TempWB.Sheets(1)
.Rows("1:6").Delete
.Shapes.SelectAll
Selection.Delete
For intSpalte = .Cells.Find(What:="*", SearchOrder:=xlByColumns, _
SearchDirection:=xlPrevious).Column To 1 Step -1
If .Columns(intSpalte).ColumnWidth = 0 Then .Columns(intSpalte).Delete
Next intSpalte
.Cells(1).Select
Application.CutCopyMode = False
On Error GoTo 0
End With
With TempWB.PublishObjects.Add( _
SourceType:=xlSourceRange, _
Filename:=TempFile, _
Sheet:=TempWB.Sheets(1).Name, _
Source:=TempWB.Sheets(1).UsedRange.Address, _
HtmlType:=xlHtmlStatic)
.Publish (True)
End With
Set fso = CreateObject("Scripting.FileSystemObject")
Set ts = fso.GetFile(TempFile).OpenAsTextStream(1, -2)
RangetoHTML = ts.readall
ts.Close
RangetoHTML = Replace(RangetoHTML, "align=center x ublishsource=", _
"align=left x ublishsource=")
TempWB.Close savechanges:=False
Kill TempFile
Set ts = Nothing
Set fso = Nothing
Set TempWB = Nothing
End Function
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Beverly, 23. Juni 2015

#21
JOAO

Joao

Hallo,
die Formatierungen werden jetzt Kopiert. *Smilie

Doch leider anstatt 4 Zeilen (2 Überschriften + 2 Fehlerhafte Daten) werden 20 Eingefügt! {Bild 1}
Wie kann nur die vorhandenen gefüllten Zeilen (2 Überschriften + Fehlerhafte Daten) Kopiert werden?

Die Tabelle wir Zentriert eingefügt, nicht Linksbündig. {Bild 2}

Danke

Joao, 23. Juni 2015

#22
Beverly Erfahrener User

aktives Excel-Datenblatt per VBA-Makro nach Outlook kopieren

Hi,

es soll also Zeile 6 und Zeile 7 als Überschrift übertragen werden?

Code:

Function RangetoHTML(rng As Range)
Dim fso As Object
Dim ts As Object
Dim TempFile As String
Dim TempWB As Workbook
Dim intSpalte As Integer
Dim intLetzte As Integer
Dim lngLetzte As Long
TempFile = Environ$("temp") & "/" & Format(Now, "dd-mm-yy h-mm-ss") & ".htm"
Set TempWB = Workbooks.Add(1)
ThisWorkbook.Worksheets("Auftrag_offen").Copy before:=TempWB.Worksheets(1)
With TempWB.Sheets(1)
.Rows("1:5").Delete
.Shapes.SelectAll
Selection.Delete
For intSpalte = .Cells.Find(What:="*", SearchOrder:=xlByColumns, _
SearchDirection:=xlPrevious).Column To 1 Step -1
If .Columns(intSpalte).ColumnWidth = 0 Then .Columns(intSpalte).Delete
Next intSpalte
intLetzte = .Cells.Find(What:="*", SearchOrder:=xlByColumns, _
SearchDirection:=xlPrevious).Column
lngLetzte = .Cells.Find(What:="*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
.Cells(1).Select
Application.CutCopyMode = False
On Error GoTo 0
Set rng = .Range(.Cells(1, 1), .Cells(lngLetzte, intLetzte))
End With
With TempWB.PublishObjects.Add( _
SourceType:=xlSourceRange, _
Filename:=TempFile, _
Sheet:=TempWB.Sheets(1).Name, _
Source:=TempWB.Sheets(1).Range(rng.Address).Address, _
HtmlType:=xlHtmlStatic)
.Publish (True)
End With
Set fso = CreateObject("Scripting.FileSystemObject")
Set ts = fso.GetFile(TempFile).OpenAsTextStream(1, -2)
RangetoHTML = ts.readall
ts.Close
RangetoHTML = Replace(RangetoHTML, "align=center x ublishsource=", _
"align=left x ublishsource=")
TempWB.Close savechanges:=False
Kill TempFile
Set ts = Nothing
Set fso = Nothing
Set TempWB = Nothing
End Function
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Beverly, 23. Juni 2015

#23
JOAO

Joao

Super Danke *top
Die Tabelle wird Zentriert kopiert, wie/wo den Befehl für Linksbündig?

Ist es auch möglich die "Von" Adresse im VBA mit vorzugeben?
Da wir auf der Arbeit mehrer eMail Konten benutzen.

Idee für mein 2. Problem?
Makro "Auftrag offen" soll alle Aufträge die noch offen sind, und älter als 35 Tage, auflisten.

Danke

Joao, 23. Juni 2015

#24
Beverly Erfahrener User

Zu Frage 1 - ergänze/ändere den Code mit/in den rot formatierten Zeilen:

Code:

Sub eMail_Versenden()
Dim olApp As Object
Dim AWS As String
Dim olOldbody As String
Dim lngLetzte As Long
Dim rngBereich As Range
Dim strHTML As String
ActiveWorkbook.ActiveSheet.Copy
ActiveWorkbook.SaveAs "C:\windows\temp\anhang.xls"
Application.DisplayAlerts = True
AWS = ActiveWorkbook.FullName
lngLetzte = Cells.Find(What:="*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
Set rngBereich = Range(Cells(7, 1), Cells(lngLetzte, 26)).SpecialCells(xlCellTypeVisible)
Set olApp = CreateObject("Outlook.Application")
With olApp.CreateItem(0)
.GetInspector.display
' Mailkonto
Set .SendUsingAccount = .Session.Accounts.Item("Kontoname")
.ReadReceiptRequested = True
.Sensitivity = 3
.Importance = 2
olOldbody = .HTMLBody
.To = "testserver.de"
.CC = "empfänger@"
.BCC = "empfänger5@"
.Subject = "Test"
' Linksbündig
strHTML = "Hallo! Anbei gewünschte Informationen." & _
RangetoHTML(rngBereich) & olOldbody
strHTML = Replace(strHTML, "align=center", "align=left")
.HTMLBody = strHTML
.Attachments.Add AWS
End With
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Zu Frage 2 - ergänze den Code mit der blau formatierten Zeile

Beverly, 23. Juni 2015

#25
Beverly Erfahrener User

[Fortsetzung zum vorhergehenden Beitrag]

Zu Frage 3 - mein Vorschlag (das was ich aus deinem Ursprungscode interpretiert hätte):

Code:

Sub Master_Langläufer_mit_Datum()
Dim lngLetzte As Long
Dim intLetzte As Integer
' Bildschirmdarstellung ausschalten {Makros beschleunigen}
With Application
.ScreenUpdating = False
.Calculation = xlCalculationManual
.EnableEvents = False
End With

' Auftrag offen - alle Spalten Einblenden
With Worksheets("Auftrag_offen")
lngLetzte = .Cells.Find(What:="*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
intLetzte = .Cells.Find(What:="*", SearchOrder:=xlByColumns, _
SearchDirection:=xlPrevious).Column
.Cells.EntireColumn.Hidden = False
.Range(.Cells(6, 1), .Cells(lngLetzte, intLetzte)).ClearContents
.Columns("A:A").Hidden = True
End With
With Worksheets("Tabelle1")
.ListObjects("Tabelle_SCM_BE.accdb").Range.AutoFilter Field:=6, _
Criteria1:="< HEUTE()-35", Operator:=xlAnd
.ListObjects("Tabelle_SCM_BE.accdb").Range.Copy
Worksheets("Auftrag_offen").Range("A8").PasteSpecial xlPasteValuesAndNumberFormats
Worksheets("Auftrag_offen").Rows(8).Delete
.ListObjects("Tabelle_SCM_BE.accdb").Range.AutoFilter Field:=6
End With
With Worksheets("Auftrag_offen")
With .Range("B6")
.Value = "Folgende Aufträge sind noch offen"
.HorizontalAlignment = xlLeft
.VerticalAlignment = xlCenter
End With
.Range("H1:AI1").EntireColumn.Hidden = True
End With

' Bildschirmdarstellung wieder einschalten {Makros beschleunigen}
With Application
.ScreenUpdating = True
.Calculation = xlCalculationAutomatic
.EnableEvents = True
End With
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Bedingung ist, dass die Tabelle "Tabelle_SCM_BE.accdb" in Tabelle1 tatsächlich bis zur letzten Zeile erweitert ist.

Beachte: das Lerrzeichen zwischen < und HEUTE() im rot formatierten Codeteil muss weg - leider macht die Forumssoftware Probleme und interpretiert die Kombination ohne Leerzeichen als HTML-Code, sodass der darauf folgende Code bis zum Ende nicht komplett angezeigt werden kann.

Beverly, 23. Juni 2015

#26
JOAO

Joao

Hallo,

Problem 1 : erledigt DANKE
Problem 2 : erledigt DANKE

Problem 3 : geht noch nicht.
Mit deinen Code bekomme ich folgende Fehlermeldung

Joao, 24. Juni 2015

#27
Beverly Erfahrener User

aktives Excel-Datenblatt per VBA-Makro nach Outlook kopieren

von Joao

Problem 3 : geht noch nicht.
Mit deinen Code bekomme ich folgende Fehlermeldung
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

An welcher Stelle im Code?

Zuletzt von einem Moderator bearbeitet: 12. Januar 2021

Beverly, 24. Juni 2015

#28
JOAO

Joao

Es wird keine Zeile Markiert, es kommt nur die Fehlermeldung.

Auch wenn ich die Tabelle "Tabelle_SCM_BE.accdb" in "Tabelle1" ändere geht es nicht.

Ich habe zwei Tabellen "Auftrag_offen" und "Tabelle1"

In die Tabelle-Datenblatt "Tabelle1" wird die "BE.accdb" aus ACCESS importiert.

Eine "Tabelle_SCM_BE.accdb" existiert nicht im Excel.

Joao, 24. Juni 2015

#29
JOAO

Joao

Ich habe es jetzt in Einzelschritten durchgeführt.

Beim nächste Schritt nach diesem Code
Code:

lngLetzte = .Cells.Find(What:="*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

bekomme ich diesen Fehler.

Joao, 24. Juni 2015

#30

(Du musst angemeldet oder registriert sein, um eine Antwort erstellen zu können.)

Seite 2 von 6

Thema:

aktives Excel-Datenblatt per VBA-Makro nach Outlook kopieren

Die Seite wird geladen...

aktives Excel-Datenblatt per VBA-Makro nach Outlook kopieren - Similar Threads - aktives Excel Datenblatt
Zellen aus Aktiver Zeile kopieren
in Microsoft Excel Hilfe
Zellen aus Aktiver Zeile kopieren: Hallo zusammen, im Grunde genommen ist es wohl ganz einfach … ich weiss es aber trotzdem nicht wie es in VBA umsetze. Ich will aus einer „Aktiven Reihe“ (diese wähle ich vorher über einen...
Zugriff auf andere Excel Datei ohne aktives Öffnen
in Microsoft Excel Hilfe
Zugriff auf andere Excel Datei ohne aktives Öffnen: Liebe Community, ich habe mir eine Formel geschrieben um Werte aus einer anderen Excel Datei in meine Haupt Excel Datei einzufügen. Leider muss die Datei aus der ich die Daten haben will immer...
Im Endlosformular aktiven Datensatz hervorheben
in Microsoft Access Hilfe
Im Endlosformular aktiven Datensatz hervorheben: Hallo liebe Mitglieder. Eigentlich benötige ich was ganz einfaches... Ich lasse mir meine Datensätze (Filme) in einem Endlosformular anzeigen. Jeder Datensatz hat diverse Buttons. Klicke ich auf...
Nur ein aktives Optionsfeld
in Microsoft Word Hilfe
Nur ein aktives Optionsfeld: Hallo liebe Word-Gemeinde. Ich bin auf der Suche nach einer Lösung, komme aber nicht dahinter. Ich benötige Optionsfelder, in der es nur eine Wahlmöglichkeit gibt. Beispiel: Ich möchte einen...
Excel VBA CommentIndicator Farbe ändern, Code Umbau auf Aktive Zelle
in Microsoft Excel Hilfe
Excel VBA CommentIndicator Farbe ändern, Code Umbau auf Aktive Zelle: Hi Zusammen man kann ja den CommentIndicator leider nicht auf normalem Weg ändern (Rote Dreieck rechts in Ecke was einem anzeigt hier ist ein Kommentar in Zelle) nun hab ich folgendes Makro was...
Excel 2003: Aktive Zeile farblich hinterlegen
in Microsoft Excel Hilfe
Excel 2003: Aktive Zeile farblich hinterlegen: Hallo, ich schon wieder. Ich sitze nach wie vor an ziemlich großen und unübersichtlichen Excel-Tabellen, weswegen ich nach einer Möglichkeit suche, die jeweils aktive Zeile komplett farblich zu...
aktiver Formeltext - Excel 2003 - english version
in Microsoft Excel Hilfe
aktiver Formeltext - Excel 2003 - english version: Hallo liebe Foren-User, ich erstelle jede Woche Auswertung mit Excel, die eine Vielzahl von S-Verweisen (VLOOKUP's) in jeweils eine andere Excel-Datei enthalten. Nun meine Frage: Kann ich...

Anmelden oder registrieren

Suche

Diese Seite verwendet Cookies, um Inhalte zu personalisieren, diese deiner Erfahrung anzupassen und dich nach der Registrierung angemeldet zu halten.
Auf dieser Website werden Cookies für die Zugriffsanalyse und Anzeigenmessung verwendet.
Wenn du dich weiterhin auf dieser Seite aufhältst, akzeptierst du unseren Einsatz von Cookies.

Akzeptieren Weitere Informationen...

Information ausblenden