ich habe noch einen Fehler und ich weiß nicht wie ich das mache.
Wenn ein Feld nicht ausgefüllt wird kommt die Meldung: " bitte alle Felder befüllen
und anschließend wird Excel nicht gespeichert und geschlossen.
Wie kann ich das machen, das er nach der Abfrage nicht herausgeht, sondern ES MÜSSEN die Felder eingegeben werden, erst dann soll es weiter gehen.
End With
ws.Visible = xlSheetHidden
ws2.Visible = xlSheetHidden
Set ws = Nothing
Set ws2 = Nothing
Else
MsgBox "Bitte alle Felder befüllen"
Me.TxtUser.SetFocus
End If
MsgBox "Daten wurden gespeichert!!!"
ThisWorkbook.Close True
End Sub
Danke an alle
Lino