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; Hi, dein ListObject heißt nicht "Tabelle1" sondern "Tabelle_SCM_BE.accdb" [ATTACH] Dieses Thema im Forum "Microsoft Excel Hilfe" wurde erstellt von Joao, 10. Juni 2015.

Seite 4 von 6

Beverly Erfahrener User

aktives Excel-Datenblatt per VBA-Makro nach Outlook kopieren

Hi,

dein ListObject heißt nicht "Tabelle1" sondern "Tabelle_SCM_BE.accdb"

Beverly, 26. Juni 2015

#46
JOAO

Joao

Sorry,
aber ich kann jetzt nicht mehr folgen! *confused.gif*

Ist mit "ListObject" die Original ACCESS Datenbank gemeint?
Wenn JA lautet sie "SCM_BE.accdb", und warum wird darauf bezogen, da die Kompletten Daten von der Datenbank, ins Tabellenblatt "Tabelle1" importiert.

Das Importieren, mache ich immer in Excel per "Daten => Alle aktualisieren". Live funktioniert es nicht, da sonst die Datenbank immer Schreib gesperrt wird.

Oder ist damit was anderes gemeint?

Danke

Joao, 26. Juni 2015

#47
Beverly Erfahrener User

Setze den Cursor in Tabelle1 in deiner am 26.05.15 14:03 hochgeladenen Mappe in irgendeine Zelle im Bereich mit deinen Daten und gehe dann ins Namen-Feld - dort steht Tabelle_SCM_BE.accdb und nicht SCM_BE.accdb - wenn es in deiner jetzigen Mappe anders heißt, dann kann ich das nicht wissen.

und warum wird darauf bezogen, da die Kompletten Daten von der Datenbank, ins Tabellenblatt "Tabelle1" importiert.
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Auf was soll sich sonst bezogen werden? In diesem ListObject in Tabelle1 stehen doch die Daten...

Beverly, 26. Juni 2015

#48
JOAO

Joao

aktives Excel-Datenblatt per VBA-Makro nach Outlook kopieren

OK,

jetzt habe ich es Verstanden, JA sie heißt "Tabelle_SCM_BE.accdb".

Wenn ich den Makro ausführe, bekomme ich folgenden Fehler.

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.

"< HEUTE()-35" => "

Joao, 26. Juni 2015

#49
Beverly Erfahrener User

Zu diesem Problem hatte ich in meinem Beitrag 25.06.2015, 20:20 etwas geschrieben - ist sicher untergegangen bei der Fülle an Beiträgen.

Beverly, 26. Juni 2015

#50
HS(V)

HS(V)

Hallo,

Problem 2.
Code:

Set objOutlookAccount = GetOutlookAccount(OlApp, "Nachfrage@") 'Von:
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Ist dies ein gültiges account?

HS(V), 26. Juni 2015

#51
JOAO

Joao

Hallo HS(V),

JA in meine Datei steht dort die Richtige/vollständige eMail Adresse.

Joao, 27. Juni 2015

#52
Beverly Erfahrener User

aktives Excel-Datenblatt per VBA-Makro nach Outlook kopieren

Hi,

ich habe leider kein Excel2007 zur Verfügung um es zu testen, aber versuche es mal, indem du die fragliche Zeile so schreibst (also ohne Set-Befehl):

Code:

.SendUsingAccount = .Session.Accounts.Item("FMB Nachfrage") 'Von:
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Falls es mit der direkten Ansprache so nicht funktioniert, wäre noch die Möglichkeit, alle Konten zu durchlaufen und die relevante Nummer anzufragen:

Code:

With OlApp.CreateItem(0)
Dim intZaehler As Integer
For intZaehler = 1 To .Session.Accounts.Count
If .Session.Accounts.Item(intZaehler) = "FMB Nachfrage" Then Exit For
Next intZaehler
.SendUsingAccount = .Session.Accounts.Item(intZaehler)

'.... hier der restliche Code
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Beverly, 27. Juni 2015

#53

OFFICEUSER

OfficeUser Neuer User

Hallo Beverly,

ich habe jetzt dein Code komplett neu bearbeitet.

Der sieht wie folgt aus:
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

' Makro
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
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.

Doch jetzt wird die Komplette Tabelle nach "Auftrag_offen" kopiert, ohne die Bedingungen zu beachten
B = älter als 35 Tage
E = FALSCH

Auch werden die Tabellen überschriften (Zeile 7) nicht mit kopiert.
* Zeile 6 Makro Überschift "Folgende Aufträge sind noch offen"
* Zeile 7 "Tabellen überschrift"

Auftrag_offen

B C D E F
6 Folgende Aufträge sind noch offen
7
8 26.05.2015 A184780013 WAHR
9 18.06.2015 A185806381 WAHR 19.06.2015
10 19.06.2015 A185842443 WAHR
11 15.10.2014 88 FALSCH
12 27.04.2015 96 WAHR 11.11.2013
13 30.04.2015 103 WAHR 11.11.2013
14 04.05.2015 216 FALSCH
15 05.05.2015 278 WAHR 13.11.2013
16 06.05.2015 444 WAHR 13.11.2013
17 07.05.2015 448 FALSCH
18 08.05.2015 517 WAHR 22.11.2013
19 09.05.2015 656 FALSCH
20 10.05.2015 695 FALSCH
21 11.05.2015 806 WAHR 11.11.2013
22 12.05.2015 836 FALSCH
23 22.05.2015 888 WAHR 28.10.2013
24 03.06.2015 950 WAHR 30.10.2013
25 04.06.2015 992 FALSCH
Excel Tabellen im Web darstellen >>

OfficeUser, 27. Juni 2015

#54

JOAO

Joao

Hallo Beverly,
wegen der email (von*Smilie kann ich es am Dienstag prüfen.

Danke

Joao, 27. Juni 2015

#55
Beverly Erfahrener User

Ändere den Code wie folgt:

Code:

.ListObjects("Tabelle_SCM_BE.accdb").Range.AutoFilter Field:=6, _
Criteria1:="

Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Beverly, 27. Juni 2015

#56
HS(V)

HS(V)

von Joao

Hallo HS(V),

JA in meine Datei steht dort die Richtige/vollständige eMail Adresse.
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Und die e-Mail-Adresse ist auch als Account in Outlook?
Habe keine weitere Idee, Funktioniert hier einwandfrei.
Ansonsten bin ich am Ende.

Viel Glück weiter.

Zuletzt von einem Moderator bearbeitet: 12. Januar 2021

HS(V), 27. Juni 2015

#57
JOAO

Joao

aktives Excel-Datenblatt per VBA-Makro nach Outlook kopieren

Hallo,
den Fehler wegen Überschrift habe ich gefunden.

es war
Code:

Worksheets("Auftrag_offen").Range("A7").PasteSpecial xlPasteValuesAndNumberFormats
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

hier war "A8" und somit keine Überschrift.

Deine Änderung hat leider keine Besserung gebracht.

Code:

' Makro
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
With Worksheets("Tabelle1")
.ListObjects("Tabelle_SCM_BE.accdb").Range.AutoFilter Field:=6, _
Criteria1:="
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Joao, 27. Juni 2015

#58
Beverly Erfahrener User

Ich konnte nicht wissen, dass Überschriften benötigt werden - es ist ja schließlich auch ein wenig sinnlos, die Überschriften in Zeile 7 jedesmal zu löschen und anschließend wieder neu zu kopieren, denn sie sind ja für alle Varianten identisch, da die nicht relevanten Spalten ausgeblendet werden. Aus diesem Grund war mein Code so geschrieben, dass nach dem Kopieren Zeile 8 (die Überschriftenzeile aus Tabelle1) gelöscht wird und nur die Daten übrig bleiben.

Benutze beim Kopieren SpecialCells

Code:

.ListObjects("Tabelle_SCM_BE.accdb").Range.SpecialCells(xlCellTypeVisible).Copy
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Beverly, 27. Juni 2015

#59

OFFICEUSER

OfficeUser Neuer User

Problem 3:

Sorry,
aber die Bedingungen werden immer noch nicht erfült.

Zur Info:
Ich brauche / möchte das der Code folgendes herausfiltertet.

Tabelle3

B C D E F G
6 Folgende Aufträge sind noch offen
7 DatumZeit Kunden AuftragsNr Auftrag_abgeschlossen Auftrag_Abschuss Bearbeiter
11 15.10.2014 88 FALSCH
14 04.05.2015 216 FALSCH
17 07.05.2015 448 FALSCH
19 09.05.2015 656 FALSCH
20 10.05.2015 695 FALSCH
22 12.05.2015 836 FALSCH
Doch es Filter folgendes:

Auftrag_offen

B C D E F G
6 Folgende Aufträge sind noch offen
7 DatumZeit Kunden AuftragsNr Auftrag_abgeschlossen Auftrag_Abschuss Bearbeiter
8 27.04.2015 96 WAHR 11.11.2013
9 30.04.2015 103 WAHR 11.11.2013
10 05.05.2015 278 WAHR 13.11.2013
11 06.05.2015 444 WAHR 13.11.2013
12 08.05.2015 517 WAHR 22.11.2013
13 11.05.2015 806 WAHR 11.11.2013
14 22.05.2015 888 WAHR 28.10.2013
15 03.06.2015 950 WAHR 30.10.2013
Excel Tabellen im Web darstellen >>

OfficeUser, 28. Juni 2015

#60

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

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