Letzte Sheet ermitteln
Eve
Ich habe diese code, um in die letzte sheet von
die Workbook alle leere cells in spalte K zu löschen.
so, jetzt ist aber die letzte sheet nicht immer wie in
die code an stelle 7, die name von die sheet ist auch immer
anders. Die einzige kriterium ist, das die sheet ist immer
an die ende also die letzte sheet.
wie muss ich die code teil worksheets(7) ändern, dass die letzte
sheet ermittelt wird?
Sub delLeer()
Dim lgCount As Long
Dim lgLast As Long
lgLast = Worksheets(7).Range("K65536").End(xlUp).Row
For lgCount = lgLast To 1 Step -1
If IsEmpty(Cells(lgCount, 11)) Then
Cells(lgCount, 11).Delete shift:=xlUp
End If
Next
End Sub
danke und regards
Eve
Anzeige