• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

Compileer fout

Status
Niet open voor verdere reacties.

keescar

Verenigingslid
Lid geworden
11 okt 2008
Berichten
30
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
 
keescar,

Zo werkt hij bij mij wel goed.
Alleen de laatste MsgBox komt niet voor de dag.

Code:
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 If: End If: End If
End Sub
 
Laatst bewerkt:
keescar,

Als je 5x If heb moet je ook 5x End If hebben.
Dit ter informatie.
 
keescar,

Als je 5x If heb moet je ook 5x End If hebben.
Dit ter informatie.

Hoorvan



Bedankt kwam er even niet uit.
De laatste MsgBox heb ik ook moest even toevoegen Else na de laatste GoTo.
Maarben er uit nogmaals bedankt
 
Laatst bewerkt:
Keescar,

een beter alternatief voor die GoTo's en die labels, is een Do While of Do Until. Hierin zet je dan de check of er valabele invoer was, of niet.

Wigi
 
Beste Wigi.
Je zal best gelijk hebben ik ben nog niet zo kei met vba.
Ik heb zomaar iets geprobeerd met wel een beetje hulp uit een boek maar ik probeer steeds verder te komen:thumb::thumb:
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan