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