Hallo Peter
du hast alles so schön in With-Anweisungen gepackt (Daumen hoch dafür)
aber wenn du das so schreibst dann muß vor JEDEM Cells oder Range
das auf das jeweilige Tabellenblatt verweisen soll ein Punkt stehen
also z.B. so
With Worksheets("Tabelle1")
For peter = 2 To 500
If .Cells(peter, 12).Value = "" Then
Exit For
End If
Next
End With
denn sonst geht z.B. das
If Cells(peter, 12).Value = "" Then
von deinem gerade aktiven Tabellenblatt aus
MfG Tom
|