Dim rfund As Range
Dim Zelle As Range
With ActiveWorkbook.Worksheets("Lagerbestand")
Set rfund = .Range("C9:C1008").Find(what:=EGeräteNr, LookIn:=xlValues, Lookat:=xlWhole)
End With
With Worksheets("NurZumAblesen")
Set Zelle = .Range("C9:C1008").Find(what:=EGeräteNr, LookIn:=xlValues, Lookat:=xlWhole)
End With
If rfund = EGeräteNr Then
rfund.Select
End If
If Not rfund Is Nothing Then
rfund.Offset(, 1).Value = EBez
rfund.Offset(, 2).Value = EAuftrag
If Zelle Is Nothing Then
Zelle.Offset(, 1).Value = EBez
Zelle.Offset(, 2).Value = EAuftrag
Zelle.Offset(, 3).Value = EStatus
Zelle.Offset(, 4).Value = ERaum