Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1652to1656
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
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
Anzeige
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
 AB
1AAAER
2BBBSie
3CCCEs
4EEEWir
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
 AB
1AAA 
2AAA 
3AAA 
4BBB 
5EEE 
6BBB 
7EEE 
8GGG 
9FFF 
10FFF 
11FFF 
12FFF 
13FFF 
14FFF 
15FFF 
16FFF 
17FFF 
18FFF 
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
 AB
1AAAER
2BBBSie
3EEEWir
4GGG 
5FFF 
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


Anzeige

299 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige