Dim bu As String, sd As String, awp As String, op As String, verteiler As String, spalte As Range, spaltegef As Range
Dim serdef As String, ae As String, sdorae As String
Private Sub CommandButton1_Click()
sdorae = InputBox("Ist es ein Application Error (bitte AE eingeben) oder ein Service Defect (bitte SD eingeben)?")
If sdorae = "AE" Then
Set spalte = Range("F:F")
Set spaltegef = spalte.Find("SD+A")
If spaltegef = "SD+A" Then
ActiveSheet.Range("$A$1:$L$27").AutoFilter Field:=6, Criteria1:="SD+A"
verteiler = Range("E2:E30").Select
Selection.Copy
bu = InputBox("BU?")
sd = InputBox("Short Description?")
awp = InputBox("AWP Demand Nummer?")
op = InputBox("Remedy Nummer?")
Dim objOutlook As Object
Dim objMail As Object
Set objOutlook = CreateObject("Outlook.Application")
Set objMail = objOutlook.CreateItem(0)
With objMail
.To = "navdeep.singh@allianz.at"
.Subject = "BI: AGA " & bu & " : " & sd & " (AWP Demand ID: " & awp & " / ProblemID: " & op & " )"
.Body = " "
.Display
End With
ElseIf sdorae = "SD" Then
End If
End If
End Sub