Optionsfelder im Frame auswerten/ Wahr ausgeben

Guten Abend Excelfreunde
Habe mal wieder eine Aufgabe, die ich nicht allein lösen kann.
Ich habe eine Userform gebastelt. In dieser sind 24 Frames mit jeweils 3 Optionsfeldern darin sowie weitere Befehlsschaltflächen, Beschriftungsfeldern und Textfeld.
Meine Tabelle soll eine Abfrage des Arbeitsaufwandes/Stresslevels werden.
Die 24 Frames stellen die 24 Stunden des Tages dar. Die jeweils 3 Optionsfelder des Frames sind die Wertung des stundlichen Tagesaufwandes (H=hoch, M=Mittel, L=Leicht).
Bei meiner Suche im Internet bin ich bei https://www.herber.de/xldialoge/uf_opt03.html auf einen Code gestoßen, der meiner Aufgabe mit der Auswertung der Optionsbuttons entspricht und immer in die letzte freie Zeile schreibt.
Um diesen Code für meine Tabelle anzupassen brauche ich Hilfe, da ich mich in VBA nicht auskenne.
zur Erklärung nehme ich diesen Code um die gewünschten Veränderungen zu beschreiben.
1. wie oder was kann/muss verändert werden, dass nicht wahr/falsch angezeigt wird sondern z.Bsp. A,B,C... oder 1,2,3...? Z.Bsp. Frame1 Button L=1, Button M=2 Button H=3, Frame2 Button L=1, Button M=2, Button H=3 usw.
2. wie oder was kann/muss verändert werden, dass nur das "wahr" Ergebnis eines Frame in der/einer Zelle eingetragen wird?
3. wie oder was muss man verändern, um die Ergebnisse der Frames erst ab Spalte "E" ff. eingetragen werden (z. Bsp. Wahrergebnis Frame1 Spalte E, Wahrergebnis Frame2 Spalte F usw.)? oder erübrigt sich das, da ja schon Werte in die Spalten A-D eingetragen werden?
Hoffe das ich es einigermaßen verständlich erklären konnte.
Testtabelle beigefügt
https://www.herber.de/bbs/user/118826.xlsm
Freundlicher Gruß
Ha-Pe

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

For i = 0 To Me.Controls.Count - 1 Select Case Left(Me.Controls(i).Name, 5) Case Is = "Optio" 'Debug.Print Me.Controls.Item(i).Name, Me.Controls.Item(i).Value Case Is = "Frame" Set Fra = Me.Controls(i) Debug.Print Me.Controls(i).Name, Fra.Controls(0).Value, Fra.Controls(1).Value, Fra. _ Controls(2).Value If Fra.Controls(0).Value Then Cells(loLetzte, 5 + sp) = "L" If Fra.Controls(1).Value Then Cells(loLetzte, 5 + sp) = "M" If Fra.Controls(2).Value Then Cells(loLetzte, 5 + sp) = "H" sp = sp + 1 Case Else 'Debug.Print Me.Controls(i).Name End Select Next i

For Each Ctl In Me.Controls If TypeName(Ctl) = "Frame" Then Set Fra = Ctl W = (Fra.Controls(0).Value * 1 + Fra.Controls(1).Value * 2 + Fra.Controls(2).Value * 3) _ * -1 Cells(loLetzte, 5 + sp) = Choose(W, "L", "M", "H") sp = sp + 1 End If Next Ctl

For Each Ctl In Me.Controls If TypeName(Ctl) = "OptionButton" Then If Ctl.Value Then N = Val(Replace(Ctl.Name, "OptionButton", "")) - 1 Cells(loLetzte, 5 + N \ 3) = Ctl.Caption End If End If Next Ctl

Beliebteste Forumthreads (12 Monate)

Optionsfelder im Frame auswerten/ Wahr ausgeben

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Optionsfelder im Frame auswerten/ Wahr ausgeben

9 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread