vbe - excel - textbox - 2 option - 1 næste -

Sub SpørgeSkema()
Dim iResultat1
Dim SvarValg
Dim Svar

Range("A2").Select
 
Retur:
If ActiveCell.Value = "" Then
    MsgBox "Der er ikke flere spørgsmål.", , "Hovsa?"
    Exit Sub
Else
    iResultat1 = InputBox(ActiveCell.Value & vbCrLf & _
    "" & vbCrLf & _
    "Svar mulighed 1:" & vbCrLf & ActiveCell.Offset(0, 1).Value & vbCrLf & _
    "" & vbCrLf & _
    "Svar mulighed 2:" & vbCrLf & ActiveCell.Offset(0, 2).Value, _
    "Spørgsmål?", "Skriv 1 eller 2 for valgte svar")
If iResultat1 = "Skriv 1 eller 2 for valgte svar" Then
    Svar = MsgBox("Du skal skrive 1 eller 2 for valgte svar", , "Mangler svar?")
If Svar = vbOK Then GoTo Retur
Else
End If
If iResultat1 = 1 Then SvarValg = ActiveCell.Offset(0, 1).Value
If iResultat1 = 2 Then SvarValg = ActiveCell.Offset(0, 2).Value
With ActiveCell
    .Offset(0, 3).Value = SvarValg
    End With
ActiveCell.Offset(Selection.Rows.Count, 0).Activate
  GoTo Retur
End If
End Sub