Office: VBA 2 Argumente bei "If"

Hallo sehr geehrte Excel Profis
mich Interesiert ob man folgenden Code einfacher mit einem "If" gestalten kann. Ich habe es mit or probiert schaffe es aber nicht.

Code:

Sub test()
If Cells(1, 1).Value >= CLng(50) Then
MsgBox "Der Wert ist außer Limit!"
Else
    If Cells(1, 1).Value <= CLng(-40) Then
    MsgBox "Der Wert ist außer Limit!"
    End If
End If
End Sub

Vielen Dank für die Unterstützung
Gruß Norbert

 

Hi Norbert,

da genügt Diese Codezeile:

Code:

If Cells(1, 1) >= CLng(50) Or Cells(1, 1) <= CLng(-40) Then MsgBox "Der Wert ist außer Limit"

Value kann weggelassen werden, da dies die Standardeigenschaft der Zelle ist.

Bis später,
Karin

 

Hallo Karin
Danke für die Hilfe
mein Fehler mit or war:
Cells(1,1) >= Clng(50) or <= Clng(-40) then
Naja man lernt nicht aus.
Tschüß Norbert