Code erweitern
09.11.2018 20:46:10
Michael
Schaffe es nicht unten stehenden Code auf einen bestimmten Bereich zu begrenzen. Wenn ich versuche nach objWs ein Range einzugeben, bekomme ich Fehlermeldungen. Hab es mit der Hilfe versucht, bin aber auf nichts verwertbares gestoßen.
Ziel ist es den Code auf alle Zeilen ab Zeile 21 bis Tabellenende auszuführen.
Die oberen 20 Zeilen sollen erhalten bleiben.
Wer hat eine Idee, so das es läuft.
Vielen Dank für eure Hilfe
Michael
Sub Löschen()
Dim objWs As Worksheet
For Each objWs In ThisWorkbook.Worksheets
If Right(objWs.Name, 2) = "BE" Then
objWs.DrawingObjects.Delete
objWs.ClearContents
objWs.RowHeight = 18.75
End If
Next
End Sub