<strong>Hallo
ich hab das mal folgendermaßen angepasst, ob das gut ist, sei mal dahingestellt aber es funktioniert und macht was es soll.
DANKE!!!</strong>
If
IsEmpty(Cells(1048576, ActiveCell.Column))
Then
.Cells(ZeileFrei, 3).Copy
With
Sheets(
"tbl_Übersicht"
)
Set
c = .Columns(1).Find(AktuelleMaschine, LookIn:=xlValues, lookat:=xlWhole)
If
Not
c
Is
Nothing
Then
.Cells(c.Row, 2).PasteSpecial
End
If
End
With
Application.CutCopyMode =
False
End
If