Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1564to1568
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Worksheet_Change

Worksheet_Change
22.06.2017 15:57:43
Tarje_089
Hallo Zusammen,
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

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Worksheet_Change
23.06.2017 01:38:12
fcs
Hallo Tarje,
für den Zellbereich P36:Q36 ist die Lösung davon abhängig, ob das datum per Fprmel berechnet wird oder eingegeben wird.
LG
Franz
Textdatei mit angepasstem Code:
https://www.herber.de/bbs/user/114420.txt

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige