Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 21:51:33
Idee für Grafik
26.04.2024 21:29:07
PQ zufällige Reihenfolge
26.04.2024 17:18:47
Große Datenmenge in komplexes Diagramm verpacken
26.04.2024 16:22:47
Aktualisierung Verknüpfung bei geschlossener Quelldatei
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
296to300
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
296to300
296to300
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zeilen löschen, wenn

Zeilen löschen, wenn
21.08.2003 10:34:56
Rüdiger
Hallo,

wer kann mir diesmal helfen?
Ich benötige folgendes Makro:

Lösche Zeile (oder lösche Inhalt der Zellen aus dieser Zeile), wenn der Inhalt der gleiche, von irgendeiner darüber stehenden Zeile ist.

Vielen Dank im Voraus und viele Grüße

Rüdiger

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zeilen löschen, wenn
21.08.2003 10:44:06
UDF
Hallo Rüdiger,

folgendes Makro sollte funktionieren.

Gruss
Markus


AW: Zeilen löschen, wenn
21.08.2003 11:09:16
Rüdiger
Schade, hat doch nicht so ganz geklappt.

Lag wohl an meiner knappen Beschreibung:

Das Makro soll mit einem Mal die komplette Liste durchsuchen. Es sollen alle Zeilen (bis auf eine) gelöscht werden, die den gleichen Inhalt haben. Ich kann auch damit leben, wenn nur die Spalte A auf gleichen Inhalt untersucht wird. Das Ergebnis: Werte sollten in Spalte a nur noch einmal vorkommen.

wird in meinem Upload vielleicht was deutlicher:

https://www.herber.de/bbs/user/656.xls


Anzeige
AW: Zeilen löschen, wenn
21.08.2003 12:05:56
UDF
Hallo Rüdiger,

da Du in Deinem 1. Beispiel von löschen oder lösche Inhalt gesprochen hast, habe ich das Makro auf löschen konzipiert und Dir die Anweisung .ClearContents als Alternative im Kommentar hinterlegt.

Also statt: Rows(lngRow).Delete nur Rows(lngRow).ClearContents und es scheint genau das zu sein, was Du in Deinem Beispiel haben willst.

Gruss
Markus


AW: Zeilen löschen, wenn
21.08.2003 10:51:32
Rüdiger
Danke Markus. Das sollte funktionieren.


AW: Zeilen löschen, wenn
21.08.2003 10:53:22
Ingo
In diesem Beispiel wird der Zellinhalt gelöscht
For Each rng In Range(ActiveCell.Offset(-1, 0), ActiveCell.End(xlUp))
If rng = ActiveCell Then
ActiveCell = ""
Exit For
End If
Next rng
Hier die ganze Zeile:
For Each rng In Range(ActiveCell.Offset(-1, 0), ActiveCell.End(xlUp))
If rng = ActiveCell Then
Rows(ActiveCell.Row).Delete
Exit For
End If
Next rng


Anzeige
AW: Zeilen löschen, wenn
21.08.2003 10:57:06
Rüdiger
Vielen Dank


Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige