Zellen hochzählen und den Verlauf der Werte anzeigen

24.03.2025 18:39:50

Jürgen Osterroth

Hallo zusammen.

Ich habe ein Problem, für das ich mit Excel eine Lösung suche.

In zwei Zellen (D2 und E2) sollen unabhängig voneinander Werte hoch- (+1) bzw. runtergezählt (-1) werden. In einer dritten Zelle (F2) soll die jeweilige Addition aus D2 und E2 angezeigt werden.

Für die Auslösung der Aktion zur entsprechenden Hoch- bzw. Runterzählung bieten sich Drehfelder an, die per Zellenverknüpfung mit D2 und E2 verbunden sind.

Die jeweils erzeugten e i n z e l n e n Werte der beiden Zellen D2 und E2 nach jeder Betätigung eines Drehfeldes sollen in zwei übereinander liegenden Spaltenbereichen (maximal 100 Spalten) angezeigt werden, jeweils ab Spalte J bis Spalte DE in den Zeilen 2 und 3. Im oberen Spaltenbereich von J2 bis DE2 soll die Entwicklung der Werte aus D2 stehen und im darunter liegenden Spaltenbereich von J3 bis DE3 die Entwicklung der Werte aus E2.

Darüber in Zeile 1 des Spaltenbereiches J bis DE sollen statische Werte von 1 bis 100 stehen. Die Addition aus den Zeilen 2 und 3 der in den Spaltenbereichen J bis DE ausgewiesenen Werte soll mit dem statischen Wert in Zeile 1 der entsprechenden Spalte übereinstimmen.

Beiliegend übersende ich eine Beispieldatei mit den derzeitig leider noch falschen Einträgen und manuell eingefügte Soll- Einträge.

Ich hoffe sehr, dass die Darstellung verständlich ist.

Vielen Dank im Voraus.

AW: Zellen hochzählen und den Verlauf der Werte anzeigen

24.03.2025 18:46:23

cysu11

https://www.clever-excel-forum.de/Thread-Zellen-hochzaehlen-und-den-Verlauf-der-Werte-anzeigen

AW: Zellen hochzählen und den Verlauf der Werte anzeigen

24.03.2025 19:57:47

daniel

wenn dort schon geholfen wird, ist hier ja keine weitere Hilfe notwendig.
Danke für den Hinweis.

wobei ich mich frage, warum die Darstellung des Problems dort ausführlicher erfolgt als hier.

Gruß Daniel

AW: Zellen hochzählen und den Verlauf der Werte anzeigen

24.03.2025 20:09:28

Jürgen Osterroth

Hallo Daniel,

in dem anderen Forum konnte man mir nicht helfen. Deinen Hinweis zur Darstellung des Problems kann ich nicht nachvollziehen.

Hier in diesem Forum habe ich eine Beispiel- Datei hochgeladen, mit der ich das Problem meines Erachtens noch deutlicher dargestellt habe.

VG Jürgen

AW: Zellen hochzählen und den Verlauf der Werte anzeigen

24.03.2025 20:16:25

SF

Hola,
wenn du den Link zur Datei nicht postest sieht die niemand.
Gruß,
steve1da

AW: Zellen hochzählen und den Verlauf der Werte anzeigen

25.03.2025 10:53:33

Jürgen Osterroth

Hallo zusammen,

entschuldigt bitte mein Crossposting. Es ist das allererste Mal, dass ich versuche, im Internet Hilfe zu bekommen. Die andere Anfrage werde ich beenden.

Und entschuldigt bitte auch, dass ich das Hochladen meiner Beispieldatei zu oberflächlich erledigen wollte und deshalb den Hinweis bezüglich des Links übersehen habe.

Hier ist der Link zu meiner Beispieldatei:

https://www.herber.de/bbs/user/176409.xlsm

Ich wäre sehr dankbar, trotz meines desaströsen Einstiegs in HERBERS Excel-Forum Hilfe zu bekommen.

VG Jürgen

AW: Zellen hochzählen und den Verlauf der Werte anzeigen

25.03.2025 12:43:59

Yal

Hallo Jürgen,

es lässt sich besser steuern, wenn Du ActiveX-Element verwendest und dahinter VBA-Makros.

Unklar ist, was passieren soll, wenn der Score runtergesetzt wird...

https://www.herber.de/bbs/user/176410.xlsm

VG
Yal

AW: Zellen hochzählen und den Verlauf der Werte anzeigen

25.03.2025 16:02:41

Jürgen Osterroth

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

AW: Zellen hochzählen und den Verlauf der Werte anzeigen

25.03.2025 16:46:26

Yal

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

AW: Zellen hochzählen und den Verlauf der Werte anzeigen

25.03.2025 16:50:23

Yal

Teilkorrektur:

Private Sub VorigeErgebnis_zurückspielen()

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

        Select Case Me.Range(Zeile_Prot).Column + 1

        Case Is = .Column

            Me.Range(Zelle_Heim).Value = 0

            Me.Range(Zelle_Gast).Value = 0

            .Resize(2, 1).ClearContents

        Case Is  .Column

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

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

            .Resize(2, 1).ClearContents

        End Select

    End With

End Sub

AW: Zellen hochzählen und den Verlauf der Werte anzeigen

25.03.2025 17:22:07

Jürgen Osterroth

Hallo Yal,

tut mir leid, dass ich diesen Text womöglich unverständlich formuliert habe.

Ich möchte es nochmal anders versuchen:

Um die Runtersetzung des Scores zu veranlassen, ist einer der beiden SpinButton im unteren Bereich anzuclicken.

Damit soll der Wert in den Zellen D2 (bei Click auf "SpinButton_Heim") oder E2 (bei Click auf "SpinButton_Gast") um 1 gemindert werden. Zusätzlich soll auch der ganz rechte Wert im Historie- Bereich (ab Spalte J in den Zeilen 2 oder 3) um 1 gemindert werden.

Ich hoffe, es ist jetzt besser verständlich.

VG Jürgen

AW: Zellen hochzählen und den Verlauf der Werte anzeigen

25.03.2025 18:29:16

daniel

Hi
ich habs mal so umgesetzt wie ich es verstanden habe.
in jeder Runde kann immer nur ein Punkt erzielt werden, entweder Heim oder Gast
der Button Heim bzw Gast weist der jeweiligen Mannschaft im aktuellen Spiel den Punkt zu.
der Button "Löschen" löscht immer das letzte Spiel, egal wer es gewonnen hat.

die Punkte werden vom Makro immer im oberen Bereich eingetragen.
im unteren Bereich siehst du dann die Entwicklung über das Spiel.
https://www.herber.de/bbs/user/176421.xlsm

Gruß Daniel

AW: Zellen hochzählen und den Verlauf der Werte anzeigen

25.03.2025 19:30:55

Jürgen Osterroth

Hallo Daniel,

vielen Dank für Deine Hilfe. Das ist es, was ich gesucht habe.

Ich werde somit meine Anfrage schließen.

VG Jürgen

Meinst du...

25.03.2025 18:31:56

Case

Moin Jürgen, :-)

... so? ;-)
https://www.herber.de/bbs/user/176422.xlsb

Servus
Case

AW: Meinst du...

25.03.2025 19:29:16

Jürgen Osterroth

Hallo Case,

vielen Dank für Deine Hilfe. Leider sind in Deiner Umsetzung einige Zirkelbezüge enthalten.

Von Daniel habe ich inzwischen die Lösung meines Problems erhalten, sodass ich meine Anfrage schließen werde.

Vielen Dank an alle, die an der Lösung mitgeholfen haben.

VG Jürgen

Zellen hochzählen und den Verlauf der Werte anzeigen

Forumthread: Zellen hochzählen und den Verlauf der Werte anzeigen

14
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Zellen hochzählen und den Verlauf der Werte anzeigen

Forumthread: Zellen hochzählen und den Verlauf der Werte anzeigen

14 Beiträge zum Forumthread Beiträge zu diesem Forumthread

14
Beiträge zum Forumthread

Beiträge zu diesem Forumthread