VBA Zähler Kontrolle

[diving_excel]

Hallo!
Ich wollte mittels eines VBA Codes einen Zähler einrichten, der bei Click auf einem Button abhängig von einem Zellwert entweder +1 oder -1 rechnet.

Code:

Sub test()

With ActiveSheet
   If Range("E13").Value = 18 Then
      Range("E13").Value = Range("E13").Value - 1
      Else
   If Range("E13").Value <> 18 Then
      Range("E13").Value = Range("E13").Value + 1
       
   End If
End With

End Sub

Bin noch VBA Anfänger, deswegen komm ich nicht drauf was hier nicht stimmt, könnte jemand mit größerem Wissen da mal drüber schauen bitte?

Danke!

[chris-ka]

HI,

Code:

Option Explicit

Sub test()
With ActiveSheet.Range("E13")
   If .Value = 18 Then
      .Value = .Value - 1
      Else
      .Value = .Value + 1
   End If
End With
End Sub

nur.. ... warum nur.

[diving_excel]

Da hängt etwas mehr dran, es soll mit dieser Funktion nur ein Status weitergeschaltet werden. Vielen Dank!

[Rabe]

Hi,

da wird also immer nur zwischen 17 und 18 hin und hergeschaltet?

Das geht doch sicher auch einfacher?

[LuckyJoe]

Code:

Sub Test()
    With ActiveSheet.Range("E13")
        .Value = IIf(.Value = 18, .Value - 1, .Value + 1)
    End With
End Sub