Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1980to1984
1980to1984
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zellen löschen

Forumthread: Zellen löschen

Zellen löschen
04.07.2024 13: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
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Zellen löschen
04.07.2024 13: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 13: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


Anzeige
AW: Zellen löschen
04.07.2024 13:51:21
Chris
hat sich erledgt. OWT !

Danke und Gruß
AW: Zellen löschen
04.07.2024 13: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
Anzeige
AW: Zellen löschen
04.07.2024 13: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
Anzeige
AW: Zellen löschen
04.07.2024 13:50:50
Chris
Danke !,

Das Makro mit resize passt

Gruß
Chris
AW: Zellen löschen
04.07.2024 13: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
Anzeige
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige