Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 23:47:55
Datum ausweisen, wenn definierte Summe erreicht ist
25.04.2024 21:40:53
Excel Datenquelle aus dem Web mit Anmeldung?
25.04.2024 21:21:16
Zellkommentar in UserForm anzeigen und bearbeiten
25.04.2024 21:13:13
Kalenderwochen addieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1520to1524
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
1520to1524
1520to1524
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

3 Spalten ohne Duplikate in neue Spalte per VBA

3 Spalten ohne Duplikate in neue Spalte per VBA
21.10.2016 10:22:02
Nilo
Hallo alle zusammen,
ich mal wieder mit ner Denkblockade!
Ich habe 3 Tabellen (A,B,C) mit Daten (Zahlen, Text, ZahlenmitText und Mischwerte) in Spalte A
Diese Daten möchte ich ohne Duplikate in Spalte A der Tabelle D übernehmen per VBA.
Eine Tabelle geht ja noch aber alle zusammen in einem Rutsch, da stehe ich gerade aufm Schlauch.
Danke schon einmal für Euren Support.
Gruß
Nilo

9
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: 3 Spalten ohne Duplikate in neue Spalte per VBA
21.10.2016 11:11:29
Michael
Hallo Nilo!
Unter der Annahme, dass die Tabellenblätter A bis D auch die Reihenfolge 1 bis 4 in der Mappe haben:
Sub a()
Dim Wb As Workbook: Set Wb = ThisWorkbook
Dim WsQ As Worksheet, WsZ As Worksheet
Dim Daten As Range, Ziel As Range
Dim i As Long
With Wb
Set WsZ = .Worksheets(4)
For i = 1 To 3
With .Worksheets(i)
Set Daten = .Range(.Cells(1, 1), .Cells(.Rows.Count, 1).End(xlUp))
Set Ziel = WsZ.Cells(WsZ.Rows.Count, 1).End(xlUp).Offset(1, 0)
Daten.AdvancedFilter Action:=xlFilterCopy, _
copytorange:=Ziel, unique:=True
End With
Next i
End With
End Sub
Passt?
LG
Michael
Anzeige
AW: 3 Spalten ohne Duplikate in neue Spalte per VBA
21.10.2016 11:20:54
Nilo
Moin Michael,
danke schonmal! Die Tabellen sind:
Quelltabellen:
Tabelle5(A)
Tabelle7(B)
Tabelle12(C)
Zieltabelle:
Tabelle3(D)
Gruß
AW: 3 Spalten ohne Duplikate in neue Spalte per VBA
21.10.2016 11:32:36
Michael
Hallo!
Warum nicht gleich mit richtigen Infos?
Sub a()
Dim Wb As Workbook: Set Wb = ThisWorkbook
Dim WsQ As Worksheet, WsZ As Worksheet
Dim Daten As Range, Ziel As Range
With Wb
Set WsZ = .Worksheets("Tabelle3") 'Ziel-Tabelle
With .Worksheets("Tabelle5") 'Quell-Tabelle A usw...
Set Daten = .Range(.Cells(1, 1), .Cells(.Rows.Count, 1).End(xlUp))
Set Ziel = WsZ.Cells(WsZ.Rows.Count, 1).End(xlUp).Offset(1, 0)
Daten.AdvancedFilter Action:=xlFilterCopy, _
copytorange:=Ziel, unique:=True
End With
With .Worksheets("Tabelle7")
Set Daten = .Range(.Cells(1, 1), .Cells(.Rows.Count, 1).End(xlUp))
Set Ziel = WsZ.Cells(WsZ.Rows.Count, 1).End(xlUp).Offset(1, 0)
Daten.AdvancedFilter Action:=xlFilterCopy, _
copytorange:=Ziel, unique:=True
End With
With .Worksheets("Tabelle12")
Set Daten = .Range(.Cells(1, 1), .Cells(.Rows.Count, 1).End(xlUp))
Set Ziel = WsZ.Cells(WsZ.Rows.Count, 1).End(xlUp).Offset(1, 0)
Daten.AdvancedFilter Action:=xlFilterCopy, _
copytorange:=Ziel, unique:=True
End With
End With
End Sub
LG
Michael
Anzeige
AW: 3 Spalten ohne Duplikate in neue Spalte per VBA
21.10.2016 11:41:17
Nilo
Hi,
Danke Dir !
Nun ja meine Tabellen heißen A, B ,C, D wie ich es geschrieben habe nicht Tabelle1, Tabelle2, Tabelle3!
Ich dachte wohl das wäre eindeutig!?
;)
Gruß
Dann tausch die Blattnamen aus...
21.10.2016 12:29:21
Michael
Nilo!
So kompliziert zu verstehen ist mein Code jetzt nicht, dass Du das nicht ausprobieren könntest!
Also:
Sub a()
Dim Wb As Workbook: Set Wb = ThisWorkbook
Dim WsQ As Worksheet, WsZ As Worksheet
Dim Daten As Range, Ziel As Range
With Wb
Set WsZ = .Worksheets("A") 'Ziel-Tabelle
With .Worksheets("A") 'Quell-Tabelle "A"
Set Daten = .Range(.Cells(1, 1), .Cells(.Rows.Count, 1).End(xlUp))
Set Ziel = WsZ.Cells(WsZ.Rows.Count, 1).End(xlUp).Offset(1, 0)
Daten.AdvancedFilter Action:=xlFilterCopy, _
copytorange:=Ziel, unique:=True
End With
With .Worksheets("B") 'Quell-Tabelle "B"
Set Daten = .Range(.Cells(1, 1), .Cells(.Rows.Count, 1).End(xlUp))
Set Ziel = WsZ.Cells(WsZ.Rows.Count, 1).End(xlUp).Offset(1, 0)
Daten.AdvancedFilter Action:=xlFilterCopy, _
copytorange:=Ziel, unique:=True
End With
With .Worksheets("C") 'Quell-Tabelle "C"
Set Daten = .Range(.Cells(1, 1), .Cells(.Rows.Count, 1).End(xlUp))
Set Ziel = WsZ.Cells(WsZ.Rows.Count, 1).End(xlUp).Offset(1, 0)
Daten.AdvancedFilter Action:=xlFilterCopy, _
copytorange:=Ziel, unique:=True
End With
End With
End Sub
LG
Michael
Anzeige
Oder auch als Schleife mit Blattnamen...
21.10.2016 12:38:32
Michael
Nilo,
Sub a()
Dim Wb As Workbook: Set Wb = ThisWorkbook
Dim WsQ As Worksheet, WsZ As Worksheet
Dim arrWbQ, i As Long, Daten As Range, Ziel As Range
arrWbQ = Array("A", "B", "C") 'Gesammelte Quell-Tabellen
With Wb
Set WsZ = .Worksheets("D") 'Ziel-Tabelle
For i = LBound(arrWbQ) To UBound(arrWbQ)
With .Worksheets(arrWbQ(i))
Set Daten = .Range(.Cells(1, 1), .Cells(.Rows.Count, 1).End(xlUp))
Set Ziel = WsZ.Cells(WsZ.Rows.Count, 1).End(xlUp).Offset(1, 0)
Daten.AdvancedFilter Action:=xlFilterCopy, _
copytorange:=Ziel, unique:=True
End With
Next i
End With
End Sub
Passt? Oder brauchst Du noch was?
LG
Michael
Anzeige
zuletzt filtern?
21.10.2016 14:06:54
KlausF
Hallo Michael,
wäre es nicht besser erst alle Daten auf einem Blatt zu sammeln
und danach den Filter zu setzen? Könnte ja sein, dass es gleiche
Daten auf unterschiedlichen Blättern gibt. Nur mal so als Idee.
Gruß
Klaus
Ja, Klaus, da hast Du sicher recht...
21.10.2016 14:30:06
Michael
...leider aber hat sich Nilo ja mit Informationen zu seinen Gegebenheiten recht "ressourceneffizient" verhalten ;-).
Aber ist sicher eine gute und umsetzenswerte Idee - für mich heute allerdings nicht mehr, also wenn Du Zeit und Lust hast, the stage is yours; ich bin dann mal im Wochenende.
LG und schönes Wochenende!
Michael
AW: sorry für dieses Durcheinander und Danke!
26.10.2016 09:53:34
Nilo
...
nächstes mal etwas mehr Info meinerseits!
Anzeige

312 Forumthreads zu ähnlichen Themen

Frage - Spalten einfügen & Spalten untereinander z
André

Hallo zusammen!
Ich habe da als blutiger Anfänger in VBA zwei Fragen:
1.) Wie kann ich in meiner Tabelle in jeder zweiten Spalte 4 leere Spalten einfügen lassen?
2.) Dann möchte ich unter den Inhalt der ersten fünf Spalten (A-E) den Inhalt der zweiten 5 Spalten (F-J) usw. In der grö...
08.08.2008 16:00:00
Thread-ID: 1000340
3 Beiträge
Anzeige
Zeilenmerkmale in Spalten umwandeln
MG_Learning

Hallo zusammen!
Ich habe keine Ahnung, wie ich aus folgender Tabellenstruktur: Beispiel:
A B C
London 20 Kinos
London 50 Gaststätten
London 10 Einkaufscentren
Paris 18...
17.08.2008 18:31:50
Thread-ID: 1002449
4 Beiträge
Jede 2te Zeile in eine Spalte kopieren
Eddie

Guten Morgen @ all
Ich habe mal wieder ein kleines problem :-)
Ich würde gerne Daten, die alle in einer Spalte sind auteilen.... dazu soll entweder der 1,3,5,7.... oder 2,4,6,8 ... Wert immer in die danebenliegende Spalte kopiert werden
IST:
Hallo
Hello
Gut
Good
...
20.08.2008 07:52:00
Thread-ID: 1003065
6 Beiträge
Anzeige
Letzte gefüllte Zeile in einem Feld anzeigen
Hendrik

Hallo zusammen,
bei einer Exceltabelle, die aus ca. 40 freien Zeilen besteht, die sich über die Zeit füllen, soll in Zeile 41 immer die Zahl der letzten gefüllten Zeile angezeigt werden.
Ist das möglich?
Danke im voraus!
Hendrik
28.08.2008 18:36:42
Thread-ID: 1005564
4 Beiträge
nur eine der Spalten darf gefüllt sein
Simon

Hallo,
ich habe glaube ich eine einfache Frage, komme aber nicht drauf Sie selbst zu lösen:
ich habe 4 Spalten: ja; nein; mehr Menge; weniger Menge
dahinter möchte ich eine 5te Spalte Kontrolle setzen. In dieser soll eine Fehlermeldung erscheinen falls mehr als eine Spalte ausgefüll...
01.09.2008 16:15:00
Thread-ID: 1006502
8 Beiträge
Spalten in Zeilen anhängen
Jörg

Hallo zusammen,
in einer Tabelle mit ~1000 Artikeln in Spalte A stehen jeweils in den Spalten B-M die 12 zum Artikel gehörenden Monatswerte des Verbrauchs.
Ich brauche diese Daten jetzt so angeordnet, dass weiterhin alle Artikel in Spalte A stehen, jedoch die einzelnen Monatswerte unter...
01.09.2008 18:03:42
Thread-ID: 1006570
11 Beiträge
Zeilenhöhe und Spaltenbreite in cm - Makro anlegen
Sandra

Wie lege ich ein Makro an - für oben genannte Funktion?
DANKE!!!
02.09.2008 13:53:00
Thread-ID: 1006781
9 Beiträge
Häufigkeit einer Uhrzeit aus einer Spalte
wolfgang

Hallo Leute
Ich habe eine Spalte mit einer menge Uhrzeiten und möchte die Häufigkeit einer Uhrzeit ( wie oft ist eine eintrag vorhanden)zum Beispiel zwischen 08:00 und 17:00!! Ich weiß das für euch sicher ein leichtes ist jemanden wie mir zu helfen!
Schon jetzt besten Dank für eure Mühe...
02.09.2008 14:57:58
Thread-ID: 1006808
9 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
3
3
5
2
3
7
10
8
8
1
3
3
1
1
2
9
2
2
2
4
4
4
2
5