Hallo Excelperten,
ich möchte alle Zellinhalte eines markierten Zellbereichs (oder mehrerer gleichzeitig markierter Zellbereiche) in einer Variablen (z.B. in einem ARRAY!?) speichern. Der/die markierten Zellbereiche befinden sich ausschließlich in der Spalt „A“.
Außerdem soll zu JEDEM Zellinhalt auch der Zellinhalt der Spalte „F“ der jeweiligen Zeile gespeichert werden.
z.B.
Markiert wurde von A4 bis A7 und gleichzeitig von A11 bis A13.
Dann sollen die Zellinhalte folgender Zellen in einer Variablen gespeichert werden:
A4, F4
A5, F5
A6, F6
A7, F7
A11, F11
A12, F12 und
A13, F13
Schöne Grüße
Roland
Markiert wurde von A4 bis A7 und gleichzeitig von A11 bis A13.
Dann sollen die Zellinhalte folgender Zellen in einer
Variablen gespeichert werden:
A4, F4
A5, F5
A6, F6
A7, F7
A11, F11
A12, F12 und
A13, F13
Hi Roland,
und was soll dann geschehen mit der Variablen?
Gruß
Reinhard
Hallo Reinhard,
Markiert wurde von A4 bis A7 und gleichzeitig von A11 bis A13.
Dann sollen die Zellinhalte folgender Zellen in einer
Variablen gespeichert werden:
A4, F4
A5, F5
A6, F6
A7, F7
A11, F11
A12, F12 und
A13, F13
und was soll dann geschehen mit der Variablen?
die gespeicherten Daten sollen wieder in einer Email ausgelesen werden. Das klappt bisher nur mit einer markierten Zelle aus der Spalte „A“.
Set outObj = CreateObject(„Outlook.Application.11“)
Set Mail = outObj.CreateItem(0)
Mail.Subject = „Daten aus Excel“
Mail.Body = „Sehr geehrter Herr Meier,“ & vbLf & vbLf & _
„anbei die Daten aus der Excel-Tabelle“ & vbLf & vbLf & _
„Werte aus A:“ & vbTab & vbTab & vbTab & „Werte aus F:“ & vbLf & _
ActiveCell.Value & vbTab & vbTab & ActiveCell.Offset(0, 5).Value & vbLf & vbLf & _
„Mit freundlichen Grüßen“ & vbLf & vbLf & „Roland“
Mail.To = „[email protected]“
Mail.Display
Set Mail = Nothing
Set outObj = Nothing
Gruß
Roland
Tabellenbereiche per Email versenden
und was soll dann geschehen mit der Variablen?
die gespeicherten Daten sollen wieder in einer Email
ausgelesen werden. Das klappt bisher nur mit einer markierten
Zelle aus der Spalte „A“.
Hi Roland,
probiers mal so:
Sub nn()
Set outObj = CreateObject("Outlook.Application")
Set Mail = outObj.CreateItem(0)
Mail.Subject = "Daten aus Excel"
mldg = "Sehr geehrter Herr Meier," & vbLf & vbLf & \_
"anbei die Daten aus der Excel-Tabelle" & vbLf & vbLf & \_
"Werte aus A:" & vbTab & vbTab & vbTab & "Werte aus F:" & vbLf
For Each Zelle In Selection
mldg = mldg & Zelle.Value & vbTab & vbTab & Zelle.Offset(0, 5).Value & vbLf
Next Zelle
mldg = mldg & vbLf & "Mit freundlichen Grüßen" & vbLf & vbLf & "Roland"
Mail.Body = mldg
Mail.To = "[email protected]"
Mail.Display
Set Mail = Nothing
Set outObj = Nothing
End Sub
Gruß
Reinhard
Hallo Reinhard,
vielen Dank, ich werde es erst morgen ausprobieren können. Ich sage Dir bescheid wie es geklappt hat.
Gruß
Roland
Hallo Reinhard,
hat alles bestens geklappt. Vielen Dank!
Weißt Du zufällig auch wie ich am Ende der erzeugten Email meine Signatur einfügen kann. Wenn ich über normalem Weg eine Email erstelle, werden am Ende immer meine Kontaktdaten aus der Signatur übernommen. In der Outlook-VBA-Hilfe findet man unter „Signatur“ nur die Sicherheits-Signaturen.
Gruß
Roland
Weißt Du zufällig auch wie ich am Ende der erzeugten Email
meine Signatur einfügen kann. Wenn ich über normalem Weg eine
Email erstelle, werden am Ende immer meine Kontaktdaten aus
der Signatur übernommen. In der Outlook-VBA-Hilfe findet man
unter „Signatur“ nur die Sicherheits-Signaturen.
Hallo Roland,
ich benutze Outlook nicht, ich nehm für meine paar Mails Outlook Express und fertig.
Von daher weiß ich gar nicht was nun Sicherheitsignaturen bedeuten bei Outlook, schreibt der in jede ausgehende Mail untenrein, Achtung wurde mit MS-Produkt verschickt, nur öffnen mit ABC-Schutz-Vollausrüstung in sicherem Abstand ? 
Aus was besteht denn deine Signatur die du in die Mail unten dranhägen wwillst, nur aus Text sicher nicht sonst würdest du ja den Text mit in den Code aufnehmen.
Bilder oder was?
Gruß
Reinhard
Aus was besteht denn deine Signatur die du in die Mail unten
dranhägen wwillst, nur aus Text sicher nicht sonst würdest du
ja den Text mit in den Code aufnehmen.
Bilder oder was?
Hallo Reinhard,
die Signatur besteht nur aus Text, und zwar aus meinen Firmen-Kontaktdaten. Allerdings mit verschieden Text-Formaten. Diese Email-Signatur ist in Outlook abgelegt und wird automatisch ans Ende jeder neu verfassten oder beantworteten Email angehängt.
Das klappt aber nicht bei den Emails die über VBA erzeugt wurden. Es wäre einfacher, wenn man nur etwas wie „add.mail.signature“ o.ä. verwenden könnte, als den kompletten Text ins Makro mit aufzunehmen und noch auf die verschiedenen Text-Formatierungen achten zu müssen.
Gruß
Roland
die Signatur besteht nur aus Text, und zwar aus meinen
Firmen-Kontaktdaten. Allerdings mit verschieden Text-Formaten.
Diese Email-Signatur ist in Outlook abgelegt und wird
automatisch ans Ende jeder neu verfassten oder beantworteten
Email angehängt.
Das klappt aber nicht bei den Emails die über VBA erzeugt
wurden. Es wäre einfacher, wenn man nur etwas wie
„add.mail.signature“ o.ä. verwenden könnte, als den kompletten
Text ins Makro mit aufzunehmen und noch auf die verschiedenen
Text-Formatierungen achten zu müssen.
Hallo Roland,
schau mal hier:
http://www.rondebruin.nl/mail/folder3/signature.htm
wenn du damit einen Lösungscode zusammenbasteln kannst wäre das nett wenn du ihn hier schreibst.
Wenn nicht, sag Bescheid, dann schaue ich nochmal. Mein Problem ist, Vba ist nicht Vba und Outlook-Vba kenne ich nicht, vielleicht (höchstwahrscheinlich ja) gibt es da sowas wie du richtig sagst wie „Add.Signature“ oder so, aber wenn man nicht weiß wie genau das eigentlich heißt oder wie man das referenziert wirds halt nix.
Leider hat OL keinen Makrorekorder wo man aufzeichnen könnte wenn man an eine mail da so eine Signatur anhängt.
Also probiere mal die Codes von dem Link von mir, und/oder schau mal in der Ol-Vba-Hilfe nach signature, vielleicht findet sich da was.
Gruß
Reinhard