Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Abfrage der Auswahl aus einem Gültigkeits-Listenfeld

Gruppe

Change

Problem

Die Auswahl aus einem Gültigkeits-Listenfeld soll über eine Select-Case-Anweisung abgefragt werden. Nur ab XL9 lauffähig.

Lösung
Geben Sie den nachfolgenden Code in das Klassenmodul der UsereForm ein.

ClassModule: Tabelle1

Private Sub Worksheet_Change(ByVal Target As Range)
   If Target.Address <> "$C$1" Then Exit Sub
   Select Case Target.Value
      Case "Januar", "Februar", "März", "April", "Mai", "Juni"
         MsgBox "1. Jahreshälfte"
      Case Else
         MsgBox "2. Jahreshälfte"
   End Select
End Sub