Liebe Mitglieder, ich möchte einen bestimmten Bereich in jedem Arbeitsblatt löschen, bekomme aber o. g. Fehlermeldung.
Ich habe eine Datei offen, ruf über eine Button eine neue Datei auf (wird intern über strFilename = Application.GetOpenFilename(strFilter) Datei2019 zugewiesen), dann läuft der Code einwandfrei, BIS
Am Ende möchte ich Inhalte löschen, Startpunkt ist IMMER "D7", Spalte ist immer I, die letzt Zeile ist variabel, mal geht es bis 34, mal bis 36 etc; hier bleibt der Code dann bei .range.... stehen mit unzulässiger Verweis oder nicht ausreichend definiert?
DANKE
Sub
dim wsh as worksheet
For Each wsh In Datei2019.Worksheets
Dim loLetzte As Long
loLetzte = Cells(Rows.Count, 4).End(xlUp).Row
.Range(.Cells(7, 4), .Cells(loLetzte, 9)).ClearContents
Next
End Sub