Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: per Makro überprüfen - neue kopieren

per Makro überprüfen - neue kopieren
Michael
Hallo zusammen,
ich bin auf der Suche nach einem Makro, welches zwei verschiedene Tabellen vergleicht und neue Werte kopiert:
Tabelle A
Artikel | Lieferant | Preis
1 Otto.de 5€
2 Pearl.de 5€
3 Otto.de 5€
Tabelle B
Artikel | Lieferant | Preis
1 Otto.de 5€
2 Pearl.de 5€
3 Otto.de 5€
4 Otto.de 5€
Ich möchte nun, dass das Makro in Tabelle B überprüft, ob ein neuer Wert zur Verfügung steht (Artikel 4) - überprüfung nach Artikel reicht. Ist dies so, soll der neue Wert in die letzte freie Zeile von Tabelle A kopiert werden.
Meine Makro-Kenntnisse reichen vom Recorder bis zum einfachen ".select" ausmerzen - also nicht die große Nummer.
Wenn mir jemand dazu n Makro liefern könnte (ggf. mit ein paar Kommentaren, damit ich evt. das Ganze verstehen kann) wäre ich super dankbar =)
LG
Anzeige

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: per Makro überprüfen - neue kopieren
26.03.2012 13:02:37
Rudi
Hallo,
Sub aaa()
Dim rngC As Range
With Sheets("Tabelle B")
For Each rngC In .Range(.Cells(2, 1), .Cells(Rows.Count, 1).End(xlUp))
If Application.CountIf(Sheets("Tabelle A").Columns(1), rngC) = 0 Then
rngC.Resize(, 3).Copy _
Sheets("Tabelle A").Cells(Rows.Count, 1).End(xlUp).Offset(1)
End If
Next
End With
End Sub

Gruß
Rudi
Anzeige

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige