Dieses Forum nutzt Cookies
Dieses Forum verwendet Cookies, um deine Login-Informationen zu speichern, wenn du registriert bist, und deinen letzten Besuch, wenn du es nicht bist. Cookies sind kleine Textdokumente, die auf deinem Computer gespeichert werden. Die von diesem Forum gesetzten Cookies werden nur auf dieser Website verwendet und stellen kein Sicherheitsrisiko dar. Cookies aus diesem Forum speichern auch die spezifischen Themen, die du gelesen hast und wann du zum letzten Mal gelesen hast. Bitte bestätige, ob du diese Cookies akzeptierst oder ablehnst.

Ein Cookie wird in deinem Browser unabhängig von der Wahl gespeichert, um zu verhindern, dass dir diese Frage erneut gestellt wird. Du kannst deine Cookie-Einstellungen jederzeit über den Link in der Fußzeile ändern.

Meldebox nach Dropdown-Auswahl
#1
Hallo zusammen,

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

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


Grüße
Vincent
Antwortento top
#2
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.
Viele Grüße
Klaus-Dieter
Der Erfolg hat viele Väter, 
der Misserfolg ist ein Waisenkind
Richard Cobden
Antwortento top
#3
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
Antwortento top
#4
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


Angehängte Dateien
.xlsm   Meldebox nach Dropdown-Auswahl_Kuwer.xlsm (Größe: 17,88 KB / Downloads: 2)
Antwortento top
#5
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
Antwortento top


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste