VBA Problem
mathias
ich mache zurzeit eine ausbildung zum staatlich geprüften techniker und muss im rahmen des excel unterrichts eine art webshop mit excel bzw vba realisieren. hierbei habe ein problem und hoffe auf eure hilfe.
habe eine userform mit der sich der kunde bei meinem shop registrieren kann(name,vorname geburtsdatum etc.) darunter ist ein button mit registieren. nun soll vba beim klicken des buttons prüfen ob in den textboxen etwas steht oder nicht. sind alle eingaben ok, soll das in eine tabelle geschrieben werden. leider bleibt der compiler bei der prüfung des inhalts der textbox schon stehen und ich hab keine ahnung warum...
hier mal das was ich bisher geschrieben habe
Private Sub Commandbutton1_click()
[a1].Select 'problem den er soll nicht einfach irgendwo a1 auswählen sondern auf dem worksheet"kunden"
While ActiveCell "" 'schleife die in der tabelle die nächste freie zelle in spalte a1 suchen soll
ActiveCell.Offset(1, 0).Select
Wend
If IsText(TextBox1) Then: 'fehlermeldung sub oder function nicht definiert bei IsText
ActiveCell = TextBox1
Else: MsgBox "Bitte Vornamen eingeben"
[b1].Select
While ActiveCell ""
ActiveCell.Offset(1, 0).Select
Wend
If IsText(TextBox2) Then:
ActiveCell = TextBox2
Else: MsgBox "Bitte Nachnamen eingeben"
hoffe der fehler ist nicht alzu einfach und ihr könnt mir helfen:-)
in diesem sinne gruß mathias