Select case wählt nicht
30.01.2003 11:22:42
Willy
Ich möchte eine Eingabe überprüfen und bei numerischer Eingabe
einige Anweisungen ausführen. Bei nicht-numerischer Eingabe soll eine Meldung erscheinen und abgebrochen werden.
Nun kommt die Meldung immer und das Programm bricht ab. Wird hier ev. die Variable (da als String) nicht als numerisch erkannt?
Sub Saldokorrektur()
Dim Saldo As String
Saldo = InputBox("Bitte neuen Saldo eingeben", "Saldokorrektur")
Select Case Saldo
Case IsNumeric(Saldo) = True
Sheets("Bewegungen").Activate
Range("F30").Value = Saldo
Sheets("Schmale Meilen komplett").Activate
...........
...........
Sheets("Bewegungen").Activate
Case Else
MsgBox "Bitte numerischen Wert eingeben!"
Exit Sub
End Select
End Sub
Anzeige