E-Mail aus Excel VBA

Hallo Zusammen,
ich hab ein kleines Problem. Und zwar geht es wie die Überschrift schon verrät über eine automatische E-Mail Versendung aus Excel...
Das hab ich auch dank dem Forum schon gut hinbekommen das Excel das für mich erledigt, nur hab ich jetzt ein kleines Problem das sich darin niederschlägt, dass ich wenig bis garkeine VBA-Kenntnise hab und daher nicht ganz meinen zweiten Wunsch durchführen kann.
Anbei mal schnell mein Code:
Option Explicit
Sub mikelsMail()
Const tReceiver = "hier.die.richtige@addresse.de" ' ! Mailadresse
Dim objApp As Object
Dim objMailItm As Object
Set objApp = CreateObject("Outlook.Application")
Set objMailItm = objApp.CreateItem(0)
With objMailItm
.To = tReceiver
.Subject = "Warnung über die Zelle A1" ' ! Betreffzeile
' Inhalttext
.Body = "In der Zelle A1 steht jetzt:" & _
"" & vbCrLf & vbCrLf & _
"Gruss von Deinem Automatischen Excel-Mail Berichterstatter"
.Send
End With
Set objMailItm = Nothing
Set objApp = Nothing
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, ActiveSheet.Range("A1")) Is Nothing Then Exit Sub
If Target.Value = 1 Then mikelsMail
End Sub

So: wenn ich nun in Zelle "A1" eine 1 eintrage schickt das Ding mir sauber ne E-Mail. Nur sollte ich noch eine Zählfunktion einfügen...
Wenn z.B Zelle B1 > 5 (über Zählenwenn) dann soll mir Excel eine Mail schicken. Der Zähler soll danach wieder Manuell auf Null gesetzt werden.
Ist das möglich? und wenn ja könnt Ihr mir da helfen?
Vielen Dank schonmal im Vorraus.
Grüße und nen schönen Freitag
Spuddi

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Hansueli,
ich weiß auch, dass es so nicht funktioniert. Deshalb erbitte ich ja auch die Hilfe des Forum. Ich hab leider von VBA keine Ahnung. Ich hab diese Funktion das EXCEL mir eine E-Mail sendet auch hier im Forum gefunden und wollte sie einfach an mein Problem anpassen. Aber wie gesagt bin ich dazu noch nicht genügend in VBA eingearbeitet.
Nochmal zum Problem:
Ich habe eine Liste von Fertigungsteilen welche zum jetzigen Zeitpunkt alle eine 0 besitzen. Kommt jetzt eine Änderung, dann ändert der Monteur den aktuellen Status von 0 auf 1.
Nun soll die ganze Spalte der Änderungen (angenommen Spalte A1) mit der Funktion Zählenwenn abgesucht werden wie viele Änderungen (Status auf 1 gestellt) angefallen sind.
Wenn nun die Zelle B1 (B1 ist ein Beispiel) welche die Zählenwenn - Funktion enthält 5 anzeigt, soll EXCEL mir eine E-Mail senden damit ich die Änderungen abarbeiten kann.
Ich hoffe ich hab es gut erklärt und mich deutlich und mein Problem ausführlich dargestellt.
Deshalb habe ich in meinem vorherigen Post so ein einfaches Beispiel erstellt, da es genau mein Problem abbildet.
Wenn es in diesem einfachen Beispiel funktioniert kann ich es auf meine wirkliche Excel-Liste anwenden.
Bitte um Hilfe.
Danke nochmals für deine Mühen und die Geduld.
Grüße und ein schönes Wochenende
Marcus

Private Sub Worksheet_Change(ByVal Target As Range) Const Schwellwert As Long = 3 ' Existieren mehr als 3 Status 1 in Spalte A => Mail If Target.Column = 1 And Target.Count = 1 Then If WorksheetFunction.CountIf(Columns(1), 1) > Schwellwert Then mikelsMail End If End Sub

Beliebteste Forumthreads (12 Monate)

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread