Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.04.2024 11:30:20
Pivot Balken und Kreisdiagram Darstellung /Beschriftung
28.04.2024 11:05:44
datum automatisch ändern und einfügen
28.04.2024 10:11:19
Nur aktuelle und direkte Unterordnen durchsuchen
28.04.2024 10:01:02
Rang aus zwei Datumsspalten ermitteln
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1772to1776
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
1772to1776
1772to1776
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Spalte zu Zeile (doppelte Werte löschen)

Spalte zu Zeile (doppelte Werte löschen)
20.07.2020 14:17:41
Daniel
Hallo zusammen,
in Blatt 1 / Spalte A meiner Tabelle stehen Texte aus 3 Buchstaben:
Blatt 1 / Spalte A:
ABC
ABC
DEF
ABC
DEF
DEF
In Blatt 2 möchte ich automatisiert in Zelle A1 "ABC" und in Zelle B1 "DEF" aufführen lassen. Mehrfacheinträge aus Blatt 1 Spalte A sollen nur ein Mal angegeben werden.
Welche Möglichkeiten gibt es dies zu automatisieren?
Viele Grüße
Daniel

18
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Spalte zu Zeile (doppelte Werte löschen)
20.07.2020 15:30:32
Günther
Moin Daniel,
da du ja offensichtlich zumindest etwas VBA kannst...
Spalte A kopieren und woanders einfügen
Duplikate löschen
Bereich kopieren und anschließend an Wunschposition transponiert einfügen
Hilfstabelle löschen
und das alles zeichnet der Makrorekorder recht gut auf.
 
Gruß
Günther  |  mein Excel-Blog
AW: Spalte zu Zeile (doppelte Werte löschen)
21.07.2020 15:19:14
Daniel
Danke für deine Hilfe. Deine Lösung hat mir am Besten gefallen und ich habe es ausprobiert, allerdings habe ich die Duplikate nicht händisch gelöscht sondern über eine Pivot Tabelle ausgewertet. An der Stelle hängt sich das Makro leider auf.
Ich nutze nun eine Pivot Tabelle, auch wenn die Funktion nicht sonderlich mag.
Anzeige
AW: Spalte zu Zeile (doppelte Werte löschen)
20.07.2020 15:33:48
Hris
Set Filtern= ActiveWorksheet.Range("A:A").Find(Value = "ABC")
Range(Filtern).copy
Worksheets("Blatt2").Cells(Rows.Count, 1).End(XlUp).offset (1, 0). PasteSpecial Paste:=xlPasteValuesAndNumberFormats
Ungetestet Gruß
Ich will dir ja nicht...
20.07.2020 17:42:46
Werner
Hallo,
...zu nahe treten, aber bei dem Code war der Hinweis "Ungetestet" überflüssig.
Gruß Werner
AW: Spalte zu Zeile (doppelte Werte löschen)
21.07.2020 15:19:46
Daniel
Danke für deine Hilfe. Ich habe es damit leider nicht hinbekommen.
Ich nutze nun eine Pivot Tabelle, auch wenn die Funktion nicht sonderlich mag.
AW: Spalte zu Zeile (doppelte Werte löschen)
21.07.2020 19:07:43
Günther
Oh je,
wenn du schon PivotTable nicht sonderlich magst, dann würdest du du Power Query wahrscheinlich entsetzlich finden (obwohl es damit aus meiner Sicht deutlich einfacher geht). :-))
 
Gruß
Günther  |  mein Excel-Blog
Anzeige
AW: Spalte zu Zeile (doppelte Werte löschen)
22.07.2020 09:24:23
Daniel
Moin Günther,
ich probiere lieber andere Wege als eine PivotTable zu nutzen, weil ich dadurch erfahrungsgemäß mehr dazulerne. Deswegen mag ich die PivotTable nicht ;-)
Viele Grüße
Daniel
AW: dafür reicht auch nur eine Formel ...
20.07.2020 20:47:11
neopa
Hallo Daniel,
... wenn Du nur Excel 2016 hast in Tabelle2!A2:
=WENNFEHLER(INDEX(Tabelle1!A:A;AGGREGAT(15;6;ZEILE(A$1:A$99)/(Tabelle1!A$1:A$99"")/(ZÄHLENWENN(A$1:A1;Tabelle1!A$1:A$99)=0);1));"")

und diese weit genug nach unten kopieren.
Gruß Werner
.. , - ...
AW: dafür reicht auch nur eine Formel ...
21.07.2020 15:17:04
Daniel
Danke für deine Hilfe. Ich habe es damit leider nicht hinbekommen.
Ich nutze nun eine Pivot Tabelle, auch wenn die Funktion nicht sonderlich mag.
Anzeige
AW: dafür reicht auch nur eine Formel ...
21.07.2020 15:25:02
Werner
Hallo,
Public Sub bbb()
Application.ScreenUpdating = False
With Worksheets("Tabelle1")
.Columns("A").Copy .Columns("Z")
.Columns("Z").RemoveDuplicates Columns:=1, Header:=xlNo
loLetzte = .Cells(.Rows.Count, "Z").End(xlUp).Row
.Range("Z1:Z" & loLetzte).Copy
Worksheets("Tabelle2").Range("A1").PasteSpecial _
Paste:=xlPasteValuesAndNumberFormats, Transpose:=True
.Columns("Z").ClearContents
End With
Application.CutCopyMode = False
End Sub
Gruß Werner
AW: dafür reicht auch nur eine Formel ...
21.07.2020 15:51:52
Daniel
Hallo Werner,
vielen Dank, das funktioniert.
Ich habe in Spalte A noch 5 Zeilen "Überschriften" und habe das Makro angepasst, aber es läuft nicht.
Public Sub bbb()
Application.ScreenUpdating = False
With Worksheets("Tabelle1")
.Range("A6:A").Copy .Range("Z6:Z")
.Range("Z6:Z").RemoveDuplicates Columns:=1, Header:=xlNo
loLetzte = .Cells(.Rows.Count, "Z").End(xlUp).Row
.Range("Z6:Z" & loLetzte).Copy
Worksheets("Tabelle2").Range("I4").PasteSpecial _
Paste:=xlPasteValuesAndNumberFormats, Transpose:=True
.Columns("Z").ClearContents
End With
Application.CutCopyMode = False
End Sub
Wo sind die Fehler?
Viele Grüße
Daniel
Anzeige
AW: dafür reicht auch nur eine Formel ...
21.07.2020 16:12:05
Werner
Hallo,
Range("A6:A") und Range("Z6:Z") sind keine gültigen Zellbezüge 
Public Sub bbb()
Application.ScreenUpdating = False
With Worksheets("Tabelle1")
.Range("A6:A" & .Cells(.Rows.Count, "A").End(xlUp).Row).Copy .Range("Z1")
.Columns("Z").RemoveDuplicates Columns:=1, Header:=xlNo
loLetzte = .Cells(.Rows.Count, "Z").End(xlUp).Row
.Range("Z6:Z" & loLetzte).Copy
Worksheets("Tabelle2").Range("I4").PasteSpecial _
Paste:=xlPasteValuesAndNumberFormats, Transpose:=True
.Columns("Z").ClearContents
End With
Application.CutCopyMode = False
End Sub
Gruß Werner
Anzeige
AW: dafür reicht auch nur eine Formel ...
21.07.2020 16:25:14
Daniel
Danke. Das Makro läuft jetzt durch, gibt aber nur 6 leere Zellen aus.
AW: dafür reicht auch nur eine Formel ...
21.07.2020 16:29:14
Werner
Hallo,
dann lad mal die Mappe hoch, in der das so ist.
Gruß Werner
AW: dafür reicht auch nur eine Formel ...
22.07.2020 09:09:41
Daniel
Moin Werner,
die Mappe kann ich aus Datenschutzgründen leider nicht hochladen.
Wenn ich sie abspecke um sie hochladen zu können, funktioniert das Makro. Ich bin auf der Suche woran das liegt.
Viele Grüße
Daniel
AW: die vorgeschlagene Formel war ...
21.07.2020 17:49:02
neopa
Hallo Daniel,
... für die Ergebnisauflistung in der Spalte A der Tabelle 2 definiert. Da hatte ich Deine Anfrage nicht richtig gelesen, sorry.
Hier nun die Formel in Tabelle2!A1, welche Du anschließend nach rechts ziehend kopieren kannst.
=WENNFEHLER(WENN(SPALTE()=1;Tabelle1!A1;INDEX(Tabelle1!$A:$A;AGGREGAT(15;6;ZEILE($A1:$A99)/(Tabelle1!$A1:$A99"")/(ZÄHLENWENN($A1:INDEX(1:1;SPALTE()-1);Tabelle1!$A1:$A99)=0);1)));"")
Gruß Werner
.. , - ...
Anzeige
AW: die vorgeschlagene Formel war ...
22.07.2020 09:25:52
Daniel
Moin Werner,
danke für das Update. Es wird zwar nur eine 0 ausgegeben, aber ich versuche mal selbst durch die Formel durchzusteigen und sie anzupassen, sobald ich Zeit habe. AGGREGAT ist was Neues für mich.
Viele Grüße
Daniel
AW: dann ...
22.07.2020 12:20:14
neopa
Hallo Daniel,
... dürfte Dir diesmal ein Fehler unterlaufen sein, wie Du sehr leicht in einer neuen Arbeitsmappe in der Du in Tabelle1!A1:A## ein paar Datenwerte einschreibst und in Tabelle2!A1 die angegebenen Formel einkopierst und nach rechts ziehend kopierst.
Gruß Werner
.. , - ...

313 Forumthreads zu ähnlichen Themen

Doppelte Zahlwerte löschen
Gregor

Hallo zusammen
In Spalte E habe ich folgende möglichze Zahlen:
1114539.4
1114539
1114539.4-2
1114539.1
1114539.3
1114539.3-1
Nun möchte ich die Zeile mit der Zahl 1114539 löschen. Das heisst, bei mehrfach gleichen Zahlen vor dem Punkt soll immer die Zahl ohne Pun...
17.06.2009 10:22:49
Thread-ID: 1082148
3 Beiträge
Anzeige
Doppelte Zelleneinträge dann ZEILE löschen
Wolle

Hallo alle zusammen,
habe noch ein Problem:
Wenn Zelleneinträge doppelt vorhanden sind, soll der doppelte eintrag gelöscht werden, wenn diese direkt untereinander stehen.
Bereich: B:B
Beispiel:
B1 = 100
B2 = 500 ..... bleibt stehen
B3 = 500 ..... ZEILE löschen
08.07.2009 12:32:46
Thread-ID: 1087167
5 Beiträge
Doppelte Einträge filtern
Rüdiger

Hallo zusammen!
Ich habe einen Datenbereich
Hier ein verkürztes Beispiel (A1-D100): Aufgebaut mit A1=Name, B1= Vorname, C1 = Straße, D1 = Wohnort)
Nun gibt es doppelte Datensätze. Ich möchte nun, dass ein neues Registerblatt erstellt wird in der Arbeitsmappe und dort die „gefiltert...
12.11.2009 13:12:54
Thread-ID: 1116509
5 Beiträge
Anzeige
VBA Schleife - elimieren von doppelten Werten
doppelten

Hallo Forum,
ich möchte doppelte Werte (siehe Anhang) aus Spalte A inhaltlich löschen (sind vorher sortiert).
Leider funktioniert meine Schleife nicht.
Kann mir jemand helfen?
Vielen Dank im voraus.
https://www.herber.de/bbs/user/68477.xls
Grüße
Karen
09.03.2010 11:06:49
Thread-ID: 1144532
9 Beiträge
Doppelte Einträge summieren + löschen
ben

Hallo zusammen,
ich habe eine Excel Liste mit versch. Einträgen, bei denen in der Spalte C (ID Nummer) einige Einträge doppelt sind. Diese doppelten Einträge werden per VBA Code gelöscht.
Jetzt sollen aber die Mengen in Spalte E der gelöschten Einträge aufsummiert werden.
Bsp.: alle...
12.04.2010 21:02:46
Thread-ID: 1151310
14 Beiträge
Doppelte Zellen löschen
Claudia

Hallo zusammen,
ich habe ein großes Problem. Genauer gesagt habe ich eine Tabelle, in der sich die Überschriften in Zeile 1 befinden. In Spalte A befinden sich ab Zeile 2 die Kundennummern.
Ab Spalte B bis AZ befinden sich Artikel - darunter auch viele, die mehrfach vorkommen. Diese dop...
15.06.2010 19:20:30
Thread-ID: 1162030
10 Beiträge
Makro um doppelte Einträge zu suchen und zu filtern
Excelneuling2

Hallo Zusammen,
ich bin ein Excelneuling und habe dementsprechend noch nie ein Makro programmiert und hoffe auf Hilfe.
Mein Problem:
Ich habe eine Datenbank (siehe Beispieltabelle) in der x Zeilen und y Spalten vorhanden sind. Ich möchte ein Makro schreiben, welches doppelte Zeilen...
31.07.2010 16:44:49
Thread-ID: 1169831
10 Beiträge
Liste von allen doppelten Einträgen befreien
allen

Hallo,
ichh habe hier ein wahrscheinlich sehr simples Problem. Da ich aber leider keine Makros programmieren kann, für mich ein nicht lösbares.
Ich habe hier eine Excel-Liste, die aus zwei Tabellen mit leicht unterschiedlichen Spalten auf je einem eigenen Arbeitsblatt besteht.
Auf d...
28.12.2010 17:07:48
Thread-ID: 1193075
4 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
2
1
4
4
3
8
13
9
9
3
12
2
5
13
2
2
2
4
1
7
2
4
10
4
1