2 Tabellen in einem

Forumthread: 2 Tabellen in einem

2 Tabellen in einem

19.10.2018 14:37:33

Anna

Hallo Leute :)
Ich bräuchte noch eine letzte bitte, einen Ablauf automatisieren:
1) Mappe A hat ung. 7000 Zeilen und ich bräuchte nur Spalte A
2) Spalte A sollte kopiert werden in eine neue Tabelle und alle Duplikate entfernt werden
3) Mappe B soll temporär geladen werden, da sie 300.000 Zeilen hat.
4) Ein Sverweis mit der Spalte A und von Mappe B (Spalte C) sollte durchgeführt werden.
5) Das wars :)

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: dies könntest Du mit PowerQuery lösen ...

19.10.2018 15:25:53

neopa
AW: 2 Tabellen in einem

19.10.2018 15:40:12

UweD

AW: dies könntest Du mit PowerQuery lösen ...

19.10.2018 15:25:53

neopa

Hallo Anna,
... dazu schau mal z.B. hier: http://www.excel-ist-sexy.de/
Gruß Werner
.. , - ...

AW: 2 Tabellen in einem

19.10.2018 15:40:12

UweD

Hallo
Ich hoffe du hast nicht Mappe mit Tabellenblatt und Tabelle mit Datei verwechselt
So hab ich es verstanden:
- In der geöffnenten Datei wird aus Tabellenblatt1 die Spalte A in ein neues Blatt der gleichen Datei kopiert
- Duplikate werden entfernt
- über Sverweis wird aus einen Anderen Datei (die kann geschlossen bleiben) der Wert aus Spalte A gesucht und der Folgewert zurückgeliefert
- optional wird die Formel durch den Wert ersetzt
Die geschlossene Datei für Sverweis

Tabelle1

	A	B
1	AAA	ER
2	BBB	Sie
3	CCC	Es
4	EEE	Wir
5
6
7
8
9

http://excel-inn.de/dateien/vba_beispiele/tabellenanzeige_in_html_addin.zip

http://Hajo-Excel.de/tools.htm

XHTML-Tabelle zur Darstellung in Foren, einschl. der neuen Funktionen ab Version 2007

Add-In-Version 25.14 einschl. 64 Bit

LG UweD

Sub Makro2()
    Dim WbB, TbA, TbB, Tb3, LR As Double
    
    '****** Festlegen 
    Set TbA = ThisWorkbook.Sheets("Tabelle1")
    WbB = "X:\Temp\[MappeB.xlsx]" ' Name der Datei für Sverweis mit [Klammern] 
    
    Tb3 = "Tabelle1" 'Blattname für Sverweis 
    '**************** 
    
    'neus Blatt am Ende anhängen 
    Sheets.Add After:=Sheets(Sheets.Count)
    Set TbB = ActiveSheet
    
    With TbB
        'Spalte A kopieren 
        TbA.Columns(1).Copy Columns(1)
        
        
        'Duplikate raus 
        .Columns(1).RemoveDuplicates Columns:=1, Header:=xlNo
        
        'letzte Zeile der Spalte 
        LR = .Cells(.Rows.Count, 1).End(xlUp).Row
        
        
        With .Cells(1, 1).Offset(0, 1).Resize(LR, 1)
            'Sverweis setzen aus geschlossener Datei 
            .FormulaR1C1 = "=IFERROR(VLOOKUP(RC[-1],'" & WbB & Tb3 & "'!C1:C2,2,0),"""")"
            
            'Formeln in Werte verwandeln 
            .Value = .Value
        End With
    End With
End Sub

vorher

Tabelle1

	A	B
1	AAA
2	AAA
3	AAA
4	BBB
5	EEE
6	BBB
7	EEE
8	GGG
9	FFF
10	FFF
11	FFF
12	FFF
13	FFF
14	FFF
15	FFF
16	FFF
17	FFF
18	FFF

http://excel-inn.de/dateien/vba_beispiele/tabellenanzeige_in_html_addin.zip

http://Hajo-Excel.de/tools.htm

XHTML-Tabelle zur Darstellung in Foren, einschl. der neuen Funktionen ab Version 2007

Add-In-Version 25.14 einschl. 64 Bit

nachher

Tabelle5

	A	B
1	AAA	ER
2	BBB	Sie
3	EEE	Wir
4	GGG
5	FFF
6
7

http://excel-inn.de/dateien/vba_beispiele/tabellenanzeige_in_html_addin.zip

http://Hajo-Excel.de/tools.htm

XHTML-Tabelle zur Darstellung in Foren, einschl. der neuen Funktionen ab Version 2007

Add-In-Version 25.14 einschl. 64 Bit

Beliebteste Forumthreads (12 Monate)

	A	B
1	AAA
2	AAA
3	AAA
4	BBB
5	EEE
6	BBB
7	EEE
8	GGG
9	FFF
10	FFF
11	FFF
12	FFF
13	FFF
14	FFF
15	FFF
16	FFF
17	FFF
18	FFF

	A	B
1	AAA
2	AAA
3	AAA
4	BBB
5	EEE
6	BBB
7	EEE
8	GGG
9	FFF
10	FFF
11	FFF
12	FFF
13	FFF
14	FFF
15	FFF
16	FFF
17	FFF
18	FFF

Forumthread: 2 Tabellen in einem

2 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

	A	B
1	AAA
2	AAA
3	AAA
4	BBB
5	EEE
6	BBB
7	EEE
8	GGG
9	FFF
10	FFF
11	FFF
12	FFF
13	FFF
14	FFF
15	FFF
16	FFF
17	FFF
18	FFF