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