Beste knobbellaars.
Ik probeer iets te fabriceren maar krijg steeds een compileer fout.
Voor mijn gevoel heb ik alles 10 x nagelopen maar ik zie het niet.
Jullie misschien wel??
Sub KostenInvullen()
Datum:
[a2] = InputBox("Typ uw Datum:")
If [a2] = "" Then
MsgBox ("U hebt geen Datum ingevoerd.")
GoTo Datum
Else
Locatie:
[a8] = InputBox("Voer uw locatie in:")
If [a8] = "" Then
MsgBox ("U hebt geen locatie ingevoerd.")
GoTo Locatie
Else
Begintijd:
[A3] = InputBox("Typ Begintijd:")
If [A3] = "" Then
MsgBox ("U hebt geen Begintijd ingevoerd.")
GoTo Begintijd
Else
Eindtijd:
[A4] = InputBox("Typ Eindtijd:")
If [A4] = "" Then
MsgBox ("U hebt geen Eintijd ingevoerd:")
GoTo Eindtijd
Else
Kilometers:
[A6] = InputBox("Typ Kilometers:")
If [A6] = "" Then
MsgBox ("U hebt geen Kilometers ingevoerd:")
GoTo Kilometers
MsgBox ("Uw gegevens zijn ontvangen en worden zo spoedig mogelijk verwerkt.")
End If
End If
End Sub
Ik probeer iets te fabriceren maar krijg steeds een compileer fout.
Voor mijn gevoel heb ik alles 10 x nagelopen maar ik zie het niet.
Jullie misschien wel??
Sub KostenInvullen()
Datum:
[a2] = InputBox("Typ uw Datum:")
If [a2] = "" Then
MsgBox ("U hebt geen Datum ingevoerd.")
GoTo Datum
Else
Locatie:
[a8] = InputBox("Voer uw locatie in:")
If [a8] = "" Then
MsgBox ("U hebt geen locatie ingevoerd.")
GoTo Locatie
Else
Begintijd:
[A3] = InputBox("Typ Begintijd:")
If [A3] = "" Then
MsgBox ("U hebt geen Begintijd ingevoerd.")
GoTo Begintijd
Else
Eindtijd:
[A4] = InputBox("Typ Eindtijd:")
If [A4] = "" Then
MsgBox ("U hebt geen Eintijd ingevoerd:")
GoTo Eindtijd
Else
Kilometers:
[A6] = InputBox("Typ Kilometers:")
If [A6] = "" Then
MsgBox ("U hebt geen Kilometers ingevoerd:")
GoTo Kilometers
MsgBox ("Uw gegevens zijn ontvangen en worden zo spoedig mogelijk verwerkt.")
End If
End If
End Sub