Via een inputbox wil ik bepaalde versie bijwerken.
Code:
[Sub Werkbij()
If InputBox("Welke versie bijwerken?" & vbNewLine & vbNewLine & _
"1 Versie 1" & vbNewLine & _
"2 Versie 2" & vbNewLine & _
"3 Versie 3" & vbNewLine & _
"4 Versie 2 en 3") = 1 Then
Call versie1
Else
If InputBox("Welke versie bijwerken?" & vbNewLine & vbNewLine & _
"1 Versie 1" & vbNewLine & _
"2 Versie 2" & vbNewLine & _
"3 Versie 3" & vbNewLine & _
"4 Versie 2 en 3") = 2 Then
Call versie2
Else
If InputBox("Welke versie bijwerken?" & vbNewLine & vbNewLine & _
"1 Versie 1" & vbNewLine & _
"2 Versie 2" & vbNewLine & _
"3 Versie 3" & vbNewLine & _
"4 Versie 2 en 3") = 3 Then
Call versie3
Else
If InputBox("Welke versie bijwerken?" & vbNewLine & vbNewLine & _
"1 Versie 1" & vbNewLine & _
"2 Versie 2" & vbNewLine & _
"3 Versie 3" & vbNewLine & _
"4 Versie 2 en 3") = 4 Then
Call versie2
Call versie3
Else
Exit Sub
End If
End If
End If
End If
End Sub
/CODE]
Doch deze code veroorzaak niet het gewenste effect. Druk ik bvb 3 dan komt de inputbox 3X de vraag stellen. klik ik op annuleer krijg ik een foutmleding Heb me al rot gezocht doch ik geraak er niet uit. Iemand een oplossing?
Alvast dank