MsgBox in Case-Abfrage
25.12.2007 20:08:00
Bernd
warum wird denn die Msg.Box nichtangezeigt?
Sub Dropdown_1()
Wert = Range("KST").Value
Auswahl = Cells(177, 2).Value
NeuerWert = Wert & "; " & Auswahl
Select Case Wert
Case Is = "bitte klicken u. m. Pfeiltasten scrollen:"
MsgBox "Unzulässige Auswahl"
Case Is = ""
Range("KST").Value = Auswahl
Case Is ""
Range("KST").Value = NeuerWert
End Select
'ActiveWindow.SmallScroll Down:=-30
End Sub
Grüße und Danke
bernd