ich möchte gerne auf Blatt 1 einer Datei den Inhalt aller Zeilen ab Zeile 17 leeren, wobei die Anzahl der Zeilen mit Inhalt variiert.
Ich habe es mit folgendem Code probiert, erhalte hier jedoch einen Run-time error 1004 (Method 'Range' of object '_Worksheet' failed).
Kann mir jemand sagen, wo hier der Fehler liegt ?
Mein Code:
Dim varTargetFile As Workbook, varTargetSheet As Worksheet
Set varTargetFile = ThisWorkbook
Set varTargetSheet = varTargetFile.Worksheets(1)
varTargetSheet.Range("A17", Range("Z17").End(xlDown)).ClearContents
Vielen Dank im Voraus für Eure Hilfe, Markus