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

Moderator: ModerationP

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

Beitragvon Hilfe X » 26. Jun 2022, 16:42

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
Hilfe X
 

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

Beitragvon Gast » 26. Jun 2022, 16:51

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

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

Beitragvon Nepumuk » 26. Jun 2022, 16:56

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.
De fontibus non est disputandum

Gruß
Nepumuk 8-)
Benutzeravatar
Nepumuk
Im Profil kannst Du frei den Rang ändern
 
Beiträge: 15401
Registriert: 10. Aug 2004, 08:40
Wohnort: Regensburg

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

Beitragvon snb » 26. Jun 2022, 17:22

Jedesmal wenn das Makro M_snb durchlaufen wird:

Code: Alles auswählen
Sub M_snb()
  [A1] = [A1] Mod 10 + 1
  '  übriger Code
End Sub
snb
Im Profil kannst Du frei den Rang ändern
 
Beiträge: 9426
Registriert: 25. Sep 2014, 16:37

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

Beitragvon Hilfe X » 26. Jun 2022, 18:26

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


Zurück zu Excel Forum (provisorisch)

Wer ist online?

Mitglieder in diesem Forum: 0 Mitglieder und 95 Gäste