Clever-Excel-Forum

Hallo zusammen,

leider komme ich an einer Stelle nicht weiter. Ich habe mein Problem in einer Beispieldatei mit Makro dargestellt.
[attachment=33058]

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! Smile

Grüße
Vincent

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.

Hallo Klaus-Dieter,

danke für Deine Antwort!
so funktioniert es bei mir auch Smile

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

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. Undecided

Hallo Klaus-Dieter,

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

So funktioniert alles!

Grüße
Vincent

Vince97

Klaus-Dieter

Vince97

Kuwer

Vince97