Hallo,
habe vor einiger zeit ein VBA geschrieben, mit der ich abfragen konnte, ob in meinm Betrieb diese Vorteilskarte schon 1x benutzt wurde.
Jetzt möchte ich aber gerne, dass man die Nummer zweimal verwenden kann, wie kann ich das Programm umschreiben dass das funktioniert!?
So schaut es momentan aus! Danke schon im vorherein...
Private Sub Workbook_Open()
Call test
End Sub
Sub test()
Dim KdNr As String
Dim Zelle As Range
Do
KdNr = InputBox("Kundennummer")
If KdNr = "" Then Exit Do
Set Zelle = Columns(1).Find(what:=KdNr, lookat:=xlWhole)
If Zelle Is Nothing Then
With Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)
.Value = KdNr
.Offset(0, 1).Value = Now
End With
Else
MsgBox "Kundennummer " & KdNr & " ist schon vorhanden"
End If
Loop
End Sub
|