Wert um eins erhöhen bei 10 wieder mit eins Beginnen

[Hilfe X]

Hallo Bitte könnt ihr mir sagen, wie erhöhe ich, pro Durchlauf meines Macro den Wert um 1 bis 10 dann wieder mit 1 Beginnen.
Angenommen Zelle A1.
Gruß Bert

[Gast]

pro Macro-Durchlauf nur um eins erhöhen, und NACHDEM 10 kam, beim nächsten Durchgang wieder mit eins Beginnen.

[Nepumuk]

Hallo,

rechtsklick auf den Tabellenreiter - Code anzeigen. Folgendes Makro einfügen:

Code: Alles auswählen

Option Explicit

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    With Target
        If .Address = "$A$1" Then
            .Value = .Value + IIf(.Value < 10, 1, -9)
            Cancel = True
        End If
    End With
End Sub

Es reagiert auf Doppelklick in A1.

[snb]

Jedesmal wenn das Makro M_snb durchlaufen wird:

Code: Alles auswählen

Sub M_snb()
  [A1] = [A1] Mod 10 + 1
  '  übriger Code
End Sub

[Hilfe X]

Herzlichen Dank Werde ich umbauen - da ich gerade selber eine andere Lösung fand deine ist aber Besser
Gruß Bert.