Live-Forum - Die aktuellen Beiträge
Datum
Titel
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
25.04.2024 21:06:05
Duplikate entfernen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1708to1712
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
1708to1712
1708to1712
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

2 Spalten in unterschiedlichen Dateien Abgleichen

2 Spalten in unterschiedlichen Dateien Abgleichen
21.08.2019 09:26:57
Emre
Hallo Freunde,
Userbild
https://www.herber.de/bbs/user/131542.jpg
Userbild
https://www.herber.de/bbs/user/131543.jpg
wie könnte ich die Spalten 'MG-Nr.' in den beiden Tabellen abgleichen und die Spalte 'Veränderung' aus der zweiten Tabelle in das Ende der ersten Tabelle hinzufügen?
Wenn der Wert in der Spalte 'Veränderung' = "Veränderung", dann sollen die roten Spalten an die erste Tabelle angefügt werden.
Wenn der Wert in der Spalte 'Veränderung' = "entfällt", dann soll die Spalte 'Status' in der ersten Tabelle auf "nicht relevant" gestzt werden.
Ich würde das gerne mit einem Makro machen und bin dankbar für jeden Tipp.
Vielen Dank im Voraus.

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: 2 Spalten in unterschiedlichen Dateien Abgleichen
21.08.2019 10:00:29
Nepumuk
Hallo Emre,
glaubst du wirklich jemand baut deine Tabellen nach? Lade eine Mustermappe mit zwei Tabellen hoch aus denen dein Wunschergebnis hervorgeht. Es müssen ja keine Echtdaten drin stehen. Mach in allen nicht relevanten Zellen ein X. Hauptsache der Aufbau ist identisch mit deinen Tabellen.
Gruß
Nepumuk
AW: 2 Spalten in unterschiedlichen Dateien Abgleichen
21.08.2019 12:17:26
Nepumuk
Hallo Emre,
was wenn in der Spalte Veränderung "neu" steht? In welcher Mappe soll sich das Makro befinden?
Gruß
Nepumuk
AW: 2 Spalten in unterschiedlichen Dateien Abgleichen
22.08.2019 08:58:03
Emre
Wenn "neu" steht soll nichts weiter passieren. Das Makro sollte in der Tabelle 2 sein.
Gruß
Emre
AW: 2 Spalten in unterschiedlichen Dateien Abgleichen
22.08.2019 14:41:22
Nepumuk
Hallo Emre,
teste mal:
Option Explicit

Public Sub CompareMGNr()
    
    Const WORKBOOK_NAME As String = "Emre1.xlsx" 'Anpassen !!!
    Const FiLE_PATH As String = "H:\0821\" 'Anpassen !!!
    
    Dim objcell As Range, objWorkbook As Workbook
    Dim objWorksheet As Worksheet
    Dim blnFound As Boolean
    Dim lngRow As Long
    
    With Application
        .AskToUpdateLinks = False
        .EnableEvents = False
        .Calculation = xlCalculationManual
        .ScreenUpdating = False
    End With
    
    Set objWorksheet = ThisWorkbook.Worksheets("Tabelle1") 'Anpassen !!!
    
    For Each objWorkbook In Application.Workbooks
        If objWorkbook.Name = WORKBOOK_NAME Then
            blnFound = True
            Exit For
        End If
    Next
    
    If Not blnFound Then Set objWorkbook = Workbooks.Open(Filename:= _
        FiLE_PATH & WORKBOOK_NAME, UpdateLinks:=3)
    
    With objWorkbook.Worksheets("Messgrössenliste")
        
        For lngRow = 7 To .Cells(.Rows.Count, 9).End(xlUp).Row
            
            Set objcell = objWorksheet.Columns(9).Find(What:=.Cells(lngRow, 9).Text, _
                LookIn:=xlValues, LookAt:=xlWhole, MatchCase:=True)
            
            If Not objcell Is Nothing Then
                
                Select Case objcell.Offset(0, 71).Text
                        
                    Case "Veränderung"
                        
                        Call objcell.Offset(0, 73).Resize(1, 11).Copy(Destination:=.Cells(lngRow, 52))
                        
                    Case "entfällt"
                        
                        .Cells(lngRow, 22).Value = "nicht relevant"
                        
                End Select
            End If
        Next
    End With
    
    If Not blnFound Then Call objWorkbook.Close(SaveChanges:=True)
    
    Set objWorkbook = Nothing
    Set objcell = Nothing
    
    With Application
        .AskToUpdateLinks = True
        .EnableEvents = True
        .Calculation = xlCalculationAutomatic
        .ScreenUpdating = True
    End With
End Sub

Gruß
nepumuk
Anzeige

299 Forumthreads zu ähnlichen Themen

Zwei Spalten in jeweils zwei Tabellen miteinander
Lutz

Liebe Leute,
ich habe zwei recht umfangreiche Tabellen mit Lieferdaten und dies in zwei von einander unabhängigen Tabellen.
In der Tabelle1 stehen neben anderen die Spalten Bestellnr. und Materialnr. sowie Lieferantennr. In der Tabelle2 stehen wiederum die Spalten Bestellnr. und Materia...
08.08.2008 15:56:55
Thread-ID: 1000336
4 Beiträge
Anzeige
etwas komplexer vergleich zweier Spalten
Jonathan

Hallo liebe Experten,
ich stehe gerade vor einem, für mich etwas komplexeren, Problem. Ich denke aber, dass es für euch mit Sicherheit kein Problem darstellt.
Ich habe in einer Tabelle zwei Spalten (A + B). Jede der beiden Spalten kann den Wert "active" oder "on hold" haben. Die länge d...
20.10.2008 08:27:04
Thread-ID: 1017563
4 Beiträge
zwei Spalten vergleichen
Schmidt

Guten Tag,
ich bin langsam am verzweifeln, was Excel angeht. Jetzt habe ich endlich meine 2000-Zeilen Tabelle fertig und da fällt doch glatt auf, dass es noch eine Tabelle gibt, die parallel geführt wurde.
Das Problem: es könnte sein, dass einzelne Komponenten nicht in beiden Tabellen e...
28.10.2008 10:38:01
Thread-ID: 1019838
6 Beiträge
Anzeige
Werte in Spalten einfügen
Claudia

Hallo zusammen,
ich möchte den Inhalt einer Zwischenablage (1 Spalte muss ich immer kopieren) in das aktive Tabellenblatt einfügen - und hier oftmals aufgeteilt auf mehrere Spalten!!! Auf folgende komfortable Lösung über eine Inputbox oder Userform (?) hoffe ich:
1) Angabe der Spalte, w...
01.01.1970 00:00:00
Thread-ID: 1036833
34 Beiträge
Doppelte über zwei Spalten - vergleichen
Wolfgang

Hallo,
in einer Mappe befinden sich zwei Tabellenblätter. Gibt es eine Chance, beide Tabellenblätter abzugleichen, ob Datensätze doppelt vorkommen? - Schwierigkeit dabei mag aber sein, dass für die Suche sowohl die Spalte D, als auch Spalte E zu Grunde zu legen wären. Nur also, wenn die Dat...
09.01.2009 17:26:12
Thread-ID: 1038283
5 Beiträge
nächste Zelle, Zellen vergleichen,
ms_michael_2002@yahoo.de

Hallo!
Wie kann ich in die nächste Zelle gehen und dann automatisch die bedingte Formatierung durchführen? 1.) Wenn ich über die inputbox 3 eingebe, soll er von a1 nächste a2 dann a3 gehen ende, oder von einen bestimmten Punkt über die inputbox (mit der Maus zB auf a7 gehen) eingeben, zeige...
27.01.2009 14:36:00
Thread-ID: 1044247
6 Beiträge
2 Sheets & 2 Spalten vergleichen
Alex

Guten Morgen zusammen!
Ich sitze an folgendem Problem:
Ich habe zwei Sheets, in denen Kunden (dummerweise) sehr inkonsistent gespeichert werden. Aus diesem Grunde vergleiche ich die beiden relevanten Spalten nach übereinstimmenden Strings und versuche, zumindest einen Teil dieser Kunden...
29.01.2009 10:29:17
Thread-ID: 1044862
4 Beiträge
Gleichzeitiges suchen zweier Werte in 2 Spalten
Kriam


Hallo.
Ich habe ein Problem in Excel (VBA) und komme nicht dahinter wie es zu lösen ist. Ich hoffe, das ihr mir hier weiterhelfen könnt.
Ich habe in Tabelle1, 2 Spalten mit Werte (In der A Spalte stehen Artikelnummern, in der B Spalte stehen die Lagerplätze der Artikelnummern)
...
02.02.2009 22:03:00
Thread-ID: 1046443
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
3
3
3
5
1
33
4
5
3
3
3
4
4
3
3
7
4
4
13
1
2
12
10
4
7