Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.10.2025 09:40:53
Mehrere Konferenzen ohne Personenüberschneidung terminieren
16.10.2025 00:15:51
Passwort im Herbersforum ändern
15.10.2025 16:22:17
Datum ist nicht Datum :(
15.10.2025 15:02:20
Blockpfeile mit Makro gehen nicht mehr nach freigabe
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
1136to1140
1136to1140
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

jede zweite zelle löschen...?

Forumthread: jede zweite zelle löschen...?

jede zweite zelle löschen...?
joerg
Hallo schon wieder,
ich hänge grad wieder fest - ich müsste in einer Zeile jede zweite Zelle löschen. Habe jetzt schon folgende ausgeklügelte Teillösung fertig: 

For i = 1 To 50 step 2
Next

Die Zeile steht in Target.Row, ich habe nur jetzt keine Ahnung wie ich eine Zelle anspreche (bzw. dann lösche), wenn ich Zeile und Spalte als Zahl habe? Mit Range, aber da brauche ich dann ja sowas wie "B20", oder?
Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: jede zweite zelle löschen...?
06.02.2010 20:20:09
Josef
Hallo Jörg,

auf diese Art musst du immer von Hinten nach Vorme löschen.

For i = 50 To 1 step -2
Cells(Targe.Row, i).Delete xlLeft
Next

Gruß Sepp

Anzeige
AW: jede zweite zelle löschen...?
06.02.2010 20:27:13
joerg
Hallo Sepp,
Bestens, danke! Aber warum geht das nur von hinten nach vorne?
AW: jede zweite zelle löschen...?
06.02.2010 20:30:28
Josef
Hallo Jörg,

na wenn du die erste Zelle löscht, dann wird die Dritte zur zweiten und du greifst im nächsten Schritt statt auf die Dritte auf die vierte Zelle zu usw.

Gruß Sepp

Anzeige
AW: jede zweite zelle löschen...?
06.02.2010 20:32:09
joerg
Achso - nee, dann habe ich mich falsch ausgedrückt: Ich will die Zellen nicht löschen, nur leeren...
AW: jede zweite zelle löschen...?
06.02.2010 20:34:27
joerg
...Hab's schon: ...value = ""
:) Danke! :)
;

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
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
Anzeige
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
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
Anzeige
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
Anzeige
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
Anzeige
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 zweite Zelle in Excel löschen oder leeren

Schritt-für-Schritt-Anleitung

Um in Excel jede zweite Zelle zu löschen oder zu leeren, kannst du VBA (Visual Basic for Applications) 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. Füge ein neues Modul hinzu:

    • Klicke auf Einfügen > Modul.

  3. Füge den folgenden Code ein, um jede zweite Zelle zu leeren:

    Sub LeereJedeZweiteZelle()
   Dim i As Integer
   Dim Zeile As Integer

   Zeile = ActiveCell.Row ' Aktive Zeile
   For i = 1 To 50 Step 2 ' Ändere die 50 je nach Bedarf
       Cells(Zeile, i).Value = "" ' Leert die Zelle
   Next i
End Sub

  4. Schließe den VBA-Editor und gehe zurück zu Excel.

  5. Wähle die Zeile aus, in der du die Zellen leeren möchtest.

  6. Führe das Makro aus, indem du ALT + F8 drückst und das Makro auswählst.

Häufige Fehler und Lösungen

  • Fehler: Das Makro funktioniert nicht wie erwartet.

    • Lösung: Stelle sicher, dass du die richtige Zeile ausgewählt hast, bevor du das Makro ausführst.

  • Fehler: Zellen werden gelöscht anstelle von geleert.

    • Lösung: Überprüfe, ob der Code Value = "" verwendet, um die Zellen zu leeren und nicht zu löschen.

Alternative Methoden

Wenn du keine VBA verwenden möchtest, kannst du auch manuell vorgehen:

  1. Markiere die gesamte Zeile oder Spalte.
  2. Drücke Strg und klicke auf jede zweite Zelle, um sie auszuwählen.
  3. Drücke die Entf-Taste, um die Zellen zu leeren.

Für das Löschen jeder zweiten Zeile in einem Datenbereich kannst du auch Filter verwenden und dann die ungeraden Zeilen löschen.

Praktische Beispiele

  • Beispiel 1: Um jede zweite Zelle in der Zeile 1 zu leeren, ändere Zeile = ActiveCell.Row in Zeile = 1.

  • Beispiel 2: Um jede zweite Zeile im gesamten Arbeitsblatt zu löschen, kannst du folgenden Code verwenden:

    Sub LöscheJedeZweiteZeile()
   Dim i As Integer
   For i = 50 To 1 Step -2 ' Beginne von der letzten Zeile
       Rows(i).Delete
   Next i
End Sub

Tipps für Profis

  • Verwende Application.ScreenUpdating = False am Anfang deines Makros, um die Ausführungsgeschwindigkeit zu verbessern.
  • Kommentiere deinen Code, um die Lesbarkeit zu erhöhen und die Logik hinter den Befehlen zu erklären.
  • Teste immer zuerst in einer Kopie deiner Daten, um unerwünschte Verluste zu vermeiden.

FAQ: Häufige Fragen

1. Wie kann ich jede zweite Zeile in Excel löschen?
Du kannst die oben beschriebenen VBA-Methoden verwenden oder manuell die Zeilen auswählen und löschen.

2. Funktioniert das auch in älteren Excel-Versionen?
Ja, der VBA-Code sollte in den meisten Excel-Versionen funktionieren, solange VBA unterstützt wird.

3. Was passiert, wenn ich den Code ändere?
Sei vorsichtig, da Änderungen den Code unbrauchbar machen oder unerwartete Ergebnisse liefern können. Teste modifizierte Codes immer zuerst.

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