vergleichen und dann eintragen bzw ändern die 2.
13.01.2004 17:08:51
michael
Ich habe Heute schon einmal über das Problem geschrieben, und von Hans auch eine Tolle Hilfe bekommen. Nur das Problem ist, daß die Kundennummer nur aus Zahlen bestehen. d.H wenn ich ABC123 eingebe funktioniert das Ganze super. Wenn ich aber nur 123 eingebe, dann leider nicht.
Private Sub cmdEintragen_Click()
Dim iRow As Integer
If IsError(Application.Match(txtNo.Text, Columns(1), 0)) Then
iRow = WorksheetFunction.CountA(Columns(1)) + 1
Cells(iRow, 1).Value = txtNo.Text
Cells(iRow, 3).Value = txtNachname.Text
Cells(iRow, 4).Value = txtNachname.Text
Else
MsgBox "Kundennummer ist bereits vorhanden!"
With txtNo
.SetFocus
.SelStart = 0
.SelLength = .TextLength
End With
End If
End Sub
Vielleicht weiß jemand wie ich aus diesem Schlamassel komme
Danke
Michael
Anzeige