Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.09.2025 22:18:24
Liste mit Links - tricky
26.09.2025 18:34:36
Welches Datum gibt mein M-Code aus?
26.09.2025 10:29:46
Wert aus einer Zelle bei jeder Eingabe in neue Zelle
26.09.2025 08:51:00
Teilinhalt einer Zelle vergleichen
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1464to1468
1464to1468
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Jede x-te Zeile löschen

Forumthread: Jede x-te Zeile löschen

Jede x-te Zeile löschen
04.01.2016 07:15:36
Erwin
Guten Morgen im neuen Jahr,
mit nachfolgendem Code lösche ich ab einer bestimmten Zeile jede x-te Zeile, wenn Spalte A belegt ist.
Sub Jede_X_te_Zeile_loeschen() Dim Zeile1, x Application.ScreenUpdating = False Zeile1 = Val(InputBox("Spalte A muss belegt sein !!" & vbCr & _ "Beginn in Zeile?", _ "Zeilen löschen")) x = Val(InputBox("Jede wievielte?")) Do While Not (IsEmpty(Cells(Zeile1, 1))) Rows(Zeile1).Delete Zeile1 = Zeile1 + x - 1 Loop Application.ScreenUpdating = True End Sub Ich möchte dies jetzt nicht mehr auf Spalte A prüfen ob belegt, sondern generell jede x-te Zeile ab der vorgegebenen Zeile aus der ersten Inputbox.
Wenn ich aber jetzt den Code ...While Not (IsEmpty(Cells(Zeile1, 1)))... entferne dauert das ewig, da vermutlich alle Zellen bis Zeile 1.048.576 durchsucht werden?!
Wie kann der Code geändert werden, damit ohne Bezug auf Spalte A nur bis zur maximal belegten Zelle (z. B.: Cells.SpecialCells(xlCellTypeLastCell).Row) der Code läuft?
Grüße - Erwin

Anzeige

26
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Duplikate entfernen
04.01.2016 07:41:41
RPP63
Moin!
Das Schnellste ist:
Bilde eine Hilfsspalte gleich rechts neben Deinen Daten,
in Zeile 1 kommt eine Null,
ab Zeile 2 eine Formel nach diesem Motto:
=WENN(REST(ZEILE();JedeXteZeile)=AbZeile;0;ZEILE())
Auf diese Spalte wendest Du Duplikate entfernen an und löscht im Anschluss diese Hilfsspalte.
(lässt sich natürlich auch als Makro schreiben)
 ABCDE
1Spalte A0 ab Zeile:3
2x2 jede xte4
3x0   
4x4   
5x5   
6x6   
7x0   
8x8   
9x9   
10x10   
11x0   
12x12   
13x13   
14x14   
15x0   
16x16   

Formeln der Tabelle
ZelleFormel
B2=WENN(REST(ZEILE(); E$2)=E$1;0;ZEILE())


Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4.8
Gruß Ralf

Anzeige
Formellösung (auch für VBA möglicher Zeitgewinn)
04.01.2016 07:46:52
lupo1
1. Zähle die Einträge in A, z.B. mit .Count
2. Lösche von hinten, nicht von vorn. Geht viel schneller!
Noch schneller für jede 8. Zeile als herunterzukopierende Formel:
B1: =INDEX(A:A;(ZEILE(A1)-1)*8/7+1)
also für jede n-te Zeile
B1: =INDEX(A:A;(ZEILE(A1)-1)*n/(n-1)+1)

Anzeige
Jede x-te Zeile löschen
04.01.2016 08:06:42
Erwin
Hallo,
danke für die Formellösungen, aber das dauert mir zu lange, bis ich mir immer wieder diese Formeln rauskrame, diese eintrage und die Aktionen manuell ausführe.
Ich bin an einer VBA Lösung interessiert, die sich nicht an Spalte A orientiert, sondern an der letzten belegten Zelle des Blattes.
Vielleicht kann man ja mein ursprüngliches Marko anpassen?
Grüße - Erwin

Anzeige
Ich schrieb ja bereits …
04.01.2016 08:11:57
RPP63
… dass man dieses als Makro ausführen kann!
Die Kenntnis der Formeln hilft Dir dennoch, um ähnliche Probleme anzugehen.
Entweder Du nimmst mein hardcodiertes Makro oder Du bleibst bei Deinen Inputboxes, dann solltest Du aber auf Apllication.InputBox umsteigen oder eine vernünftige Fehlerbehandlung einbauen.
Sub JedeXteZeile()
Dim Anfang As Long, Delta As Long
Dim HS As Integer 'Hilfsspalte 
Dim letzeZeile As Long
Anfang = 3
Delta = 4
HS = Cells(1, 2 ^ 14).End(xlToLeft).Column + 1
letzeZeile = Cells(2 ^ 20, 1).End(xlUp).Row
Cells(1, HS) = 0
Range(Cells(2, HS), Cells(letzeZeile, HS)).Formula = _
   "=IF(MOD(ROW()," & Delta & ")=" & Anfang & ",0,ROW())"
ActiveSheet.UsedRange.RemoveDuplicates HS
Columns(HS).Delete
End Sub
Gruß Ralf

Anzeige
Tja ...
04.01.2016 08:14:08
lupo1
Deine Empty-Prüfung sollte eigentlich ausreichen.
Schade, dass Du ansonsten beratungsresistent bist:
a) Löschen geht von hinten schneller; Du aber willst anscheinend weiter von vorn löschen
b) Formeln kann man auch in VBA verwenden (!)
c) Mit meiner Formel wird nicht gelöscht, sondern das Unerwünschte gar nicht erst aufgeführt. Ist das nicht besser?
Auch die Lösung von Ralf ist übrigens gut!

Anzeige
Geschwindigkeit
04.01.2016 08:18:33
RPP63
Gerade für 3.000 Zeilen ausprobiert:
Dauer 0,1 Sekunden!
Das versuche mal mit zeilenweisem Löschen.
;-)

AW: Jede x-te Zeile löschen
04.01.2016 08:34:21
Erwin
Hallo ihr beiden Helfer,
danke für eure Mühe und die Codes und die hilfreichen Tipps.
Wenn ihr mein VBA Level angesehen hättet, wüsstet ihr, warum ich einen fertigen Code benötige, der auch flexibel (Beginn und Anzahl der Zeilen) einsetzbar ist.
Jetzt pfriemel ich mir wieder ne Stunde lang die Inputboxen rein.
Grüße - Erwin

Anzeige
Bitteschön, Code folgt:
04.01.2016 08:41:50
RPP63
Microsoft Excel Objekt Tabelle2 
Option Explicit 
 
Sub JedeXteZeile() 
Dim Anfang As Long, Delta As Long 
Dim HS As Integer 'Hilfsspalte 
Dim letzeZeile As Long 
Anfang = CInt(Application.InputBox("Startzeile", Type:=1)) 
Delta = CInt(Application.InputBox("ab welcher Zeile?", Type:=1)) 
HS = Cells(1, 2 ^ 14).End(xlToLeft).Column + 1 
letzeZeile = Cells(2 ^ 20, 1).End(xlUp).Row 
Cells(1, HS) = 0 
Range(Cells(2, HS), Cells(letzeZeile, HS)).Formula = _
   "=IF(MOD(ROW()," & Delta & ")=" & Anfang & ",0,ROW())" 
ActiveSheet.UsedRange.RemoveDuplicates HS 
Columns(HS).Delete 
End Sub

Gruß Ralf

Anzeige
Da fehlt was
04.01.2016 08:50:37
lupo1
- Start ab Zeile
- (Shift möglich, aber nicht notwendig)
- jede wievielte
Cells(2 ^20) crasht bei Excel 2003. Besser mit Rows.Count

Ööhmm
04.01.2016 08:54:51
RPP63
Start ist Anfang, jede wievielte ist Delta
Shift verstehe ich nicht!
Der TE hat Xl2010, deshalb 2^20 und 2^14
?

Anzeige
Hatte den Code nur gelesen
04.01.2016 09:27:17
lupo1
Anfang = CInt(Application.InputBox("Startzeile", Type:=1))
Delta = CInt(Application.InputBox("ab welcher Zeile?", Type:=1))
ist widersprüchlich, denn "Startzeile" ist für mich das gleiche wie "ab welcher Zeile".
Und xl2003 wird durchaus noch verwendet; also auch bei verwendetem xl2010 noch einen Hinweis wert.
Nix für ungut!

Anzeige
Wohl wahr!
04.01.2016 09:48:21
RPP63
Der kluge :-( Text ist mir gar nicht aufgefallen.
Das mit dem 2^20 habe ich mir angewöhnt, weil ich schreibfaul bin.
Als Hinweis für "Nachschlager"
Excel bis 2003 hat 2^14 Zeilen und 2^8 Spalten ;-)
Gruß Ralf

AW: Ööhmm
04.01.2016 09:28:40
Erwin
Hallo Ralf,
nach einigen Test musste ich leider feststellen, dass zwar eine Hilfsspalte erzeugt wird, die aber im nächsten Schritt wieder verschwindet; die belegten Zeilen bleiben jedoch gleich.
Außerdem verstehe ich den Code ...RemoveDuplicates... nicht, da ja von Duplikaten nie die Rede war.
Selbst der Test zum entfernen mit möglichen Duplikaten läuft nicht; bei mir wird nichts gelöscht.
Mein eingangs gepostetes VBA läuft richtig, leider bezieht es sich immer auf eine gefüllte Spalte A, was ich nicht mehr möchte.
Kann man hier nicht das ...UsedRange... einbauen?
Erwin

Anzeige
Der Code funktioniert …
04.01.2016 09:49:59
RPP63
… einwandfrei, Erwin.
Lade mir mal eine Mappe hoch, bei der Du meinst, dass es nicht geht.
Gruß Ralf

Mea Culpa!
04.01.2016 10:10:59
RPP63
Sorry Erwin,
der Code funktioniert nicht, wenn Anfang größer als Delta ist!
Muss ich mir etwas überlegen.
Gruß Ralf

Jetzt aber!
04.01.2016 10:36:36
RPP63
Dies dürfte jetzt klappen (ganz anderer Ansatz):
Sub MalAnders()
Dim Anfang As Long, Delta As Long, cnt As Long
Dim letzeZeile As Long, Zeilen As Range
Anfang = CInt(Application.InputBox("Startzeile", Type:=1))
Delta = CInt(Application.InputBox("jede wievielte Zeile?", Type:=1))
letzeZeile = ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Row
Set Zeilen = Rows(Anfang + Delta)
For cnt = Anfang + 2 * Delta To letzeZeile Step Delta
   Set Zeilen = Union(Zeilen, Rows(cnt))
Next
If Not Zeilen Is Nothing Then Zeilen.EntireRow.Delete
End Sub
Gruß Ralf

Anzeige
AW: Jetzt aber! ==>> wunderbar :)
04.01.2016 10:43:00
Erwin
Hallo Ralf,
vielen Dank für die Mühe und Geduld mit mir, jetzt ist es genau das, was ich haben wollte.
Grüße - Erwin

AW: RemoveDuplicates, das Beste zum Zeilen löschen
04.01.2016 16:27:09
Daniel
Hi
RemoveDuplikats entfernt Zeilen mit Duplikaten.
der grosse Vorteil von RemoveDupliacates ist, dass es dabei sehr schnell ist und mit grössten Datenmengen funktioniert, egal wie die Zeilen liegen.
Alle anderen Löschmethoden sind nur dann schnell, wenn die zu löschenenden Zeilen einen lückenlos zusammenhängenden Block bilden, welcher in einem Vorgang gelöscht wird, dh die Zeilen müssen vor dem Löschen sortiert werden.
Removeduplicates ist aber auch in unsortierten Tabellen sehr schnell beim Löschen.
daher bietet es sich an, das RemoveDuplicats generell zum Löschen von Zeilen zu verwenden.
hierzu schreibt man in eine Hilfsspalte am Tabellenende eine Formel, welche alle Zeilen die gelöscht werden sollen mit dem selben Wert kennzeichnet (z.B. die 0) und alle Zeilen die stehen bleilben müssen, mit einem individuellen Wert, (z.B. der aktuellen Zeilennummer), damit man das RemoveDuplikates dann anwenden kann.
da das RemoveDuplicats immer eine Zeile mit dem "gleichwert" (0) stehen lässt, sollte man dafür sorgen, dass dieser "gleichwert" zusätzlich in einer Zeile steht, die stehen bleiben muss, Idalerweise nimmt man die Überschriftenzeile (welche sowieso jede Tabelle haben sollte)
ein weitere Vorteil dieser Methode ist, dass man sie auch von Hand problemlos anwenden kann, unabhängig von der Anzahl der Zeilen der Tabelle (dh man muss nicht immer ein Makro schreiben, wenn die Aufgabe "einmalig" ist)
wenn man es per Makro schreibt, dann lässt sich die Methode auch relativ einfach so programmieren, dass sie sich automatisch an die Tabellengrösse anpasst (Zeilen wie Spalten)
schau dir mal da Beispiel an:
Sub löschen_jede_X_Zeile()
Dim ErsteLöschZeile As Long
Dim Abstand As Long
Dim FO As String
FO = "=IF(Row()
Gruss Daniel

Anzeige
RemoveDuplicates, ...
04.01.2016 19:28:42
Erwin
Hallo Daniel,
mit dieser super Erklärung und dem Code funzt es wirklich sauschnell.
Ich dachte immer RemoveDuplikates hat immer was mit Dubletten zu tun :)
Danke - Erwin

AW: RemoveDuplicates, ...
04.01.2016 19:42:19
Daniel
Sicherlich hat RemoveDuplicates was mit Dubletten zu tun!
Aber weil das so gut funktioniert, setzt man es auch dann ein, wenn man in den Originaldaten keine Dubletten hat und erzeugt die benötigten Dubletten in einer Hilfsspalte per Formel
Gruss Daniel

Anzeige
Meine Formellogik als VBA
04.01.2016 10:24:01
lupo1 

Sub LoescheXteZeile()
a = Cells(Cells.Rows.Count, 1).End(xlUp).Row * 2
b = CInt(Application.InputBox("Startzeile?", Type:=1))
x = CInt(Application.InputBox("Jede wievielte Zeile?", Type:=1))
arr = Range("A1:A" & a)
For i = b To a / 2
arr(i, 1) = arr(Int((i - 1) * x / (x - 1)) + 1, 1)
Next
Range("A1:A" & a) = arr
End Sub

Innerhalb der Schleife, die nur die Spalte A abarbeitet, könnte man noch eine weitere für mehrere Spalten einfügen.

Anzeige
AW: Meine Formellogik als VBA
04.01.2016 10:35:03
Erwin
Hallo Lupo1,
auch dein Makro funktioniert nicht wie gewünscht, weil ja die gesamte Zeile gelöscht werden soll und es auch vorkommt, dass in einer anderen Spalte (nicht A) die letzte Zelle auf dem Blatt ist.
Erwin

beide Punkte berücksichtigt
04.01.2016 10:49:57
lupo1 

Sub LoescheXteZeile()
a = Cells.CurrentRegion.Rows.Count * 2
b = CInt(Application.InputBox("Startzeile?", Type:=1))
x = CInt(Application.InputBox("Jede wievielte Zeile?", Type:=1))
arr = Range("A1:DZ" & a)
For i = b To a / 2
For j = 1 To 100
arr(i, j) = arr(Int((i - 1) * x / (x - 1)) + 1, j)
Next
Next
Range("A1:DZ" & a) = arr
End Sub

Ich habe mal fix 100 Spalten angenommen, kannst Du ja anpassen (Die Anzahl von Spalten bleibt in 99% aller Anwendungen konstant).
Außerdem habe ich statt .UsedRange einfach .CurrentRegion angenommen (funktioniert so, wie die automatische Ausweitung einer Zelle auf einen Sortierbereich)

Anzeige
AW: beide Punkte berücksichtigt
04.01.2016 11:34:25
Erwin
Hallo Lupo1,
herzlichen Dank für deine Mühe. Beim testen ist mir aufgefallen, wenn ich z. B. ab 10. Zeile jede 3 löschen möchte, löscht der Code die Zeilen 10, 11, 12, 13, 15, 18, 21, 24, ...; da scheint es am Anfang ein Problem zu geben.
Erwin

vielleicht ja so erwünscht:
05.01.2016 07:58:43
lupo1 

Sub LoescheXteZeile() 'b=7 mit x=7 löscht Zeile 13, 20, 27 ...
a = Cells.CurrentRegion.Rows.Count * 2
c = Cells.CurrentRegion.Columns.Count
b = CInt(Application.InputBox("Startzeile?", Type:=1))
x = CInt(Application.InputBox("Jede wievielte Zeile?", Type:=1))
arr = Cells(1, 1).Resize(a, c)
For i = b To a / 2
For j = 1 To c
arr(i, j) = arr(Int((i - b) * x / (x - 1)) + b, j)
Next
Next
Cells(1, 1).Resize(a, c) = arr
End Sub

Gebe ich nun 10 als Startzeile und 3 als Jede-Wievielte ein, werden 12, 15 ... gelöscht

Anzeige
AW: vielleicht ja so erwünscht: ==> Ja genau so
05.01.2016 08:10:42
Erwin
Hi lupo1,
super, Test passt, danke nochmals für deine Mühe.
Grüße - Erwin
;

Forumthreads zu verwandten Themen

Jede 2te Zeile in eine Spalte kopieren
Eddie

Guten Morgen @ all
Ich habe mal wieder ein kleines problem :-)
Ich würde gerne Daten, die alle in einer Spalte sind auteilen.... dazu soll entweder der 1,3,5,7.... oder 2,4,6,8 ... Wert immer in die danebenliegende Spalte kopiert werden
IST:
Hallo
Hello
Gut
Good
...
20.08.2008 07:52:00
Thread-ID: 1003065
6 Beiträge
Anzeige
Einfügen mit jeder 2. Zeile als Leerzeile
Ulrich

Hallo zusammen,
wie kann ich einen Bereich einer Tabellen markieren, kopieren und in einem anderen Tabellenblatt über "Inhalte einfügen" und "verknüpfen" automatisch mit jeder zweiten Zeile als Leerzeile versehen, ohne das die Verknüpfung verrutscht?
Danke im Voraus und Grüße,
Ulr...
26.08.2008 14:15:00
Thread-ID: 1004799
4 Beiträge
jede zweite Zelle in Datenreihe
sarina

Hallo!
Ich habe ein Problem ;)
Und zwar würde ich gerne ein Diagramm erstellen, dass als Datenreihe aus meiner vorhandenen Tabelle jede zweite Zelle nimmt, z.B. aus der Spalte A von 1:250 also dann A1, A3, A5,....
Und das ohne eine neue Tabelle zu erstellen.
Geht das? Hat jema...
29.08.2008 09:48:58
Thread-ID: 1005687
5 Beiträge
jede zweite Zeile bearbeiten/löschen
Martin

Hallo zusammen,
ich muss bei einer recht umfangreichen Datei je zwei Zeilen zusammenfassen.
Dafür bei zweiter Zeile:
Kopieren der Werte von Spalte A bis Spalte J, die Werte in der vorigen Zeile ab Spalte K einfügen, so dass nachher die Zellen A-T belegt sind. Nicht jede Zelle ist hi...
15.11.2008 14:35:07
Thread-ID: 1024767
5 Beiträge
Anzeige
Jede 2. Zeile einfärben
Frank

Hallo und Guten Abend Zusammen!
Mit folgendem Code
Sub Zeilen_formatieren() Sheets("DATEN").Activate Range("A14:K65536").Select For Zeile = 1 To Selection.Rows.Count If Zeile Mod 2 > 0 Then Selection.Rows(Zeile).Interior.ColorIndex = 15 End If Next Zeile End Sub
kann ich jede z...
17.01.2009 19:20:00
Thread-ID: 1040966
4 Beiträge
jede zweite Zelle in Spalte durch Doppelklick mark
mike49

Hallo,
wie kann man das lösen?
Ich möchte in meinem Spaltenbereich A13:A145 erreichen, dass durch Doppelklick ein "X" in die Zelle gesetzt wird und bei erneutem Doppelklick wieder verschwindet. Dies soll aber nur in jeder zweiten Zelle möglich sein. Also in A13, A15, A17 usw. bis einsch...
02.05.2009 13:05:13
Thread-ID: 1072411
6 Beiträge
Jede 2. Zeile Hintergrund ändern
Blum

Hallo zusammen
Habe da noch eine Frage.
In Excel kann man doch jede 2. Zeile anders darstellen, so dass das lesen von grossen Dateien einfacher wird.
z.B. 1. Zeile weiss, 2. Zeile hellgrün, 1. Zeile weiss, 3 wieder hellgrün usw.
Hemm weiss jemand noch wie das automatisiert geht?...
25.06.2009 17:40:07
Thread-ID: 1084417
6 Beiträge
Wert aus jeder zweiten Zeile übernehmen
oli.p

Hallo zusammen!
Ich sitze den halben Tag an einer für mich schier unlösbaren Aufgabe.
Zur weiteren Bearbeitung wollte ich eigentlich jeweils "nur" jeden zweiten Wert einer Zeile anzeigen.
Hier zur Veranschaulichung: https://www.herber.de/bbs/user/63952.xls
Vielen Dank für Eure H...
20.08.2009 14:20:09
Thread-ID: 1097390
5 Beiträge
Formelbezug zu jeder dritten Zeile
F

Hallo,
ich habe eine Datei mit mehreren Arbeitsblättern.
Im Arbeitsblatt: Tabelle3 steht in einer Zelle: =Tabelle1!D1
drei Zellen tiefer steht: =Tabelle1!D2
und noch einmal drei Zellen tiefer: =Tabelle1!D3
Jetzt möchte ich...
18.09.2009 13:13:21
Thread-ID: 1103894
6 Beiträge
Makro zum löschen jeder 2. Zeile
philG

Hallo liebe Herber-Gemeinde,
ich habe ein Problem: elend Lange Tabelle, wo ich die 1., 3., 5. Zeile usw. löschen muss.
Kann mir jemand mit einem VB-Befehl aushelfen, der jede 2. Zeile der Tabelle löscht?
Ich wäre suuperhappy! Habt vielen Dank im Voraus! :-)
05.01.2010 10:26:46
Thread-ID: 1127199
4 Beiträge
Jede zweite Zelle des Bereich einfärben
Benedikt

Guten Abend miteinander
Mit nachfolgendem Code färbe ich jede zweite Zelle des Bereich B23 bis M45 ein.
Bei anderen Arbeitsblättern sind Bereiche bis M100 gefragt und da wird die Reihe im Code endlos.
Private Sub Worksheet_Change(ByVal Target As Range) With Range("B23:M23,B25:M25,B2...
01.05.2010 17:31:00
Thread-ID: 1154888
4 Beiträge
Makro: jede zweite Zeile andersfarbig
Holger

Hallo,
aus diesem Forum habe ich unten stehendes Makro gefischt.
Funktioniert soweit alles, nur sobald durch AutoFilter die Auswahl verändert wird,
gerät natürlich alles durcheinander. Mit einer bedingten Formatierung möchte ich es ungern
lösen, mir ist eine reine VBA Lösung li...
07.05.2010 16:37:55
Thread-ID: 1156123
4 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige
Anzeige

Infobox / Tutorial

Jede x-te Zeile in Excel löschen

Schritt-für-Schritt-Anleitung

Um jede x-te Zeile in Excel zu löschen, kannst Du ein VBA-Makro verwenden. Hier ist eine einfache Schritt-für-Schritt-Anleitung:

  1. Öffne Excel und drücke ALT + F11, um den VBA-Editor zu öffnen.
  2. Klicke auf Einfügen > Modul, um ein neues Modul zu erstellen.
  3. Füge den folgenden Code in das Modul ein:
Sub Jede_X_te_Zeile_loeschen()
    Dim Zeile1 As Long, x As Long
    Dim letzeZeile As Long
    Application.ScreenUpdating = False
    Zeile1 = Val(InputBox("Beginn in Zeile?", "Zeilen löschen"))
    x = Val(InputBox("Jede wievielte?"))

    letzeZeile = ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Row
    Do While Zeile1 <= letzeZeile
        Rows(Zeile1).Delete
        Zeile1 = Zeile1 + x - 1
    Loop
    Application.ScreenUpdating = True
End Sub
  1. Schließe den VBA-Editor und kehre zu Excel zurück.
  2. Führe das Makro aus, indem Du ALT + F8 drückst, das Makro auswählst und auf Ausführen klickst.

Mit diesem Makro kannst Du jede zweite Zeile in Excel, jede dritte Zeile oder sogar jede vierte Zeile auswählen und löschen.

Häufige Fehler und Lösungen

  • Problem: Das Makro löscht nicht die gewünschten Zeilen.

    • Lösung: Stelle sicher, dass Du die richtigen Werte für die Startzeile und den Abstand (x) eingibst.

  • Problem: Das Makro läuft sehr lange.

    • Lösung: Achte darauf, dass Du das Application.ScreenUpdating auf False setzt, um die Ausführung zu beschleunigen.

  • Problem: Fehler beim Zugriff auf UsedRange.

    • Lösung: Stelle sicher, dass Deine Daten keine leeren Zeilen enthalten, die das Makro stören könnten.

Alternative Methoden

Wenn Du nicht mit VBA arbeiten möchtest, kannst Du auch Formeln verwenden:

  1. Erstelle eine Hilfsspalte neben Deinen Daten.

  2. Verwende eine Formel wie:

    =WENN(REST(ZEILE();x)=0;ZEILE();"")

    Ersetze x durch die Anzahl der Zeilen, die Du überspringen möchtest.

  3. Filtere die Hilfsspalte, um nur die Zeilen mit Werten anzuzeigen, und kopiere sie an einen neuen Ort.

Praktische Beispiele

  1. Jede zweite Zeile löschen:

    • Setze x auf 2 im Makro.

  2. Jede dritte Zeile löschen:

    • Setze x auf 3 im Makro.

  3. Nur jede zehnte Zeile verwenden:

    • Setze x auf 10 im Makro.

Das Beispiel passt sowohl für Excel 2010 als auch für spätere Versionen.

Tipps für Profis

  • Du kannst das Makro anpassen, um nur bestimmte Spalten zu bearbeiten, indem Du die Rows-Methode durch Cells ersetzt.
  • Verwende Application.InputBox anstelle von InputBox, um Datentypen zu überprüfen und Benutzerfehler zu minimieren.
  • Wenn Du regelmäßig jede x-te Zeile löschen musst, überlege, eine Schaltfläche in Deinem Excel-Dokument zu erstellen, um das Makro auszuführen.

FAQ: Häufige Fragen

1. Wie kann ich jede zweite Zelle in Excel löschen? Du kannst eine ähnliche Technik verwenden, jedoch mit einer Formel, die die Zellen in einer Hilfsspalte markiert.

2. Funktioniert dies in allen Excel-Versionen? Ja, die beschriebenen Methoden und das VBA-Makro funktionieren ab Excel 2007 und in allen späteren Versionen.

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige