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; Ist die Tabelle eventuell komplett leer? Dann tritt dieser Fehler auf. [ATTACH] Dieses Thema im Forum "Microsoft Excel Hilfe" wurde erstellt von Joao, 10. Juni 2015.

Seite 3 von 6

Beverly Erfahrener User

aktives Excel-Datenblatt per VBA-Makro nach Outlook kopieren

Ist die Tabelle eventuell komplett leer? Dann tritt dieser Fehler auf.

Beverly, 24. Juni 2015

#31

OFFICEUSER

OfficeUser Neuer User

Hallo,

die Tabelle ist befüllt.

Tabelle1

A B C D E F G H
1 ID DatumZeit Kunden AuftragsNr Auftrag_abgeschlossen Auftrag_Abschuss Bearbeiter Bemerkung_Bearbeiter
2 14024 26.05.2015 A184780013 WAHR
3 14949 18.06.2015 A185806381 WAHR 19.06.2015
4 14970 19.06.2015 A185842443 WAHR
5 57 15.10.2014 88 FALSCH
6 59 27.04.2015 96 WAHR 11.11.2013
7 66 30.04.2015 103 WAHR 11.11.2013
8 67 04.05.2015 216 FALSCH
9 69 05.05.2015 278 WAHR 13.11.2013
10 70 06.05.2015 444 WAHR 13.11.2013
11 71 07.05.2015 448 FALSCH
12 72 08.05.2015 517 WAHR 22.11.2013
13 73 09.05.2015 656 FALSCH
14 75 10.05.2015 695 FALSCH
15 78 11.05.2015 806 WAHR 11.11.2013
16 79 12.05.2015 836 FALSCH
17 80 22.05.2015 888 WAHR 28.10.2013
18 82 03.06.2015 950 WAHR 30.10.2013
19 83 04.06.2015 992 FALSCH
Excel Tabellen im Web darstellen >>

OfficeUser, 24. Juni 2015

#32

Beverly Erfahrener User

Da kann ich nur empfehlen, dass du deine Mappe mit dem derzeitgen Code hochlädst, damit man dort nachschauen kann, wo das Problem eventuell liegt.

Beverly, 24. Juni 2015

#33
JOAO

Joao

aktives Excel-Datenblatt per VBA-Makro nach Outlook kopieren

Anbei meine aktuelle Excel Datei.

Joao, 25. Juni 2015

#34
JOAO

Joao

Problem 2 : erledigt DANKE
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Leider Funktioniert es nur bei mir Zuhause (Excel 2010), hier auf der Arbeit wo ich es brauche (Excel 2007) Funktioniert es nicht.

Fehlermeldung

Joao, 25. Juni 2015

#35
Beverly Erfahrener User

Nicht Tabelle1 betrifft der Fehler aus Beitrag 24.06.2015 22:43 sondern Tabelle Auftrag_offen - dort ist bei dir das komplette Tabellenblatt leer (Steuerelemente zählen dabei nicht, da sich der Code auf Zellen bezieht).

Beverly, 25. Juni 2015

#36
Beverly Erfahrener User

An welcher Stelle im Code kommt der Fehler?

Beverly, 25. Juni 2015

#37
JOAO

Joao

aktives Excel-Datenblatt per VBA-Makro nach Outlook kopieren

Sorry,
das verstehe ich jetzt nicht.

Meine Excel-Datei hat zwei Tabellen "Auftrag_offen" und "Tabelle1"
=> In die Tabelle-Datenblatt "Tabelle1" werden die Daten aus ACCESS "BE.accdb" importiert.
=> Das Makro gibt das Ergebnis in die Tabelle-Datenblatt " Auftrag_offen ".

Wie soll der Code angepasst werden?

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.

Joao, 25. Juni 2015

#38
JOAO

Joao

Problem 2:

Code:

Sub eMail_ohne_Anhang_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

' Email Erstellen
lngLetzte = Cells.Find(What:="*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
Set rngBereich = Range(Cells(6, 1), Cells(lngLetzte, 26)).SpecialCells(xlCellTypeVisible)
Set OlApp = CreateObject("Outlook.Application")

With OlApp.CreateItem(0)
Set .SendUsingAccount = .Session.Accounts.Item("FMB Nachfrage") 'Von:
.GetInspector.Display 'Email anzeigen
.ReadReceiptRequested = True 'Lesebestätigung
.Sensitivity = 3 'Vertraulichkeit
.Importance = 2 'Wichtigkeit

' Email
olOldbody = .HTMLBody
.To = "testserver.de"
.CC = "empfänger@"
.BCC = "empfänger5@"
.Subject = "SCM : Verdatung im Tool fehlerhaft => Bitte bearbeiten"

' Das Format des Emailtextes
strHTML = RangetoHTML(rngBereich) & olOldbody
strHTML = Replace(strHTML, "align=center", "align=left")
.HTMLBody = strHTML
.GetInspector.Display
End With
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Joao, 25. Juni 2015

#39
HS(V)

HS(V)

Hallo,

Ist es auch möglich die "Von" Adresse im VBA mit vorzugeben?
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Versuche es auf diese Weise.

In einem Standardmodul.
Code:

Function GetOutlookAccount(objOutlook As Object, strEmailId As String) As Object
Dim objOAccount As Object
For Each objOAccount In objOutlook.Session.Accounts
If objOAccount.DisplayName = strEmailId Then
Set GetOutlookAccount = objOAccount
Exit For
End If
Next objOAccount
End Function
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Code:

Sub eMail_ohne_Anhang_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

' Email Erstellen
lngLetzte = Cells.Find(What:="*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
Set rngBereich = Range(Cells(6, 1), Cells(lngLetzte, 26)).SpecialCells(xlCellTypeVisible)
Set OlApp = CreateObject("Outlook.Application")
Set objOutlookAccount = GetOutlookAccount(OlApp, "Joao@gmail.com")
With OlApp.CreateItem(0)
Set .sendusingaccount = objOutlookAccount 'Von:
.GetInspector.Display 'Email anzeigen
.ReadReceiptRequested = True 'Lesebestätigung
.Sensitivity = 3 'Vertraulichkeit
.Importance = 2 'Wichtigkeit

' Email
olOldbody = .HTMLBody
.To = "testserver.de"
.CC = "empfänger@"
.BCC = "empfänger5@"
.Subject = "SCM : Verdatung im Tool fehlerhaft => Bitte bearbeiten"

' Das Format des Emailtextes
strHTML = RangetoHTML(rngBereich) & olOldbody
strHTML = Replace(strHTML, "align=center", "align=left")
.HTMLBody = strHTML
.GetInspector.Display
End With
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

HS(V), 25. Juni 2015

#40
Beverly Erfahrener User

Das ist ganz einfach zu verstehen: als ich den Code geschrieben und getestet habe, standen in Tabelle "Auftrag_offen" in den Zeilen 1 bis 7 Daten - nur wenn die Tabelle komplett leer ist, tritt der Fehler auf. Da das Tabellenblatt aber auch leer sein kann, muss der Code wie folgt geändert werden:

Code:

' Auftrag offen - alle Spalten Einblenden, Zellen leeren
With Worksheets("Auftrag_offen")
If Application.CountA(.UsedRange) 0 Then
lngLetzte = .Cells.Find(What:="*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
intLetzte = .Cells.Find(What:="*", SearchOrder:=xlByColumns, SearchDirection:=xlPrevious).Column
If lngLetzte > 7 Then .Range(.Cells(6, 1), .Cells(lngLetzte, intLetzte)).ClearContents
End If
.Cells.EntireColumn.Hidden = False
.Columns("A:A").Hidden = True
End With
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Beverly, 25. Juni 2015

#41
JOAO

Joao

Problem 3:

Hallo Beverly,

jetzt bekomme in ein Laufzeitfehler (Bild 1).

Und zwar hier im Code
Code:

' Makro
With Worksheets("Tabelle1")
.ListObjects("Tabelle1").Range.AutoFilter Field:=6, _
Criteria1:="< HEUTE()-35", Operator:=xlAnd
.ListObjects("Tabelle1").Range.Copy
Worksheets("Auftrag_offen").Range("A8").PasteSpecial xlPasteValuesAndNumberFormats
Worksheets("Auftrag_offen").Rows(8).Delete
.ListObjects("Tabelle1").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
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Info : hier "< HEUTE()-35" ist keine Leerzeichen dazwischen.

Joao, 25. Juni 2015

#42
JOAO

Joao

aktives Excel-Datenblatt per VBA-Makro nach Outlook kopieren

Problem 2 :

Hallo HS(V),

jetzt bekomme in ein Laufzeitfehler (Bild 1).

Code:

' Email Erstellen
lngLetzte = Cells.Find(What:="*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
Set rngBereich = Range(Cells(6, 1), Cells(lngLetzte, 26)).SpecialCells(xlCellTypeVisible)
Set OlApp = CreateObject("Outlook.Application")
Set objOutlookAccount = GetOutlookAccount(OlApp, "Nachfrage@") 'Von:

With OlApp.CreateItem(0)
Set .sendusingaccount = objOutlookAccount 'Von:
.GetInspector.Display 'Email anzeigen
.ReadReceiptRequested = True 'Lesebestätigung
.Sensitivity = 3 'Vertraulichkeit
.Importance = 2 'Wichtigkeit

' Email
olOldbody = .HTMLBody
.To = "testserver.de"
.CC = "empfänger@"
.BCC = "empfänger5@"
.Subject = "SCM : Verdatung im Tool fehlerhaft => Bitte bearbeiten"

' Das Format des Emailtextes
strHTML = RangetoHTML(rngBereich) & olOldbody
strHTML = Replace(strHTML, "align=center", "align=left")
.HTMLBody = strHTML
.GetInspector.Display
End With
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Joao, 25. Juni 2015

#43
Beverly Erfahrener User

Hi,

heißt dein Tabellen-/Listobjekt vielleicht nicht "Tabelle1" sondern anders?

Beverly, 26. Juni 2015

#44
JOAO

Joao

Problem 3:

Hallo Beverly,

doch es heißt "Tabelle1".

Joao, 26. Juni 2015

#45

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

Seite 3 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