Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
18.04.2024 19:30:20
VBA - Tabelle mit Mannschaftsergebnissen sortieren
18.04.2024 18:04:29
Formel fehler Wert#
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1236to1240
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
1236to1240
1236to1240
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Spalteninhalte ohne doppelte in neue Spalte

Spalteninhalte ohne doppelte in neue Spalte
Jean-Pierre
Hallo zusammen,
ich möchte gerne aus Spalte B (beginnend B2) alle Inhalte exklusive der doppelten in Spalte C (beginnend C2 nach unten) aufgeführt haben.
Ich habe diesen Code hier gefunden https://www.herber.de/forum/archiv/1232to1236/t1232278.htm
von Josef Ehrensberger der gefällt mir soweit ganz gut aber ist halt nicht auf meine Situation angepasst.
Ich bin leider nicht so erfahren was VBA betrifft, hab da noch keine Lektüre gefunden die es Neulingen wie mir verständlich macht :)
Könnte mir da vielleicht jemand behilflich sein und den Code anpassen das eben alles aus B kopiert wird und ohne doppelte in C eingefügt wird?
Ich bedanke mich schon mal jetzt für's drüber schauen.
Gruß aus dem Frankenland
Jean-Pierre
AW: Spalteninhalte ohne doppelte in neue Spalte
24.11.2011 21:58:10
firmus
Hallo Jean-Pierre,
mit VBA=nein würde ich jetzt auch nicht damit anfangen. Übe erst mal mit Tutorials.
Zu Deinem Problem.
1. sortiere nach Spalte B
2. setze in Spalte C, beginnend mit C2 die formel: =wenn(b2=b1;c2=c1+1;1)
(die werte in spalte B werden für jeden Wert numeriert.)
3. Filtere die Spalte C auf den Wert "1".
(Damit bekommst Du pro Wert in Spalte B einen eindeutigen Wert
4. Kopiere diese gefilterten Werte
Falls Du in die gleiche Tabelle kopierst stimmt die logische Struktur nicht mehr.
(Was sollen die Spalten und Zeilen jeweils darstellen? - dann wären 2 logische Überlegungen in einem
Blatt - immer schlecht für xls-logische Verarbeitung.
Viel Erfolg,
Gruß aus Schwaben,
Firmus
Anzeige
AW: Spalteninhalte ohne doppelte in neue Spalte
24.11.2011 22:20:54
Jean-Pierre
@ Firmus
ich möchte das schon gerne mit VBA lösen und anhand von meinen Beispielen auch lernen bzw. verstehen aber ich danke Dir für Deine Rücksichtnahme - nicht selbstverständlich in unserer Welt :)
Werte ohne Redundanzen in neue Spalte kopieren
24.11.2011 22:04:02
NoNet
Hallo Jean-Pierre,
SeppsCode kopiert nicht, sondern löscht die redundanten Zellen, daher ist er für Dein anliegen wohl nicht ganz geeignet.
Hier mein Codevorschlag : Es werden alle Zellen der Spalte B überprüft. Wenn der Wert der aktuellen Zelle aus Spalte B noch nicht in Spalte C vorhanden ist (überprüft mit ZÄHLENWENN() - bzw. VBA-Anweisung : Application.CountIf()), dann wird der Wert in die nächste freie Zelle der Spalte C eingetragen.
Sub Werte_ohne_Redundanzen_Kopieren()
'Kopiert alle Werte der Spalte B EINMALIG nach Spalte C - ohne Redundanzen
'24.11.2011, NoNet - www.excelei.de
Dim lngZQ As Long, lngZZ As Long 'Zeilen-Variablen für Quelle/Ziel
Dim lngSQ As Long, lngSZ As Long 'Spalten-Variablen für Quelle/Ziel
lngSQ = 2 'Werte aus Quell-Spalte 2 = Spalte B
lngSZ = 3 'Werte nach Ziel-Spalte 3 = Spalte C
Columns(lngSZ).ClearContents 'Zielspalte zuvor löschen !
For lngZQ = 2 To Cells(Rows.Count, lngSQ).End(xlUp).Row
'Per ZÄHLENWENN() prüfen, ob Wert bereits in ZIEL-Spalte vorhanden ist :
If Application.CountIf(Columns(lngSZ), Cells(lngZQ, lngSQ)) = 0 Then
'Wenn der Wert noch NICHT in der ZIEL-Spalte vorhanden ist :
lngZZ = Cells(Rows.Count, lngSZ).End(xlUp).Row + 1
Cells(lngZZ, lngSZ) = Cells(lngZQ, lngSQ)
End If
Next
End Sub
Gruß, NoNet
Anzeige
Alternative ohne VBA: Spezialfilter ohne Duplikate
24.11.2011 22:07:17
NoNet
Hallo Jean-Pierre,
wenn Du das evtl. auch ohne VBA lösen möchtest, dann empfehle ich dir den "Spezialfilter ohne Duplikate" - bei "Excel gut" gehe ich davon aus, dass Du diesen kennst !?!?
Gruß, NoNet
AW: Alternative ohne VBA: Spezialfilter ohne Duplikate
24.11.2011 22:21:41
Jean-Pierre
@ NoNet
Danke, den Code werde ich ausprobieren, muss ich den in ein Modul einbinden?
Und den Sortieren Filter kenne ich natürlich möchte das nur gerne automatisch gemacht haben, da ich in einem Tab Daten reinkopiere und der rest von selbst abgearbeitet wird.
Dieses Excelsheet ist im grunde ein Tool was aus "unreinem" Text einen importfähigen "sauberen" Text macht.
Gruß Jean-Pierre
Anzeige
Sortieren-Filter ? - Was ist das denn ? ;-))
24.11.2011 22:33:15
NoNet
Hallo J.P.,
Und den Sortieren Filter kenne ich natürlich

Da kennst Du mehr als ich, denn den Sortieren-Filter habe ich nie erwähnt... ;-))
Zu Deiner Frage : Ja, der gesamte Code gehört in ein allgemeines Modul im VBA-Editor :
- Kopiere den gesamten Code von SUB... bis End Sub
- Wechsle mit Alt+F11 in den VBA-Editor
- wähle im Menü "Einfügen - Modul"
- füge den zuvor kopierten Code in das Modulfenster auf der rechten Seite ein
Den VBA-Editor kannst Du nun wieder schließen. Wenn Du die Mappe speicherst (XLS bis Excel 2003 oder XLSM ab Excel 2007), wird der VBA-Code mitgespeichert.
Den Code kannst Du im VBA-Editor per F5 ausführen oder aus dem Tabellenblatt per Alt+F8 (bzw. Menü "Extras - Makros - Makro").
Gruß, NoNet
Anzeige
AW: Sortieren-Filter ? - Was ist das denn ? ;-))
24.11.2011 22:45:13
Jean-Pierre
Hehe...Filter dann Spezialfilter war von mir gemeint :)
Danke - Gestestet und funktioniert hervorragend!
Vielen Dank :)
Gruß Jean-Pierre
AW: Sortieren-Filter ? - Was ist das denn ? ;-))
24.11.2011 23:17:46
Jean-Pierre
Habe noch eine Frage NoNet,
wie/wo füge ich diesen Code ein das ich in einem anderen Tabellenblatt diesen mittels Button ausführen kann?
Habe bis jetzt eine Befehlsschaltfläche in Tab 1 erstellt (Die Sortierung Dank Deinem Code findet in einem anderen Tab statt.
Unter Code habe ich diesen eingefügt, jedoch erfolgt bei Klick auf Button das Einfügen exkl. doppelter nicht.
Ich vermute, es liegt daran das in dem Code der eindeutige Verweis zu dem Tab fehlt oder?
Gruß Jean-Pierre
Anzeige
Code in anderem Tabellenblatt ausführen
25.11.2011 00:38:17
NoNet
Hallo J.P.,
Du hast mit Deiner Vermutung Recht, dass der "Verweis" zum anderen Tabellenblatt angegeben werden muss, falls das Makro nicht im aktuellen Blatt ausgeführt werden soll.
Das macht man in VBA mit dem Konstrukt : 
 'Tabelle2 ist das Blatt, auf dem die Aktionen durchgeführt werden sollen
With Sheets("Tabelle2")
'...hier der Code
End With

Die Zell-/Bereichsangaben, die sich auf dieses Blatt beziehen müssen dann zur Kennzeichnung mit einem vorangestellten Punkt . beginnen :
Also z.B. .Cells(...,....) anstatt nur Cells(...,....)
Genauer gesagt ist das eine Kurzschreibweise für die exakte Objektbezeichnung Sheets("Tabelle2").Cells(...,....)
Schau dir doch mal das angehängte Beispiel an : Button in "Tabelle1", Daten in "Tabelle2" :
https://www.herber.de/bbs/user/77661.xls
Gruß und gute Nacht, NoNet
Anzeige

87 Forumthreads zu ähnlichen Themen

Variable Gültigkeitsliste ohne doppelte Werte
Susi

Hallo liebe Excel-Freunde,
ich möchte gerne aus einer Datentabelle den Inhalt einer Spalte für eine Auswertung über eine Variable Gültigkeitsliste ziehen.
Zur Verdeutlichung hier ein einfaches Spiel-Beispiel:
Spalte A Spalte B
Äpfel 10
Äpfel 20
Birnen...
28.11.2008 10:08:27
Thread-ID: 1028603
5 Beiträge
Anzeige
Gültigkeite - Liste ohne doppelte Werte
susi

Hallo,
ich habe eine kleines, eher optisch unschönes Problem. In einer Tabelle wird von den Nutzern auf dem ersten TB eine Liste mit Werte al la ABC1000; ABC1010 ... eingetragen. Nun können sich aber diese Werte auch wiederholen. Auf einem zweiten TB habe ich eine Spalte die sich über DATEN...
13.08.2009 07:57:25
Thread-ID: 1095462
2 Beiträge
(Spezial-) Formel für dyn. Liste ohne Duplikate
Reinhard

Hallo Wissende,
Auf http://excelformeln.de/formeln.html?welcher=194 steht zwar der Satz:
"Es gibt Array-Formeln ohne Hilfsspalte für überschaubare Bereiche."
Der nützt mir aber nix, bräuchte ich dies Arrayformeln, wobei die vielleicht nicht ausreichen weil mein Anliegen ist speziell...
14.10.2009 23:08:51
Thread-ID: 1109696
6 Beiträge
Anzeige
Liste ohne doppelte Texte
Frank

Hallo zusammen,
ich habe hier ein Beispiel, daß aus einer Liste mit Werten (Spalte A) die doppelten Einträge entfernt. Per Formel in Spalte M.
Funktioniert das auch, wenn in Spalte A statt Werten Texte enthalten sind?
Hier die Datei: https://www.herber.de/bbs/user/68821.xls
Vie...
30.03.2010 15:08:58
Thread-ID: 1149381
6 Beiträge
Liste ohne Duplikate in andere Tabelle
Lutz

Hallo Excel-Profis,
ich habe ein Makro ergoogelt und angepasst.
Sub Test() Dim meTab1 As Worksheet, meTab2 As Worksheet Dim FilterBereich As Range, loLetze As Long Set meTab1 = Sheets("Mitarbeiter") 'Tabellenname Quelle Set meTab2 = Sheets("VerfügbarMA") 'Tabellenname Ziel With Applica...
30.04.2010 10:50:56
Thread-ID: 1154663
5 Beiträge
Spalte mit doppelten Werten ohne diese Doppelten
Nora

Hi,
Ich habe eine Spalte mit vielen Strings. Manche sind doppelt oder dreifach oder ....
Ich brauche in der Spalte daneben eine Liste von all diesen Werten, wobei jeder Wert nur einmal auftreten darf.Nora
07.05.2002 10:39:17
Thread-ID: 119107
3 Beiträge
Liste ohne doppelte Werte
ing.grohn

Hallo Forum,
mit Daten Gültigkeit kann ich verhindern, daß doppelte Eintragungen vorkommen:
Einstellungen Benutzerdefiniert und dann z.B =UND(ISTZAHL(H1);ZÄHLENWENN($H$1:$H$30;H1)
ich habe hierzu ein Makro aufgezeichnet: With Selection.Validation .Delete .Add Type:=xlValidateCustom...
18.10.2010 19:34:20
Thread-ID: 1182959
4 Beiträge
Liste an eine andere Stelle ohne Duplikate kopiere
Matthias

Hallo Profis,
ich komme bei einem Problem einfach nicht weiter.
Ich sollte aus 2 Tabellenblättern jeweils die Daten aus dem Bereich A17:A86 kopieren und ohne Duplikate in ein drittes Tabellenblatt (A17) einfügen.
Ich habe das Ganze bereits mit der Makroaufzeichnung probiert. Allerdi...
25.10.2010 11:51:12
Thread-ID: 1183740
2 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
4
1
1
5
5
5
4
2
3
1
4
2
2
5
2
10
2
2
7
7
3
3
2
1
1