Hallo zusammen,
ich habe mir hier folgende Codes aufgeschrieben.
Ich habe trotzdem weiter gefragt, wie dies mein
Problem bzw. Anliegen verbessern kann (so das es
richtig funktioniert).
Ich habe ja diesen Code bekommen, der lautet ja:
Wo ich auch den Code „Application.DisplayAlerts =
False“ mit gleich eingefügt hatte. (ob dies an der
richtigen Stelle ist, weiß ich nicht)
****// HERBER.DE ***********
Public NextTime As Date
Sub Versenden()
Dim shAdressen As Worksheet
Application.ScreenUpdating = False
Application.DisplayAlerts = False
ThisWorkbook.Worksheets(2).Copy
ActiveWorkbook.SendMail „[email protected]“, Format (Date,
„dd.mm.yy“) & " - " & _
Format(Time, „hh:mm:ss“)
ActiveWorkbook.Close savechanges:=False
NextTime = Now + TimeValue(„00:30:00“)
Application.OnTime NextTime, „Versenden“
End SubSub StopVersenden()On Error Resume Next
Application.OnTime NextTime, „Versenden“, , False
End Sub
****// HERBER.DE ***********
Dies war auch eine Variante, so daß die ganze Tabelle
verschickt wird, aber bei Microsoft hat aber dies was
ich bräuchte, das nur einige Zellen von der Tabelle
per Mail zugesandt werden. (NICHT ÜBER OUTLOOK —> im hintergrund automatisch)
Der Code von Microsoft lautet wie folgt:
****// Microsoft ***********
Sub BereichAlsEMailVersenden()
Dim Empänger, Titel As String
Dim n As Range
Empfänger = „[email protected]“
Titel = „Excel-Bereich als Anhang“
Set n = Application.InputBox _
(„Wählen Sie den Bereich aus, den Sie
versenden möchten“, Type:=8)
Range(n.Address).Select
Selection.Copy
Worksheets.Add
ActiveSheet.Paste
ActiveWorkbook.SaveAs „Anhang.xls“
Application.Dialogs(xlDialogSendMail).Show
Empfänger, Titel
End Sub
****// Microsoft ***********
Hier nochmal alles zum lesen:
http://www.microsoft.com/IntlKB/Germany/Support/kb/D……
Nun meine Frage, wie kann man die beiden Codes so
verbinden oder verändern, daß meine Anforderungentspricht:
Und was schreibe ich bei den Codes hinein … ??
(weil ja in manchen Teilen irgendwas reingeschrieben werden muß.
Bestimmte Zellen versenden (natürlich soll dies der
Rechner von alleine machen) … auch wenn es fünf
Zellen nebeneinander sind, mit der optlimalen Zeit
und Name der Tabelle.
Bemerkung: Bei dem Tabellennamen, sollte auch der
Rechner automatisch erkennen, was für Daten von
welcher Tabelle zu verschicken sind … die Tabelle
ist immer auf dem Desktop.
Zusammenfassung:
Ich möchte nur die untern aufgeführten Daten in mein
Postfach als Text haben:
- Name der Tabelle, z.B. „Mustermann.xls“
- die Zeit, die auch in der Tabelle ist
- fünf Zellen, die nebeneinander sind
- eine Zelle, wo der Betrag drin steht
… das Versenden dieser Daten sollte man nicht
mitbekommen, d.h. keine Meldungen ‚Die *.xls* wurde an
XXXX versendet‘ oder sönstige Bestätigungen. Man
sollte auch einstellen können, wann er diese Tabelle
versenden soll … so ca. nach aller halbe Stunde.
Die Tabelle sollte auch versendet werden, auch wenn
man an der Tabelle noch arbeitet … die Tabelle
wird immer wieder gespeichert, so das natürlich auch
die Daten auch problemlos in das Mailfach landen
können.
Mitteilung: Dies hat nichts mit ausspionieren zu tun,
daß hat was mit Kontrolle zu tun !!
Nun meine Frage, wie kann man die beiden Codes so
verbinden oder verändern, daß meine Anforderung
entspricht ???
Und wie gebe ich die Zellen der Tabelle an, imfolgenden Codezeile:
Set n = Application.InputBox _
(„Wählen Sie den Bereich aus, den Sie versenden
möchten“, Type:=8)
Kannst du mir auch mal drei Beispiele zeigen oder so,
falls du dies weißt ?? (mit unterschiedlichen
Arbeitsblättern)
Also, bisher konnte ich mir nicht helfen bei dieser Sache, aber naj …
Es wäre wieder echt nett, falls man da so machen kann…
würde mich auf eine Antwort freuen … (oder irgendwelche E-Mail Addys oder Pages, die sich damit auskennen)
MfG Maik Jannasch