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