Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.05.2024 20:08:47
Datum/Zeit in einer Zelle fixieren über Makros
17.05.2024 18:14:48
Aaaah! Tabelle erstellen mit Index
17.05.2024 17:37:33
letztes Zeichen in Zelle entfernen
17.05.2024 17:07:32
Problem bei Diagrammerstellung
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1952to1956
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
1952to1956
1952to1956
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Doppelten Wert suchen und zelle löschen

Doppelten Wert suchen und zelle löschen
28.11.2023 08:18:45
Tommy
Hallo

Ich habe in einer Tabelle im oberen Bereich Daten stehen (A18:L49), in der Spalte C18:C49 stehen Zahlen, nun soll, wenn diese Zahl ebenfalls im Bereich ab Zeile 51 steht, diese Zeile dort gelöscht wird, nicht nur den Inhalt, sondern am liebsten die ganze Zeile.

Weiß jemand, ob man das per Formel oder VBA umsetzten kann und wenn ja, wie?

Gruß
Tommy

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Doppelten Wert suchen und zelle löschen
28.11.2023 08:40:29
Tommy
Hat sich erledigt.

Habe es mit diesem Code aus dem Netz umgesetzt. 

Sub DoppelteZeilenEntfernen()



Dim LetzteZeile As Long

Dim Zeile As Long



LetzteZeile = Range("C" & Rows.Count).End(xlUp).Row

For Zeile = LetzteZeile To 1 Step -1

If WorksheetFunction.CountIf(Range("C18:C" & Zeile), Range("C" & Zeile)) > 1 Then

Rows(Zeile).EntireRow.Delete



End If

Next



End Sub

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige