Clever-Excel-Forum

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!

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.

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

Hi,

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

Das geht doch sicher auch einfacher?

Code:
Sub Test()

    With ActiveSheet.Range("E13")

        .Value = IIf(.Value = 18, .Value - 1, .Value + 1)

    End With

End Sub

diving_excel

chris-ka

diving_excel

Rabe

LuckyJoe