Office: (Office 2013) Jede zweite Zeile automatisch löschen???

Hallo an alle,

ich habe noch ein weiteres Problem bei der Bearbeitung meiner Excel Datei. Ich habe eine sehr lange liste (ca. 8000 Zeilen) bei der jede zweite Zeile überflüssig ist. Kann man automatisch jede zweite Zeile löschen? Bis jetzt habe ich das immer per Hand gemacht...

Schöne Grüße

Daniel

... noch eine Anmerkung. In der Spalte "G" ist der Eintrag in den Zeilen die gelöscht werden sollen immer "0". Vielleicht hilft das. So in der Art "wenn G = "0" dann Zeile löschen"...

 

Hallo

schau dir mal diesen Tipp an ;)

http://praxistipps.chip.de/excel-leere-zeilen-loeschen-so-gehts_16749

oder so:

gewünschter Bereich markieren - Strg+G - Inhalte... - Leerzellen - Ok - rechte Maus - Zellen löschen - Zellen nach oben verschieben - OK.

 

Hallo,

du könntest mal folgendes probieren:

Code:

Public Sub LoeschenZeilen()
'Quelle: Thomas Ramel
   Dim loLastRow As Long
   Dim strSpalte As String
   strSpalte = "G"   'Hier die gewünscht Spalte angeben
   loLastRow = IIf(IsEmpty(Range(strSpalte & "65536")), _
                   Range(strSpalte & "65536").End(xlUp).Row, 65536)
   Do
      If Range(strSpalte & loLastRow) = "0" Then Rows(loLastRow).Delete
      loLastRow = loLastRow - 1
   Loop Until loLastRow = 0
End Sub

oder bezogen auf die Spalte G mit dem Wert 0

Code:

Public Sub LoeschenZeilen()
'Quelle: Thomas Ramel
   Dim loLastRow As Long
   Dim strSpalte As String
   strSpalte = "G"   'Hier die gewünscht Spalte angeben
   loLastRow = IIf(IsEmpty(Range(strSpalte & "65536")), _
                   Range(strSpalte & "65536").End(xlUp).Row, 65536)
   Do
      If Range(strSpalte & loLastRow) = "0" Then Rows(loLastRow).Delete
      loLastRow = loLastRow - 1
   Loop Until loLastRow = 0
End Sub

Eine VBA-freie Lösung könnte so aussehen:

Schreib in eine leere Spalte in die erste Zeile eine 1 und in die zweite Zeile eine 2. Dann markierst du beide Zellen und ziehst sie bei gedrückter Strg-Taste mit der rechten Maustaste nach unten und sortierst dann den gesamten Bereich nach dieser Spalte. Zum guten Schluss kannst du nun alle Zeilen am Ende der Tabelle löschen in denen eine 2 steht.
​

 

Es gibt mehrere Lösungen, wichtig wäre halt zu wissen wie die Zellen die nicht benötigt werden genau aussehen. Sind sie zb leer oder haben irgendwelche wiederholenden Merkmale, wähle die erste Zeile (oder Überschrift falls vorhanden) aus, dann auf "Daten" -> "Filtern". Ein Klick auf das Filtersymbol in der ersten Zeile und jetzt alle häkchen entfernen und nur bei "leer" eins lassen (wenn die nicht benötigten Zeilen zb leer sind, man kann auch nach Symbolen filtern zb. wie bei dir nach "0" allerdings werden dann auch 0 Werte aus anderen Zeilen mitgefiltert - du kannst auch mehrere Spalten gleichzeitig filtern). Jetzt alle gefilterten Zellen markieren und löchen.

VBA Lösung:
Wenn in einer Spalte "x" mit sicherheit keine Leerstellen bis zum Schluss sind:
Tabelle1 ist hier der Name deines Excel-Datenblattes.

Dim Counter as integer
COUNTER=1
do while isempty(worksheets("Tabelle1").cells(COUNTER,x) = False
if COUNTER mod 2 = 0 then
worksheets("Tabelle1").cells(COUNTER,x).delete
end if

loop
Hier werden also alle geraden Zellen einträge entfernt, möchtest du die ungeraden Einträge entfernen => if COUNTER mod 2 <> 0 then

oder:
dim LETZTEZEILE as integer
LETZTEZEILE= 8000
for i = 1 to LETZTEZEILE
if COUNTER mod 2 = 0 then
worksheets("Tabelle1").cells(i,1).delete
end if
next i