Man kan godt lave den, men hvor kommer data fra og skal det gemmes som ren talværdi, så i senere oversætter via en liste
Det lyder godt at man kan lave det! Tænker på at data til listerne kommer fra en kolonne, så f.eks. kolonne a har data til rulle liste 1
kolonne b har data til rulleliste 2 og kolonne c har data til rulleliste 3.
Det skal så være tal den så gemmer under det man vælger af svar.
Det skal holdes overskueligt på en eller andet måde, for der er originalt 46 muligheder i liste 1, og så grener det ud med mange muligheder for hver i liste 2, og igen mange muligheder i liste 3
Til sidst skal man så kunne se hvor mange antal der er indtastet til de forskellige svar.
Selve valgmulighederne i listerne er tekst, indtastningen er tal=antal.
Lav listerne med et nummer
liste 1
Nr , navn
Liste 2
liste 1 Nr, Nr, spørgsmål
liste 3
liste 1 Nr, Liste 2 Nr, Nr, Svar
jeg kan ikke få det til at virke
hvis du har lavet listerne, så send et kopi til mig, med lidt beskrivelse på.
hba snabela kabbak dot dk
kikker på det i morgen
Det blev til en userform, med 3 combo og en knap
koden under ser sådan ud.
Private Sub CboAfdeling_Change()
Dim SP As Variant 'spørgsmål
Dim I As Integer, X As Integer
SP = Ark1.Range("D2:F21")
CboSpørgsmål.Clear
X = 0
For I = 1 To UBound(SP)
If Val(SP(I, 1)) = Val(CboAfdeling.Column(0)) Then
CboSpørgsmål.AddItem SP(I, 2)
CboSpørgsmål.List(X, 1) = SP(I, 3)
X = X + 1
End If
Next
Application.EnableEvents = True
End Sub
Private Sub CboSpørgsmål_Change()
Dim SV As Variant ' svar
Dim I As Integer, X As Integer
SV = Ark1.Range("K2:H41")
On Error Resume Next
CboSvar.Clear
X = 0
For I = 1 To UBound(SV)
If Val(SV(I, 1)) = Val(CboAfdeling.Column(0)) And Val(SV(I, 2)) = Val(CboSpørgsmål.Column(0)) Then
CboSvar.AddItem SV(I, 3)
CboSvar.List(X, 1) = SV(I, 4)
X = X + 1
End If
Next
End Sub
Private Sub CmdGem_Click()
If Me.CboSvar <> "" Then
Ark1.Range("L" & Val(CboSvar.Column(0)) + 1) = Ark1.Range("L" & Val(CboSvar.Column(0)) + 1) + 1
CboSvar.Clear
Else
MsgBox "Du har ikke udfyldt alle felter"
End If
Me.CboAfdeling.SetFocus
End Sub
