|
Hallo Detlev,
ich habe mich nun gestern Abend und heute "durchgewuselt".
Ja, ein Button heisst übernehmen. Die Daten werden dann aus der Eingabemaske in die entsprechendes Spalten geschrieben.
Moment hänge ich bei der den doppelten Einträgen unter Seriennummern. Es soll eine Warnung aufpoppen, wenn eine SN schon vorhanden ist. Der Code läuft ohne Fehler, aber er trägt doppelte trotzdem ein ohne meckern. Wie kann das sein?
Ich werd kirre.. ;-)))
MFG
trulla
Private Sub uebernehmen_Click()
Dim letzteZeile As Integer
Dim rng As Range
Set rng = Worksheets("Seriennummernverwaltung").Range("C3:C65000").Find(What:=TextBox1.Text, LookAt:=xlWhole, LookIn:=xlValues)
If Not rng Is Nothing Then
MsgBox "Diese Seriennummer ist bereits gelistet."
End If
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
ThisWorkbook.Sheets("Seriennummernverwaltung").Cells(letzteZeile, 3) = Seriennummer.Value
'UserForm1.Hide
Auftragsnummer.Value = ""
Seriennummer.Value = ""
Kartonnummer.Value = ""
End Sub
|