Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.10.2025 18:38:17
Zusammenfassung nach Personalnummer
16.10.2025 17:40:39
Rabattstafel
16.10.2025 17:25:38
bedingte Formatierung
16.10.2025 16:39:53
Ergebnisse nach rechts ausgeben
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
528to532
528to532
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

doppelte Spalten löschen

Forumthread: doppelte Spalten löschen

doppelte Spalten löschen
09.12.2004 13:54:43
Georg
Hallo,
ich habe eine sehr umfangreiche Tabelle, in der alle Spalten belegt sind.
Ich möchte, wenn in der ersten Zeile eine Bezeichnung zweimal oder öfter vorkommt, nur die Spalte mit dem ersten Eintrag bestehen lassen.
Beispiel:
A1 = Müller
B1 = Müller
C1 = Müller
D1 = Becker
E1 = Becker
F1 = Schneider
G1 = Schneider
H1 = Schneider
I1 = Schneider
usw.
Es soll immer die komplette Spalte gelöscht werden, so dass als Ergebnis dann
A1 = Müller
B1 = Becker
C1 = Schneider
usw.
In der Recherche bin ich leider nicht fündig geworden.
Vielen Dank für jede Hilfe.
Grüße
Georg
Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: doppelte Spalten löschen
Georg
Hallo Peter,
vielen Dank. Über Filter funktionierts nicht.
Bei dem Link werden immer nur Zellen gelöscht.
Ich möchte aber ganze Spalten löschen, wenn in der ersten Zeile Dubletten auftauchen.
Es muss verglichen werden A1 mit B1 und C1 usw. und wenn doppelt, alle doppelten Spalten löschen.
Grüße
Georg
Anzeige
AW: doppelte Spalten löschen
UweD
Hallo
das geht so:

Sub Spalte_raus()
CC = ActiveSheet.Cells.SpecialCells(xlCellTypeLastCell).Column 'Letzte Spalte
For i = CC To 2 Step -1
If Cells(1, i).Value = Cells(1, i - 1).Value Then
Columns(i).Delete Shift:=xlToLeft
End If
Next
End Sub

Gruß UweD
Anzeige
AW: doppelte Spalten löschen
Georg
Hallo UweD,
das wars.
Vielen Dank für die Hilfe, funktioniert.
Grüße
Georg
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige