Zellen löschen

Forumthread: Zellen löschen

Zellen löschen

04.07.2024 15:25:40

Chris

Hallo zusammen,

in den Zeilen A1 - A20 stehen fortlaufende Zahlen von 1 - 20.
Ich möchte per Makro die Reihen A3&A4, A7&A8, A11&A12, A15&A16, A19&2A0 lösschen.

Wie mache ich das ?

Gruß
Chris

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Zellen löschen

04.07.2024 15:37:23

MCO
AW: Zellen löschen

04.07.2024 15:45:45

Chris
AW: Zellen löschen

04.07.2024 15:51:21

Chris
AW: Zellen löschen

04.07.2024 15:52:37

daniel
AW: Zellen löschen

04.07.2024 15:41:39

daniel
AW: Zellen löschen

04.07.2024 15:50:50

Chris
AW: Zellen löschen

04.07.2024 15:50:35

Yal

AW: Zellen löschen

04.07.2024 15:37:23

MCO

Sub löschen()
Range("A3:A4,A7:A8, A11:A12, A15:A16, A19:A20").EntireRow.Delete
End Sub

AW: Zellen löschen

04.07.2024 15:45:45

Chris

Hallo MCO,

Danke!

Ich hab mich nicht genau genug ausgedrückt:

a) Suche in Spalte A die letzte beschrieben Zellen.
b) Lösche dann jeweils die Zeilen 3 & 4, belasse, 5 & 6, lösche 7&8, belasse 9&10 usw....bis zur letzten beschriebenen Zelle in Spalte A.

Gruß
Chris

AW: Zellen löschen

04.07.2024 15:51:21

Chris

hat sich erledgt. OWT !

Danke und Gruß

AW: Zellen löschen

04.07.2024 15:52:37

daniel

hi
wenn Anzahl der zu löschenden Zellen unbekannt ist und erst ermittelt werden muss, dann verwende die von mir in meiner Antwort beschriebene Schleife.
den Schleifenendwert kannst dumit Cells(Rows.count, 1).End(xlup).Row ermitteln
Wenn du die Zellen aber komplett löschen willst (.Delete shift:=xlup die nicht gelöschten Zellen rücken nach oben), muss die Schleife rückwärts laufen.

for z = Cells(Rows.Count, 1).end(xlup).Row to 3 Step -1

Gruß Daniel

AW: Zellen löschen

04.07.2024 15:41:39

daniel

Hi
das kannst du direkt im Makro so angeben:

Range("A3:A4,A7:A8,A11:A12,A15:A16,A19:A20").ClearContents

wenns zu viele Zellen zum Aufschreiben sind, auch per Schleife:

for z = 3 to 20 step 4

    Cells(z, 1).Resize(2, 1).ClearContents

Next

das geht aber nur, wenn die Anordnung regelmäßig ist (gleicher Abstand, gleiche Blockgröße)

noch ne Möglichkeit:
Definiere dir den Zellbereich als Namen (einfachster Weg: markiere die Zellen mit gedrückter STRG-Taste und Schreibe den Namen in das Namensfeld (oben links vor dem Bearbeitungsfeld), Abschließen mit ENTER nicht vergessen; oder im Namenseditor)
im Makro reicht dann

Range("DeinName").ClearContents

das hat auch den Vorteil, dass du den Bereich leichter ändern und anpassen kannst, ohne das du das Makro umschreiben musst.

Gruß Daniel

AW: Zellen löschen

04.07.2024 15:50:50

Chris

Danke !,

Das Makro mit resize passt

Gruß
Chris

AW: Zellen löschen

04.07.2024 15:50:35

Yal

Hallo zusammen,

MCO und Daniel haben beide richtige Lösungen, wobei Daniel verstanden hat, dass der Inhalt gelöscht werden soll und MCO die ganze Zeile.

Beim ganze Zeile löschen, kann man auch so machen:

Sub Löschen()

Dim i



    For Each i In Array(20, 19, 16, 15, 12, 11, 8, 7, 4, 3)

        Rows(i).Delete

    Next

End Sub

oder so



Sub Löschen2()

Dim i As Long



    For i = 20 To 4 Step -4

        Rows(i - 1 & ":" & i).Delete

    Next

End Sub

Beachten: beim Zeilen/Spalten löschen, wie beim Bodenwischen: immer zurück zur Tür. Sonst ist nach dem Löschen von Zeile 1 die jetzige Zeile 2 die ehemalige Zeile 3. Ehemalige Zeile 2 (=jetzige 1) wird ignoriert.

VG
Yal

Forumthread: Zellen löschen

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu diesem und ähnlichen Themen

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread