Worksheet_Change
22.06.2017 15:57:43
Tarje_089
ich habe in einem Excel-Dokument folgenden Code hinterlegt:
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("D14:D33")) Is Nothing Then
If Target.Count = 1 Then
If IsNumeric(Target) Then Target.Offset(0, 2) = Date
If Target.Value = 0 Then Target.Offset(0, 2) = "" 'Code Zeile ggf. löschen
If Target.Offset(0, 1) > 1000000 And Range("$N$8").Value = "1 - Führender VR" _
Then
MsgBox "Large Loss Notification erstellen, Reservevorblatt erstellen und " & _
"Beteiligte VR informieren, da Reserve größer 150.000."
ElseIf Target > 1000000 Then
MsgBox "Large Loss Notification erstellen und Reservevorblatt befüllen."
ElseIf Target > 150000 And Range("$N$8").Value = "1 - Führender VR" Then
MsgBox "Mitteilung an beteiligte VR senden und Reservevorblatt befüllen"
ElseIf Target > 9999 Then
MsgBox "Reservevorblatt befüllen"
End If
End If
ElseIf Not Intersect(Target, Range("L14:L33")) Is Nothing Then
If Target.Count = 1 Then
If IsNumeric(Target) Then Target.Offset(0, 2) = Date
If Target.Value = 0 Then Target.Offset(0, 2) = "" 'Code Zeile ggf. löschen
If Target > 1 Then
MsgBox "Zahlungsdokument verlinken. Reserve prüfen und ggf. anpassen"
End If
End If
End If
End Sub
Diesen Code möchte ich nun noch um eine weitere Schleife ergänzen.
Und Zwar: habe ich in der verbundenen Zelle L36:M36 eine Dropdown-Auswahl hinterlegt, welche auch die Option "Ja" anbietet. Sofern nun jemand "Ja" auswählt, soll die MsgBox erscheinen "Bitte Subrogation im System eingeben".
Der zweite Punkt ist, sobald in der verbundenen Zelle P36:Q36 ein Datum steht im Format TT.MM.JJJJ soll der Hinweis erscheinen "Bitte Subrogation im System schließen".
Sofern hier jemand weiter weiß, ware ich sehr dankbar.
Gruß
Tarje
Anzeige