Next ohne for?
05.07.2017 09:31:12
Christian
bekomme gerade diesen Fehler und verstehe ihn nicht...?
Viele Grüße
Christian
'Simulation
Dim lz As Long
Dim j As Integer
lz = tblPlan.Cells(Rows.Count, 1).End(xlUp).Row
Application.ScreenUpdating = False
With tblPlan
lz = .Cells(1, 1).End(xlDown).Row
MSN = Worksheets("Simulation").Range("B3")
'Suche MSN Zelle in Dockplan
For j = 2 To lz
If .Cells(j, 1) = MSN Then
tblPlan.Cells(j, 23).Value = "X"
Exit For
Next j
End With