|
Hallo Zusammen,
Ich habe mich seit ein paar Tagen mit VBA Programmierung beschäftigt und komme soweit mit Youtube Tutorials und Forum beträgen sehr gut zurecht.
Doch jetzt stehe ich aktuell auf dem Schlauch und finde keine Lösung.
Ich habe eine Bestellliste mit Positionen, wo in Spalte P per Dropdown Menü gewählt werden kann ob die Position (Finanziert, Geplant, Realisiert ) ist.
Nun soll wenn in einer Zelle in Spalte P "Finanziert" eingetragen wird, sich eine vbYesNo MsgBox öffnen.
Bis hierhin Funktioniert alles einwandfrei.
Mein Problem ab hier ist, dass er die MsgBox bei jedem neuen "Finanziert" Eintrag in Spalte P für alle bereits vorhandenen "Finanziert" Einträge wiederholt.
Ein Beispiel: Ich habe 6 Positionen auf Finanziert gesetzt. Nun setze ich eine 7. Position auf "Finanziert" und die MsgBox wird 7 mal hintereinander aufgerufen.
Hier findet ihr meinen Quellcode.
Private Sub Worksheet_Change(ByVal Target As Range)
For Each Zelle In Range("P4:P200")
If Zelle.Value = "Finanziert" Then
If MsgBox("Haben sie eine Finanzierung angelegt?" & vbCrLf & vbCrLf & "Wenn sie Nein klicken werden sie zum Ablageort weitergeleitet.", vbYesNo, "Hinweis") = vbNo Then
ActiveWorkbook.FollowHyperlink "Laufwerk öffnen"
End If
End If
Next
End Sub
Ich bitte dringend um Hilfe, da ich im besten Fall Dienstag den 11.05.2021 eine Lösung benötige.
|