Select Case - Syntxfehler?
03.04.2015 17:44:47
Dirk
untenstehender Modulcode liefert die korrekten MsgBoxen nur dann, wenn ich den Block mit dem Select Case auskommentiere u. die If-Anweisungen wieder "aktiviere" (Auskommentierung aufheben).
Mit Select Case wird jedoch bei wert1>0 (also auch bei wert1=25) immer nur die gekennzeichnete MsgBox mit "#1....." angezeigt - wobei wert1 richtig ermittelt, aber immer nur med1 gezeigt wird.
Nach dem ersten Case wird also zum Ende gesprungen.
Wo liegt mein Fehler bzw. kann man hier nicht mit Select Case arbeiten ?
Gruß
Dirk
Option Explicit
Public Sub Wert_Media()
Dim med1, med2, med3 As String
Dim wert1 As Double
med1 = Worksheets("Tabelle4").Range("F11").Text
med2 = Worksheets("Tabelle4").Range("F12").Text
med3 = Worksheets("Tabelle4").Range("F13").Text
wert1 = Worksheets("Tabelle4").Range("C1").Value
'If wert1 0 And wert1 10 And wert1 20 And wert1 30 Then MsgBox "Die Summe ist >30" & vbCr & vbCr & "Es kommt nix weiter !"
Select Case wert1
Case Is 0 And wert1 0 _
angezeigt
Case Is > 10 And wert1 20 And wert1 30
MsgBox "Die Summe ist >30" & vbCr & vbCr & "Es kommt nix weiter !"
End Select
End Sub