When Dropdownchange
25.08.2022 09:50:19
Brudolf
Ich habe folgendes Problem:
Ich habe eine Excel, in welcher aufgegebene Bestellungen gelistet und überwacht werden sollen.
Eine Spalte (I) enthält ein Dropdownfeld, in welcher derjenige, welcher ein Paket annimmt seinen Namen selektiert um festzuhalten, dass er das Paket vom Postboten angenommen hat.
In diesem Moment wollte ich, dass eine Email getriggert wird, welche den Initalen Besteller (Spalte A) darüber informiert.
Da ich bei meinem Dropdownfeld mittels Rechtsklick den EIntrag "Makro zuweisen" nicht finden konnte (darauf verweisen viele Foren)
Wollte ich als Workaround eine Prüfschliefe zu beginn der Makro einbauen, welche dann den Emailversand triggert.
Sprich: Check ob (I) angenommen gefüllt ist, dann an jenen welcher spalte A eingetragen ist die mail versenden
Irgendwo habe ich aber noch einen Objektfehler, welchen ich partout nicht finde.
Private Sub Workbook_Open()
'gecutteter code, welcher aber funktioniert[...]
' Email check
Dim raBereich2 As Range
Dim raZelle2 As Range
Set raBereich2 = Worksheets("Tabelle1").Range("I2:I100")
For Each raZelle2 In raBereich2
If raZelle2 "" And raZelle2.Offset(0, 11) = "" Then
'emails
Tabelle1.Cells(X, 11).Value = Date
Dim objOutlook As Object
Dim objMail As Object
Dim xCell As Integer
Dim strbody As String
Set objOutlook = CreateObject("Outlook.Application")
Set objMail = objOutlook.CreateItem(0)
With objMail
If Tabelle1.Cells(X, 1) = "Mr" Then
.To = "et"
.CC = "thm"
.Subject = "Versandexcel meldet gehorsamst deine Bestellung von " & Tabelle1.Cells(X, 5).Value & " ist angekommen"
.Body = "Ihre Bestellung vom " & Tabelle1.Cells(X, 2).Value & " von " & Tabelle1.Cells(X, 5).Value & " ist angekommen und wurde durch " & Tabelle1.Cells(X, 9).Value & " angenommen"
.send
Else
If Tabelle1.Cells(X, 1) = "Lot" Then
.To = "lu
.CC = "th
.Subject = "Versandexcel meldet gehorsamst deine Bestellung von " & Tabelle1.Cells(X, 5).Value & " ist angekommen"
.Body = "Ihre Bestellung vom " & Tabelle1.Cells(X, 2).Value & " von " & Tabelle1.Cells(X, 5).Value & " ist angekommen und wurde durch " & Tabelle1.Cells(X, 9).Value & " angenommen"
.send
Else
If Tabelle1.Cells(X, 1) = "Pr" Then
.To = "k
.CC = "t
.Subject = "Versandexcel meldet gehorsamst deine Bestellung von " & Tabelle1.Cells(X, 5).Value & " ist angekommen"
.Body = "Ihre Bestellung vom " & Tabelle1.Cells(X, 2).Value & " von " & Tabelle1.Cells(X, 5).Value & " ist angekommen und wurde durch " & Tabelle1.Cells(X, 9).Value & " angenommen"
.send
Else
If Tabelle1.Cells(X, 1) = "Rz" Then
.To = "r
.CC =
.Subject = "Versandexcel meldet gehorsamst deine Bestellung von " & Tabelle1.Cells(X, 5).Value & " ist angekommen"
.Body = "Ihre Bestellung vom " & Tabelle1.Cells(X, 2).Value & " von " & Tabelle1.Cells(X, 5).Value & " ist angekommen und wurde durch " & Tabelle1.Cells(X, 9).Value & " angenommen"
.send
End If
End If
End If
End If
End With
End If
Next raZelle2
'ende emailcheck
End Sub