Supportnet / Forum / Tabellenkalkulation

hi ich habe eine excelltabelle in der sich mehrere ergebniss in verschiedenen zellen befinden, aber alles in einem einzigen blatt.. jetzt will ich z.B. den zellinhalt durch ein einfaches anklicken per email verschicken. im moment habe ich es so gelöst, ich habe neben der ergebniszelle ein mailto:kadhf@jshdf.sd angelget. damit kann ich mein emailprogramm starten, durch kopieren den zellinhalt in die neue email einfügen und senden. ich will mir aber das einfügen sparen. es sind immerhin ca. 50 datensätze an jedem ende des monats. und da ist es natürlich schon passiert, dass ich den falschen zellinhalt an die falsche person geschickt habe. wie kann ich das machen? Ein komplettes senden des datenblatt an alle empfänger fällt flach. es sollte nicht sein, dass die anderen den zellwert des anderen wissen. das wäre nicht fair. und das weitere problem ist, es werden immer mehr user und ich brauch dementsprechend immer länger bis die email verschickt wird :-( und ein anderes prog. als excell ist leider auch nicht möglich. danke für eventuelle hilfen blbl

??? keiner eine idee ???

hallo blbl,

doch, ich habe dazu eine Idee, aber nur in der "Theorie", in der Praxis kann ich dir leider nicht helfen.

Das müßte über ein Makro oder mit VBA zu lösen sein. Vielleicht ist ja einer der VBA-Experten in der Lage, da etwas zu zaubern.

Oder jemand anders kennt ein Programm. Von SAD gab es mal "Klick.exe", damit konnte man Abläufe automatisieren, also quasi eigene kleine programme für den PC-Alltag erstellen. Ob das, was du vorhast, damit auch geht, weiss ich leider nicht.

ich hoffe, dir kann jemand besser weiterhelfen als ich ;-)

CU
want2cu

na das ist doch schon mal was.

hat jemand die lust ein makro zu schreiben? ich hab da überhaupt keine plan.

blbl

Hi @all,

ich hätte da folgenden Vorschlag zu machen:

 Sub Mail()
Dim oOL As Object
   Dim oOLMsg As Object
   Dim oOLRecip As Object
   Dim sAddress As String
   sAddress = Range("D1").Value
   Set oOL = CreateObject("Outlook.Application")
   Set oOLMsg = oOL.CreateItem(0)
   With oOLMsg
      Set oOLRecip = .Recipients.Add(sAddress)
      .Subject = "Dies ist ein Outlook-Test"
      .Body = ActiveCell.Value
      .Importance = 1
      .Send
   End With
   oOLRecip.Resolve
   Set oOLRecip = Nothing
   Set oOLMsg = Nothing
   Set oOL = Nothing
End Sub

Du solltest eine Schaltfläche über Steuerelement/Toolbox erzeugen und den Code dort rein kopieren.

Es muss die Zelle markiert werden, deren Inhalt per Mail versandt werden soll.

Das Makro öffnet den E-Mailentwurf, kopiert den Inhalt der aktiven Zelle hinein und legt die Mail in den Posteingang. Der Empfänger der Mail muss in Zelle D1 stehen (kann abgeändert werden). Das könnte man aber auch mit einem Listenfeld, in dem die ganzen E-Mailempfänger dann stehen würden erledigen. Als Betreff wird der Text Dies ist ein Outlook-Test eingetragen. Das kann durch austauschen des Textes in der Zeile . .Subject = "Dies ist ein Outlook-Test" im Code abgeändert werden.

Ich hoffe, ich konnte Dir weiterhelfen,
coros
_{Und nicht vergessen, hier noch einmal zu posten, ob Dich die Hilfe weitergebracht oder sogar} ^{Dein Problem gelöst hat.}

@coros

danke für deine hilfe.
nur, ich bin zu blöd.
ich kann zwar Steuerelement/Toolbox anzeigen, dort aber keine schaltfläche erzeugen :-(

Ich hab excel2000 und absoluter anfänger

Hi blbl,

klicke in der Symbolleiste Steuerelement/Toolbox auf den Button Befehlsschaltfläche (sechster Button von links). Der Mauszeiger verändert sein Aussehen und wird als Fadenkreutz dargestellt. Nun ziehst Du bei gedrückter linker Maustaste die Schaltfläche so gross, wie die Schaltfläche sein soll. Als nächstes klickst Du auf den Button Code anzeigen (dritter Button von links. Es wird die VBA-Umgebung geöffnet. Es sollte dann folgendes dort stehen:

Private Sub CommandButton1_Click()

End Sub

Nun kopierst Du den Code

Dim oOL As Object
   Dim oOLMsg As Object
   Dim oOLRecip As Object
   Dim sAddress As String
   sAddress = Range("D1").Value
   Set oOL = CreateObject("Outlook.Application")
   Set oOLMsg = oOL.CreateItem(0)
   With oOLMsg
      Set oOLRecip = .Recipients.Add(sAddress)
      .Subject = "Dies ist ein Outlook-Test"
      .Body = ActiveCell.Value
      .Importance = 1
      .Send
   End With
   oOLRecip.Resolve
   Set oOLRecip = Nothing
   Set oOLMsg = Nothing
   Set oOL = Nothing

und fügst ihn in die leere Zeile unter Private Sub CommandButton1_Click(). Danach wechselst Du wieder in Deine Excelarbeitsmappe und klickst in der Symbollseite Steuerelement/Toolbox auf den ersten Button (das mit dem Lineal, Geodreieck, Stift). Nachdem Du die Kriterien erfüllt hast, wie in meinem vorherigen Posting schon beschrieben (Zelle markieren und in D1 den Empfänger eintragen) müsste beim Anklicken der Befehlsschaltfläche das Makro ausgeführt werden.

Solltest Du noch Probleme haben, melde Dich nochmal oder sende mir Deine Datei per Mail zu, dann mache ich das für Dich.

MfG,
coros
_{Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du ein} ^{Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.}

hi coros

du hast post.

tut mir leid, ich krieg es nicht hin :-(

blbl

Hi blbl,

werde erst heute Abend dazu kommen, Das Makro einzuarbeiten. Werde mich dann bei Dir melden.

MfG,
coros
_{Jeder macht was er will, keiner macht was er soll aber alle machen mit.}

Klasse, super, juhu es funktioniert :-)
und den Text konnte ich auch anpassen, ohne das es zu problemem kommt *gg*

Nur eins noch. muss es unbedingt outlook sein? kann man da nicht auch andere emailprogramme eintragen, eudora z.b.?
wenn das aber jetzt zu viel für dich wird, ich kann auch so damit leben :-)

freu mich riesig
Gruß

• Acrobat Pro-Email Signatur mitsenden
• email versand problem-outlook-exprexx
• email-adressen
• Bilder verkleinern und per eMail senden funktioniert nicht mehr