Datenmaske per VBA (2.Anfrage)
06.01.2004 09:01:42
Martin
ich möchte in eine Liste nur per Datenmaske erweiterbar machen.
Und zwar soll die erste freie Zeile rausgesucht werden.
Dann in die erste Spalte die Marke eingegeben werden.
Dann in die dritte Spalte die Linie
Dann in dei vierte Spalte die Bezeichnung
dann in die fünfte Spalte der Preis.
Leider passiert bei mir nach Makrostart nichts. Ich glauber der Cursor steht danach an richtiger Stelle aber es erfolgt keine Eintrag.
Ich bin mir auch nicht sicher ob der Fehler vieleicht an meiner UserForm liegt. Denke aber dass sie richtig ist.
Kann mir jemand sagen wo der Fehler in meinem Code liegt?
Danke schonmal und Grüße
Martin
(ich hatte dies vor Weihnachten schonmal gefragt, hat aber leider nicht geklappt)
Private Sub CommandButton1_Click()
If ActiveSheet.Protect Then ActiveSheet.Unprotect
On Error GoTo Errorhandler
With ActiveSheet.Cells(Rows.Count, 1).End(xlUp)
.Offset(1, 0).Value = txtMarke
.Offset(1, 3).Value = txtLinie
.Offset(1, 4).Value = txtBezeichnung
.Offset(1, 5).Value = txtpri
End With
txtMarke = ""
txtLinie = ""
txtBezeichnung = ""
txtpri = ""
ActiveSheet.Protect
Exit Sub
Errorhandler:
MsgBox "Falsche Eingabe"
End Sub