Hallo,
das ist hier ist vermutlich das Problem
Öffne mal den VBA-Editor (Alt+F11) und schau in welcher Tabelle der Code laufen soll.
Im Projektexplorer (linke Seite) werden Dir die Tabellen angezeigt.
[
attachment=7087]
Nimm den Namen vor der Klammer. Der Name in Klammern ist der Name, der auf den Registern angezeigt wird.
Dann änderst Du obige Codezeile einfach in die entsprechende Tabelle. C'est ca :32:.
Gruß
Ich
Sorry ich war mal wieder zu kurz gesprungen.
Leezeilen sind grundsätzlich immer doof, aber hiermit sollte es funktionieren.
Ändere doch bitte noch diesen Teil:
For Z = 4 To zm
'Wenn in Spalte A ein Datum steht und das Datum in Spalte A <= Heute dann
If IsDate(.Cells(Z, 1).Value) And .Cells(Z, 1).Value <= Date Then
'nimm den Wert aus Spalte B und füge ihn der Variablen hinzu
pn = pn & .Cells(Z, 2).Value & ", "
End If
Next Z
VBA/HTML-CodeConverter, AddIn für Office 2002-2016 - in VBA geschrieben von Lukas Mosimann. Projektbetreuung:RMH Software & Media
Code erstellt und getestet in Office 12 - mit VBAHTML 12.6.0
Gruß
Ich
Tausend Danke! Hat endlich funktioniert so wie ich es mit vorgestellt habe :19:
Dir noch einen schönen Tag!
Beste Grüße
Garfield
Hi,
nochmal ne Frage: Wenn ich den Code jetzt eingegeben habe, läuft der automatisch im Hintergrund weiter?
Also wenn ich morgen dieses Datei öffne, würde ich ne E-Mail bekommen sofern das Datum von morgen dabei ist oder?
Falls nicht, wie aktiviere ich dass das Makro automatisch läuft?
Gruß
Hi,
der Code läuft nicht automatisch.
Am einfachsten wäre eine Schaltfläche auf dem/einen Blatt, die das Makro startet.
Gruß
Ich
Ich habe diesen Beitrag dazu gefunden ...
"Du musst auf Extras gehen , dann Makro, Makros; Bearbeiten ,
dann: Sub Makro1() durch Sub auto_open() ersetzen."
Bei dem jetzigen Code steht ja in der 1. Zeile: Sub EmailVersenden() ...meinst du ich könnte den dadurch ersetzen bzw. erweitern. Weil angeblich soll es damit funktionieren, also mit dem Sub auto_open().
Gruß
Hallo,
Zitat:dann: Sub Makro1() durch Sub auto_open() ersetzen."
Auto_Open ist älter als die Steinkohle.
Heute benutzt man ...
Zitat:Option Explicit
Private Sub Workbook_Open()
....
End Sub
... was in das Klassenmodul "DieseArbeitsmappe" gehört"
Danke Käpt'n für die schnelle Antwort!
Also nur die 3 Zeilen:
Option Explicit
Private Sub Workbook_Open()
End Sub
in "DieseArbeitsmappe" oder sollten die "..." zwischen private Sub und End Sub für die Zeilen des Codes stehen den ich verwende?
Gruß
Zur Veranschaulichung von Kapt'n Blaubär's Beitrag
Öffne die Entwicklungsumgebung (Alt+F11)
Doppelklicke links auf "Diese Arbeitsmappe"
[
attachment=7095]
Wähle "Workbook"
[
attachment=7096]
und füge den Code dazwischen ein.
[
attachment=7097]
Hallo,
Zitat:... in "DieseArbeitsmappe" oder sollten die "..." zwischen private Sub und End Sub für die Zeilen des Codes stehen den ich verwende?
ähm, ja, ... das wäre von Vorteil, ... weil ich annehme, daß sonst Excel nicht weiß, was zu tun ist. :05:
Allerdings habe ich mir Deinen Code nicht angesehen und ich habe auch die
25 vorherigen Posts nicht gelesen. Ich bin erst gerade wieder von einer
"Außenmission" zurück und bin froh, meinen Hintern mal wieder bequem
geparkt zu haben :19:
Hi @ Ich, Danke für Deine Erläuterungen.
Komplett wäre aber gewesen zu bemerken:
speichern nicht vergessen :19: