Hallo Tine,
war jetzt wieder mal zu schnell, so sollte es besser klappen...
Private Sub uebernehmen_Click()
Dim letzteZeile As Integer
Dim rng As Range
Set rng = Worksheets("Seriennummernverwaltung").Range("C3:C65000").Find(What:=Seriennummer.Value, LookAt:=xlWhole, LookIn:=xlValues)
Range("A65536").End(xlUp).Select
letzteZeile = ActiveCell.Row + 1
ThisWorkbook.Sheets("Seriennummernverwaltung").Cells(letzteZeile, 1) = Auftragsnummer.Value
ThisWorkbook.Sheets("Seriennummernverwaltung").Cells(letzteZeile, 2) = Kartonnummer.Value
If Not rng Is Nothing Then
MsgBox "Diese Seriennummer ist bereits gelistet."
Else
ThisWorkbook.Sheets("Seriennummernverwaltung").Cells(letzteZeile, 3) = Seriennummer.Value
End If
'UserForm1.Hide
Auftragsnummer.Value = ""
Seriennummer.Value = ""
Kartonnummer.Value = ""
Set rng = Nothing
End Sub
Gruß Detlev
|