Teilbereiche im Arbeitsblatt löschen

Hallo liebe Leute,
mit VBA kenn ich mich nicht aus, deswegen mal hier meine Frage:
In dem Tabellenblatt Kalkulation sollte es möglich sein, per Makro einzelne Bereiche zu löschen (nur Inhalte, keine Formatierungen oder Gültigkeit).
Als Bsp.: folgende Bereiche:
M22;N22:N35;O22:O35;P22:P35;Q22;Q35;R22:R35;U22:U35;V22:V35,
dann weiter ab Zeile 39, also
M39;N39:N52;O39:O52;P39:P52;Q39;Q52;R39:R52;U39:U52;V39:V52,
das ganze bis Zeile 10000.
Habe das mal mit dem Rekorder aufgezeichnet, aber das wird mit 10000 Zeilen extrem lang!

Sub löschen_1()
Range("M22").Select
Selection.ClearContents
Range("N22:R35").Select
Selection.ClearContents
Range("U22:V35").Select
Selection.ClearContents
Range("M39").Select
Selection.ClearContents
ActiveWindow.SmallScroll Down:=9
Selection.ClearContents
Range("N39:R52").Select
Selection.ClearContents
Range("U39:V52").Select
Selection.ClearContents
End Sub

Wie kann man das per Makro eleganter lösen?
Danke für eure Unterstützung!
MfG Christian

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Lisa,
Danke erstmal, aber ich glaube wir reden aneinader vorbei!
Ich versuche es nochmal zu beschreiben:
beginnend mit M22 sollen die Bereiche M22;N22:R35;U22:V35 gelöscht werden (also die Inhalte).
Im nächsten Schritt der gleiche Bereich, nur 17 Zeilen weiter unten:
M39;N39:R52;U39:V52, danach wieder 17 Zeilen weiter unten mit M56 usw... bis Zeile 10000.
Die roten Zellen greifen hier nicht, da es im Orignal keine wirklich roten gibt (dienten im Bsp. nur zur Orientierun), bzw. in anderen Spalten schon, tlw. über bedingte Formatierung.
Hoffe das Du oder andere noch hilfreiche Ideen haben.
Habe zwar schon einiges im Archiv gefunden, aber nur mit ganzen Zeilen :-(
Diesen Ansatz habe ich gefunden, aber er löscht halt ganze Zeilen, und die auch komplett, leider fehlen mir die grundlegendsten Kenntnisse, um das auf meine anforderungen umzubauen...

For i = 26 To 5000 Step 36
Cells(i, 1).Select
Selection.EntireRow.Delete
i = i - 1
Next i

MfG Christian

Option Explicit Sub delContent() Dim sh As Worksheet Dim ze As Long Set sh = ThisWorkbook.Sheets("Tabelle1") With sh For ze = 22 To 1000 Step 17 .Cells(ze, 13).ClearContents .Cells(ze, 14).ClearContents .Cells(ze, 21).ClearContents .Cells(ze + 13, 18).ClearContents .Cells(ze + 13, 22).ClearContents Next End With End Sub

Sub delContent() Dim sh As Worksheet Dim ze As Long Set sh = ThisWorkbook.Sheets("Kalkulation") With sh For ze = 22 To 1000 Step 17 .Cells(ze, 13).ClearContents .Range(.Cells(ze, 14), .Cells(ze + 13, 18)).ClearContents .Range(.Cells(ze, 21), .Cells(ze + 13, 22)).ClearContents Next End With End Sub

Beliebteste Forumthreads (12 Monate)

Teilbereiche im Arbeitsblatt löschen

11 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread