Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Werte aus Zellen per Button an Email

Werte aus Zellen per Button an Email
11.09.2005 08:33:48
Rico
Hallo liebe Experten. :-)
Ich hab mal wieder eine Frage, bei der ich Eure Hilfe benötige.
In einer Tabelle werden in folgenden Feldern automatisch ausgerechnete Werte angezeigt:
F7 - F12 - I26 - I30 - J8
Nun möchte ich einen Button hinzufügen, der beim Drücken die Werte dieser 5 Felder an eine Email-Adresse versendet. Die erhaltene Email sollte dann folgenden Inhalt haben:
AUSWERTUNG (aktuelles Datum):
AHT: (Wert aus F7)
OCCU: (Wert aus F12)
IDLE: (Wert aus I26)
WRAP: (Wert aus I30)
MSG: (Wert aus J8)
Gibt es jemand Freiwilligen, der mir einen solchen VBA-Code erstellen kann?
Falls es zu kompliziert werden sollte, würde mir auch eine Alternative helfen:
Beim Drücken des Buttons soll eine Kopie des Tabellenblattes "Occu 1212 Auswertung" gemacht werden und diese als Anhang an eine Email geschickt werden.
Ich danke Euch schon jetzt für Eure Hilfe und wünsche noch einen schönen Sonntag.
MfG
Rico
Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Werte aus Zellen per Button an Email
11.09.2005 09:14:33
GraFri
Hallo
Vielleicht hilft dir folgender Code weiter.


      
Option Explicit
Private Sub OutlookOeffnen_Click()
  
Dim outlAnw As Object
  
Dim olAnw As Object
  
Dim Adressaten As String
  
  Adressaten = "gra.fri@aon.at"
  
  
Set outlAnw = CreateObject("Outlook.Application")
  
Set olAnw = outlAnw.CreateItem(0)
With olAnw
' EMailadresse
.To = Adressaten
' Betreffzeile
.Subject = "Test-Email " & Date & ", " & Time
' Text
.Body = "AUSWERTUNG (" & Date & ")" & vbCrLf & vbCrLf & _
        "AHT: " & Range("F7").Value & vbCrLf & _
        "OCCU: " & Range("F12").Value & vbCrLf & _
        "IDLE: " & Range("I26").Value & vbCrLf & _
        "WRAP: " & Range("I30").Value & vbCrLf & vbCrLf & _
        "MSG: " & Range("J8").Value
' nur wenn Datei angehängt
'.Attachments.Add "C:\test.xls", olByValue, 1, "NamederDatei"

'.CC = "Email@Adresse" ' hier EMailadresse anpassen
'.BCC = "Email@Adresse" ' "

.Display 
'Outlook-Fenster vor dem Senden anzeigen
'.send '= sendet sofort ohne Mail anzuzeigen
End With
mfg, GraFri
Anzeige
AW: Werte aus Zellen per Button an Email
11.09.2005 09:36:08
Rico
Hallo GraFi,
superklasse - das funktioniert schon mal ganz gut. :-)
Eine Sache ist mir aber noch aufgefallen:
Die Werte OCCU (F12), IDLE (I26) und WRAP (I30) sind Prozent-Werte und werden auch so dargestellt. In der erzeugten Email werden diese nun aber als Dezimalzahlen angezeigt.
Beispiel: In der Tabelle steht der Wrap-Wert 7,7% - in der Email steht dann 0,076838260629867
Kann man das noch angleichen, dass der Wert in der Mail auch "7,7%" ist? :-)
Danke noch mal.
Rico
Anzeige
AW: Werte aus Zellen per Button an Email
11.09.2005 10:10:55
GraFri
Hallo
Ersetze 'Value' durch 'Text'.
mfg, GraFri
;
Anzeige
Anzeige

Infobox / Tutorial

Werte aus Zellen per Button an Email senden


Schritt-für-Schritt-Anleitung

Um einen Email-Button in Excel zu erstellen, der beim Drücken die Werte aus bestimmten Zellen an eine Email-Adresse sendet, folge diesen Schritten:

  1. Öffne Excel und lade die entsprechende Arbeitsmappe.

  2. Gehe zu "Entwicklertools". Falls dieser Tab nicht sichtbar ist, aktiviere ihn unter "Datei" > "Optionen" > "Menüband anpassen".

  3. Klicke auf "Einfügen" und wähle "Button (Formularsteuerelement)" aus.

  4. Ziehe den Button auf das Arbeitsblatt, um ihn zu platzieren.

  5. Im Fenster "Makro zuweisen" wähle "Neues Makro" aus, um den VBA-Editor zu öffnen.

  6. Kopiere den folgenden VBA-Code und füge ihn ein:

    Option Explicit
    
    Private Sub OutlookOeffnen_Click()
        Dim outlAnw As Object
        Dim olAnw As Object
        Dim Adressaten As String
    
        Adressaten = "deine_email@example.com"
    
        Set outlAnw = CreateObject("Outlook.Application")
        Set olAnw = outlAnw.CreateItem(0)
    
        With olAnw
            .To = Adressaten
            .Subject = "Test-Email " & Date & " " & Time
            .Body = "AUSWERTUNG (" & Date & ")" & vbCrLf & vbCrLf & _
                     "AHT: " & Range("F7").Value & vbCrLf & _
                     "OCCU: " & Range("F12").Text & vbCrLf & _
                     "IDLE: " & Range("I26").Text & vbCrLf & _
                     "WRAP: " & Range("I30").Text & vbCrLf & _
                     "MSG: " & Range("J8").Value
            .Display 'oder .Send für sofortiges Senden
        End With
    End Sub
  7. Ersetze "deine_email@example.com" mit der gewünschten Email-Adresse.

  8. Schließe den VBA-Editor und teste den Button.


Häufige Fehler und Lösungen

  • Problem: Email wird nicht gesendet oder es öffnet sich eine Fehlermeldung.

    • Lösung: Überprüfe, ob Microsoft Outlook als Standard-Mail-Client konfiguriert ist und ob Makros in Excel aktiviert sind.
  • Problem: Prozentwerte erscheinen als Dezimalzahlen in der Email.

    • Lösung: Ersetze .Value durch .Text im VBA-Code, um die formatierte Darstellung der Werte zu erhalten.

Alternative Methoden

Wenn du keine VBA-Programmierung verwenden möchtest, kannst du auch eine HTML-Email erstellen. Dazu kann ein Excel-Button verwendet werden, der ein einfaches Makro ausführt, um die Email mit HTML-Inhalt zu versenden.

Ein Beispiel für ein einfaches HTML-Format könnte so aussehen:

.BodyFormat = 2 ' 2 = HTML
.Body = "<html><body><h1>AUSWERTUNG (" & Date & ")</h1>" & _
        "<p>AHT: " & Range("F7").Text & "</p>" & _
        "<p>OCCU: " & Range("F12").Text & "</p>" & _
        "<p>IDLE: " & Range("I26").Text & "</p>" & _
        "<p>WRAP: " & Range("I30").Text & "</p>" & _
        "<p>MSG: " & Range("J8").Value & "</p>" & _
        "</body></html>"

Praktische Beispiele

Hier ist ein Beispiel, wie du einen Excel Mail versenden Button erstellen kannst:

  1. Erstelle eine neue Tabelle, in der du die Werte in F7, F12, I26, I30 und J8 einträgst.
  2. Platziere den Button und weise das Makro zu.
  3. Klicke auf den Button, um die Email mit den Werten zu versenden.

Tipps für Profis

  • Nutze email buttons in Excel, um automatisierte Berichte zu versenden.
  • Experimentiere mit der Formatierung von Text in der Email, um die Lesbarkeit zu verbessern.
  • Verlinke Dateien oder füge Anhänge hinzu, um die Informationen zu vervollständigen.

FAQ: Häufige Fragen

1. Frage
Wie kann ich sicherstellen, dass die Email auch tatsächlich gesendet wird?
Antwort: Stelle sicher, dass Outlook als Standard-Mail-Programm eingestellt ist und überprüfe die Internetverbindung.

2. Frage
Kann ich den Button auch für andere Aktionen verwenden?
Antwort: Ja, du kannst den Button mit jedem gewünschten VBA-Programm verknüpfen, um verschiedene Aufgaben in Excel zu automatisieren.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige