Datum

Titel

19.04.2024 12:23:24

Wenn-Formel anpassen

19.04.2024 12:09:19

Unique (Application.WorksheetFunction.Unique)

19.04.2024 11:51:37

Nächsten identischen Treffer suchen

19.04.2024 11:45:34

Feld im SAP auslesen

Du findest keine passende Antwort auf Deine Frage?

Stelle Deine Frage in unserem Live-Forum

Archiv - Navigation

1240to1244

Aktuelles Verzeichnis

Verzeichnis Index

Übersicht Verzeichnisse

Vorheriger Thread

Rückwärts Blättern

Nächster Thread

Vorwärts blättern

HERBERS

Excel-Forum (Archiv)

20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Rückwärts Blättern

Aktuelles Verzeichnis

Übersicht Verzeichnisse

Vorwärts blättern

Inhaltsverzeichnis

2 Tabellen - Daten vergleichen

Forumthread: 2 Tabellen - Daten vergleichen
7 Beiträge zu diesem Forumthread
Anzeige
307 Threads zu ähnlichen Themen
VBA Beispiele zu verwandten Themen

Top 100 Forumthreads

Arthur

Hallo zusammen
Ich habe eine Exceltabelle mit Register A und Register B, voll mit Produkten, Artikelnummern und vielem mehr. Jetzt möchte ich die beiden vergleichen, sprich:
Wenn die Artikelnummer in Register A (Price list) ist und auch im Register B (Consolidated data) , dann soll mir Excel die Daten (Zeile mit der Artikelnummer, Typ etc.) aus Register A!!! rauskopieren und eine neue Liste als Register C abspeichern.
Versteht man dies, was ich meine?
Vielen Dank für eure Hilfe!
Arthur

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

AW: 2 Tabellen - Daten vergleichen

Arthur
AW: 2 Tabellen - Daten vergleichen

Rudi
AW: 2 Tabellen - Daten vergleichen

Arthur
du schriebst ...

Rudi
AW: du schriebst ...

Arthur
AW: du schriebst ...

Rudi
AW: du schriebst ...

Arthur

AW: 2 Tabellen - Daten vergleichen

20.12.2011 14:49:40

Arthur

Nachtrag:
Die Artikelnummern stehen in Register A (Price list) in der Spalte A und im Register B (Consolidated data) ebenfalls im A

AW: 2 Tabellen - Daten vergleichen

20.12.2011 15:11:11

Rudi

Hallo,

Sub vergleich()
Dim rngC As Range
Application.ScreenUpdating = False
With Sheets("Price list")
For Each rngC In .Range(.Cells(1, 1), .Cells(Rows.Count, 1).End(xlUp))
If Application.CountIf(Sheets("consolidated data").Columns(1), rngC) Then
rngC.EntireRow.Copy Sheets(3).Cells(Rows.Count, 1).End(xlUp).Offset(1)
End If
Next
End With
End Sub

Gruß
Rudi

AW: 2 Tabellen - Daten vergleichen

20.12.2011 15:46:10

Arthur

Danke Rudi
Funktioniert aber irgendwie nicht:
Run-time error 9:
Subscription out of range
https://www.herber.de/bbs/user/78052.xls
Danke für deine Hilfe!

du schriebst ...

20.12.2011 15:53:18

Rudi

Hallo,
... von einem 3.Blatt. Wo ist das?
Gruß
Rudi

AW: du schriebst ...

20.12.2011 15:56:10

Arthur

Das gibts ja noch nicht.
Excel soll in Price list in Spalte A die Artikelnummer anschauen, schaut in Consolidated data ob die gleiche Artikelnummer in Spalte A auch vorkommt. Falls sie dort ist, dann soll Excel ein neues Register C (Okay) erstellen und die Zeilen von Price List rüberkopieren.

AW: du schriebst ...

20.12.2011 16:09:03

Rudi

Hallo,

Sub vergleich()
Dim rngC As Range, wks As Worksheet
Application.ScreenUpdating = False
With Sheets("Price list")
For Each rngC In .Range(.Cells(1, 1), .Cells(Rows.Count, 1).End(xlUp))
If Application.CountIf(Sheets("Consolidated data").Columns(1), rngC) Then
If wks Is Nothing Then
Set wks = Worksheets.Add(after:=Sheets(Sheets.Count))
End If
rngC.EntireRow.Copy wks.Cells(Rows.Count, 1).End(xlUp).Offset(1)
End If
Next
End With
End Sub

Gruß
Rudi

AW: du schriebst ...

20.12.2011 16:21:21

Arthur

Super Rudi!
Vielen Dank, so hats geklappt, du hast mir viel Zeit eingespart mit deiner Hilfe.
Gruss
Arthur