Zahlenpaare in Häufigkeits-Tabelle erfassen

Hallo Excel-Profis,
da ich nur Normal-VBA-Anwender bin, bräuchte ich einmal einen guten Tipp.
Ich möchte eine willkürliche Zahlenreihe, die man selber anklicken kann (mit Opt.buttons),
immer die letzte aktuelle Zahl mit der neuen Zahl vergleichen (als Paar)..... und zu diesem
Zahlen-Paar soll dann ein Zähler+ 1 in einer Zähltabelle gesetzt werden.
Mit anderen Worten:
Die Zähltabelle soll darüber Auskunft geben , wie oft eine Zahl hinter der vorherigen gekommen
ist (eine Art HäufigkeitsPaar-Darstellung mit Zähler+1).
Ich möchte jetzt nicht zig If-Abfragen schreiben, sondern suche einer einer intelligenten, programmierten ZählRoutine. Ich habe die Excel-Datei mal upgeloadet, dort steht auch ein Beispiel drin, wie ich das meine.
https://www.herber.de/bbs/user/77996.xls
Falls jemand eine gute Idee hat, bitte direkt in die vba-excel hinschreiben und wieder uploaden.
Bin für jede Hilfe dankbar ...Grüße Jens

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Hi Jens,
Herbys Ansatz habe ich noch etwas verändert, ist m. E. einfacher und tut doch ein wenig mehr:
- Auch mehrmalige Klicks auf die selbe Zahl werden gezählt.
- Zweimaliger Klick auf Löschen löscht den Bereich E2:J7.
Hier der Code:


Option Explicit
Public intA As Integer
Private Sub OptionButton1_Click():     Folge_ 1:      End Sub
Private Sub OptionButton2_Click():     Folge_ 2:      End Sub
Private Sub OptionButton3_Click():     Folge_ 3:      End Sub
Private Sub OptionButton4_Click():     Folge_ 4:      End Sub
Private Sub OptionButton5_Click():     Folge_ 5:      End Sub
Private Sub OptionButton6_Click():     Folge_ 6:      End Sub
Private Sub OptionButton7_Click()
' 2 * Löschen löscht Tabelle E2:J7
If intA = 0 Then Cells(2, 5).Resize(6, 6).ClearContents
Range("B1:B6").ClearContents
intA = 0
OLEObjects("OptionButton7").Object.Value = False
End Sub
Sub Folge_(intN As Integer)
Dim varArray(), NewArray(), n As Long
With Range("B1:B6")
varArray = .Value2
NewArray = varArray
For n = 1 To UBound(varArray) - 1
NewArray(n + 1, 1) = varArray(n, 1)
Next n
NewArray(1, 1) = intN
.Value2 = NewArray
End With
If intA Then
With Cells(2, 5).Resize(6, 6)
.Cells(intA, intN) = .Cells(intA, intN) + 1
End With
End If
intA = intN
OLEObjects("OptionButton" & intA).Object.Value = False
End Sub

Und hier die BeiSpielMappe: https://www.herber.de/bbs/user/78001.xls
Rückmeldung wäre nett! - Grüße aus Kamp-Lintfort von Erich

Option Explicit Public intA As Integer Private Sub OptionButton1_Click(): Folge_ 1: End Sub Private Sub OptionButton2_Click(): Folge_ 2: End Sub Private Sub OptionButton3_Click(): Folge_ 3: End Sub Private Sub OptionButton4_Click(): Folge_ 4: End Sub Private Sub OptionButton5_Click(): Folge_ 5: End Sub Private Sub OptionButton6_Click(): Folge_ 6: End Sub Private Sub OptionButton7_Click() ' 2 * Löschen löscht Tabelle E2:J7 If intA = 0 Then Cells(2, 5).Resize(6, 6).ClearContents Columns(2).ClearContents intA = 0 OLEObjects("OptionButton7").Object.Value = False End Sub Sub Folge_(intN As Integer) Dim lngN As Long If intA Then lngN = Cells(Rows.Count, 2).End(xlUp).Row Cells(2, 2).Resize(lngN) = Cells(1, 2).Resize(lngN).Value Cells(intA + 1, intN + 4) = Cells(intA + 1, intN + 4) + 1 End If Cells(1, 2) = intN OLEObjects("OptionButton" & intN).Object.Value = False intA = intN End Sub

Beliebteste Forumthreads (12 Monate)

Zahlenpaare in Häufigkeits-Tabelle erfassen

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

299 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Zahlenpaare in Häufigkeits-Tabelle erfassen

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

299 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread