Datenmaske per VBA
23.12.2003 12:17:58
Martin
ich möchte eine Tabelle per Datenmaske erweitern.
Ziel:
Ermittle die erste freie Zeile der Spalte B,
Schreibe in diese den Markennamen
Schreibe in Spalte E die Linie,
Schreibe in Spalte Preis
Der folgende code funktioniert leider nicht.Kann mir jemand sagen wo mein Fehler liegt? Bin mir auch nicht sicher ob die Userform exact richtig ist und
inwieweit der Code toleranz gegnüber Fehlern in der Userform aufweist.
Vielen Dank im voraus.
Martin
P.s.: ich habe gestern bereits woanders gepostet, habe aber keine (ernstgemeinte) Anwort bekommen.
Private Sub CommandButton1_Click()
If ActiveSheet.Protect Then ActiveSheet.Unprotect
On Error GoTo Errorhandler
With ActiveSheet.Cells(Rows.Count, 2).End(xlUp)
.Offset(1, 0).Value = CDbl(txtMarke)
.Offset(0, 3).Value = txtLinie
.Offset(0, 4).Value = txtBezeichnung
.Offset(0, 5).Value = txtpri
End With
txtMarke = ""
txtLinie = ""
txtBezeichnung = ""
txtpri = ""
'ActiveSheet.Protect
Exit Sub
Errorhandler:
MsgBox "Falsche Eingabe"
End Sub