ich gebe über eine Inputbox einen Wert an C2
Sub EingabeÜberInputbox()
Dim wert01 As Variant
Dim MaxW As Variant
MaxW = Range("c1").Value
wert01 = InputBox("", "Bitte geben Sie eine Nummer ein")
If wert01 = "" Then Exit Sub
Range("c2").Value = (wert01 - 1)
End Sub
Ich möchte jetzt noch zusätzliche Bedingungen einbauen:
Bei wert01 MaxW soll auch "Exit Sub" folgen und
bei wert01 = "a" soll MsgBox folgen
"if wert01 = "" Or wert01 MaxW Then Exit Sub"
gibt die Meldung "Typen unverträglich". Kann mir jemand helfen?
Danke im voraus
Klaus