Meldebox nach Dropdown-Auswahl

[Vince97]

Hallo zusammen,

leider komme ich an einer Stelle nicht weiter. Ich habe mein Problem in einer Beispieldatei mit Makro dargestellt.

  Beispiel.xlsm (Größe: 15,34 KB / Downloads: 6)

Und zwar möchte ich je nach Auswahl des Wertes im Dropdown-Feld unterschiedliche Messagebox anzeigen lassen. Und zwar soll diese nur einmal aufpoppen.
In C8 wird der Wert der Auswahl vom Drop-Down angezeigt. Diesen Wert soll das Makro auslesen und dementsprechend die richtige Meldebox anzeigen.

So lautet mein code bisher, allerdings zeigt es mir keine Meldebox an:

Code:

Private Sub Worksheet_Change(ByVal Target As Excel.Range)

If ActiveSheet.Range("C8").Value = 2 Then
    MsgBox "Sie haben die feine Bewertung ausgewählt. Bitte nur mit Hilfe des unteren vier Schieberegler der Kriterien bewerten", vbOKOnly + vbCritical, "Warnung!"

ElseIf ActiveSheet.Range("C8").Value = 1 Then

    MsgBox "Sie haben die grobe Bewertung ausgewählt. Bitte nur mit Hilfe des oberen Schieberegler bewerten", vbOKOnly + vbCritical, "Warnung!"

End If


End Sub

Kann mir jemand sagen, was ich da falsch mache?
Bin leider noch Anfänger in Sachen Makro-Programmierung.

Danke!


Grüße
Vincent

[Klaus-Dieter]

Hallo,

abgesehen davon, dass das bei mir funktioniert, würde ich das lieber so programmieren:

Code:

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Select Case Range("C8")
    Case 2
        MsgBox "Sie haben die feine Bewertung ausgewählt. Bitte nur mit Hilfe des unteren vier Schieberegler der Kriterien bewerten", vbOKOnly + vbCritical, "Warnung!"
    Case 1
        MsgBox "Sie haben die grobe Bewertung ausgewählt. Bitte nur mit Hilfe des oberen Schieberegler bewerten", vbOKOnly + vbCritical, "Warnung!"
    End Select
End Sub

---

Hallo,

in deiner Datei funktioniert das nicht, weil das Kombinationsfeld kein Ereignis auslöst.

[Vince97]

Hallo Klaus-Dieter,

danke für Deine Antwort!
so funktioniert es bei mir auch
Allerdings erscheint die Meldebox erst, wenn ich in einer Zelle etwas schreibe. Zudem kommt die Meldebox bei jeder Veränderung in einer einer beliebigen Zelle.
Weißt du wie man das lösen kann?


Vielen Dank schon mal.

Grüße
Vincent

[Kuwer]

Hallo Vincent,

weise dem DropDown ein Makro zu mit folgendem Code:

Code:

Sub Dropdown1_BeiÄnderung()
  Select Case ActiveSheet.DropDowns(Application.Caller)
    Case 1
      MsgBox "Sie haben die grobe Bewertung ausgewählt. Bitte nur mit Hilfe des oberen Schieberegler bewerten", vbOKOnly + vbCritical, "Warnung!"
    Case 2
      MsgBox "Sie haben die feine Bewertung ausgewählt. Bitte nur mit Hilfe des unteren vier Schieberegler der Kriterien bewerten", vbOKOnly + vbCritical, "Warnung!"
  End Select
End Sub

Gruß Uwe

---

PS: Schade, dass Du mit Rückmeldungen sehr zurückhaltend bist.

[Vince97]

Hallo Klaus-Dieter,

sorry, ich war leider das Wochenende über nicht mehr am Computer..
Vielen Dank für deine Rückmeldung!


So funktioniert alles!



Grüße
Vincent