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

Beiträge aus den Excel-Beispielen zum Thema "Zellen vergleichen, wenn ungleich, Zellen löchen!"