Bereich zurechtschneiden
11.01.2021 16:45:53
Peter
anbei findet ihr meinen Versuch Zeilen ab einer als Variable definierten Zeile zu löschen.
Wie man am Code sieht, habe ich sehr wenig Ahnung und auch ein gemindertes Verständnis für das Dahinterliegende. Die Zellen mit "AZeilenAbschneiden" aufzurufen führt jedenfalls zu nichts.
Ziel für mich ist einen Code zu erzeugen, mit dem ich alle Einträge am einer Zeile x, welche am besten durch eine Inputbox beim Start abgefragt wird, zu löschen (alles was dort ist oder zur Sicherheit bis 2000).
Dies soll in den Spalten A-H (im Beispiel A-D) geschehen, gerne auch in allen.
Da alle Arbeitsblätter in der Mappe gleich gekürzt werden sollen, gibt es vielleicht eine Methode nicht alle sheets einzeln anzuspechen?
Ist nicht meine Welt bisher
Vielen Dank & Beste Grüße
Peter
Sub BereichZurechtschneiden()
Set ZeilenAbschneiden = 56
Sheets("Februar1").Range("AZeilenAbschneiden:A2000,BZeilenAbschneiden:B2000,CZeilenAbschneiden: _
C2000,DZeilenAbschneiden:D2000,CZeilenAbschneiden:C2000").ClearContents
Sheets("Tabelle1").Range("AZeilenAbschneiden:A2000,BZeilenAbschneiden:B2000,CZeilenAbschneiden: _
C2000,DZeilenAbschneiden:D2000,CZeilenAbschneiden:C2000").ClearContents
Sheets("Bericht2").Range("AZeilenAbschneiden:A2000,BZeilenAbschneiden:B2000,CZeilenAbschneiden: _
C2000,DZeilenAbschneiden:D2000,CZeilenAbschneiden:C2000").ClearContents
Sheets("Anlage2").Range("AZeilenAbschneiden:A2000,BZeilenAbschneiden:B2000,CZeilenAbschneiden: _
C2000,DZeilenAbschneiden:D2000,CZeilenAbschneiden:C2000").ClearContents
End Sub