Private Sub Hinzufügen_Click()
Dim GNR As Range
With ActiveWorkbook.Worksheets("Lagerbestand")
Set GNR = .Range("C9:C1008").Find(What:=EGeräteNr, LookIn:=xlValues, Lookat:=xlWhole)
End With
If Not GNR Is Nothing Then
GNR.Offset(0, 1).Value = Bezeichnung
GNR.Offset(0, 2).Value = Status
GNR.Offset(0, 3).Value = Datum
Select Case Status
Case "Recycelt": GNR.Offset(0, 2).Interior.Color = vbRed
Case "verkauft"
End Select
GNR.Select
End If
End Sub