Herbers Excel-Forum - das Archiv

Zellen vergleichen, wenn ungleich, Zellen löchen!

Bild

Betrifft: Zellen vergleichen, wenn ungleich, Zellen löchen!
von: Miri

Geschrieben am: 15.04.2005 12:25:51
Hallo!
Ich hab ein ziemlich großes Problem, das ich mal hier darstellen möchte:
Ich möchte in einer Riesen-Tabelle zwei Zellen vergleichen und wenn diese nicht übereinstimmen, bestimmte Zellen löchen, so dass quasi andere Zellen "nachrücken" bis die beiden erstgennanten Zellen übereinstimmen...das geht sicher nur mit Makros, aber wie?!
In Beispiel soll die Zelle D1 mit A1 verglichen werden, wenn gleich, D2 mit A2 usw.
Wenn sie aber ungleich sind, sollen die Spalten D,E,F so lange gelöscht werden, bis D wieder gleich A ist (hier also 691A, 692A, 693A raus!)
Ist das irgendwie möglich??
Vielen Dank
Michael
Bild

Betrifft: AW: Zellen vergleichen, wenn ungleich, Zellen löchen!
von: M
Geschrieben am: 15.04.2005 12:36:03
Beipieltabelle vergessen... :-)
https://www.herber.de/bbs/user/21194.xls
Bild

Betrifft: AW: Zellen vergleichen, wenn ungleich, Zellen löchen!
von: ransi

Geschrieben am: 15.04.2005 15:10:37
hallo michael
versuch mal:
Option Explicit

Public
Sub t()
Dim zelle As Range
For Each zelle In Range("a1:A100")
If zelle <> zelle.Offset(0, 3) Then
Do Until zelle = zelle.Offset(0, 3) Or zelle.Offset(0, 3) = ""
Range(zelle.Offset(0, 3), zelle.Offset(0, 6)).Delete shift:=xlShiftUp
Loop
End If
Next
End Sub

ransi
 Bild
Excel-Beispiele zum Thema "Zellen vergleichen, wenn ungleich, Zellen löchen!"
Makros in Abhängigkeit vom Zellennamen aufrufen Zellen auf Kommentar überprüfen
Spalten bedingt summieren und Zellen formatieren Text aus Textbox in Zellen aufteilen
Zellen vergleichen und markieren Zählen formatierter Zellen
Daten aus Textdatei gezielt in Zellen übernehmen Zellen verbinden und trennen
Zellen bei Minuswerten schraffieren Zeilen oberhalb der markierten Zellen einfügen