HERBERS
Excel-Forum
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Zum Forum Zum Forum Zum Forumthread Zum Forumthread Zum Archivthread Zum Archivthread Registrierung Registrierung Beispieldatei hochladen Beispieldatei hochladen
Forumbeitrag
Excel-Version des Fragestellers:
2013
Erfahrungslevel des Fragestellers:
Excel gut - VBA bescheiden
Yal
25.03.2025 15:46:26
AW: Zellen hochzählen und den Verlauf der Werte anzeigen
Hallo Jürgen,

kannst Du bitte diesen Satz nochmal laut vorlesen:

"Wenn der untere Teil des Drehfeldes angeclickt wird,
soll neben dem Wert in D2 bzw. E2
der jeweilige letzte,
also der ganz rechte Wert
um 1 gemindert werden.
Eventuell auch mehrmals,
je nach dem, wie oft der untere Teil des Drehfeldes angeclickt wurde.
Der andere Wert in der Spalte soll unverändert bleiben.
"

Wenn Du aufgrund dieses Textes und sonst kein weiteres Wissen, einen Sinn herausfiltern kannst... ich nicht.

Trotzdem einen blinden Versuch... 
Const Zelle_Heim = "D2"

Const Zelle_Gast = "E2"

Const Zeile_Prot = "I2"



Private Sub SpinButton_Gast_SpinDown(): VorigeErgebnis_zurückspielen: End Sub

Private Sub SpinButton_Heim_SpinDown(): VorigeErgebnis_zurückspielen: End Sub

Private Sub SpinButton_Gast_SpinUp(): SpielStand_erhöhen Zelle_Gast: End Sub

Private Sub SpinButton_Heim_SpinUp(): SpielStand_erhöhen Zelle_Heim: End Sub



Private Sub SpielStand_erhöhen(ZelleAdresse As String)

    With Me.Range(ZelleAdresse)

        .Value = .Value + 1

    End With

    With Me.Range(Zeile_Prot).Offset(0, 100).End(xlToLeft)

        .Offset(0, 1).Value = Me.Range(Zelle_Heim).Value

        .Offset(1, 1).Value = Me.Range(Zelle_Gast).Value

    End With

End Sub



Private Sub VorigeErgebnis_zurückspielen()

    With Me.Range(Zeile_Prot).Offset(0, 100).End(xlToLeft)

        If .Column = (Me.Range(Zeile_Prot).Column + 1) Then

            Me.Range(Zelle_Heim).Value = 0

            Me.Range(Zelle_Gast).Value = 0

        Else

            Me.Range(Zelle_Heim).Value = .Offset(0, -1).Value

            Me.Range(Zelle_Gast).Value = .Offset(1, -1).Value

        End If

        .Resize(2, 1).ClearContents

    End With

End Sub


VG
Yal
Beim Antworter bedanken Als gefällt mir melden Als hervorragend melden
Als Antwort auf diesen Beitrag
Jürgen Osterroth
25.03.2025 15:02:41
AW: Zellen hochzählen und den Verlauf der Werte anzeigen
Hallo Yal,

vielen Dank für Deine Hilfe.

Beim Test sind manchmal Zirkelbezüge aufgetreten. Außerdem werden oftmals gleich zwei Spalten in den Zeilen 2 und 3 mit Werten gefüllt, obwohl ich nur einmal auf den oberen Teil eines Drehfeldes geclickt habe.

Thema Runtersetzung des Scores:

Wenn der untere Teil des Drehfeldes angeclickt wird, soll neben dem Wert in D2 bzw. E2 der jeweilige letzte, also der ganz rechte Wert um 1 gemindert werden. Eventuell auch mehrmals, je nach dem, wie oft der untere Teil des Drehfeldes angeclickt wurde. Der andere Wert in der Spalte soll unverändert bleiben.

VG Jürgen

Folgenachrichten
Zum Forumthread
Antwort auf Beitrag erstellen
Beispieldatei hochladen