Bestimmte Werte aus Tabellenblätter übertragen

Hallo zusammen,
ich bin gerade etwas verzweifelt. Und zwar habe ich folgendes Problem:
Ich würde gerne in meinem ersten Tabellenblatt, das "Master-Worksheet", die folgenden Tabellenblätter (jeweilige Geschäftsjahre) übertragen.
Das "Master-Worksheet" soll folgenden Aufbau haben:
Spalte A: Nachname
Spalte B: Vorname
Spalte C: ID-nummer
Spalte D: E-Mail
Spalte E: GJ 10
Spalte F: GJ 11
und so weiter. Für die folgenden Spalten sind also die jeweiligen Geschäftsjahre angedacht.
Die folgenden Tabellenblätter ("GJ10", "GJ11", ...) haben alle folgenden Aufbau, aber unterschiedlich viele Zeilen:
Spalte A: Nachname
Spalte B: Vorname
Spalte C: ID-nummer
Spalte D: E-Mail
Spalte E: Bestellmenge
Spalte F: Kosten
Gewünscht ist jetzt, dass im "Master-Worksheet" eine Übersicht entsteht, die für jede Person die jeweilige Bestellmenge und Kosten pro GJ anzeigt.
Wichtig ist mir dabei, dass kein Name doppelt in der Liste steht (also anhand von Nachname, Vorname und ID-Nummer eindeutig identifiziert werden kann), aber die Werte Bestellmenge und Kosten trotzdem in der jeweiligen GJ-Spalte auf dem "Master-Worksheet" stehen.
Kann mir dabei jemand bitte helfen?
Vielen Dank im voraus.

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hi,
aber ID reicht auch!
Ich gehe jetzt nur über die ID.
Das Makro "RufeAuf" prüft in der aktiven Tabelle sämtliche ID's und kopiert sie bei Bedarf in das Master-Blatt. Leg dir darauf vielleicht ein Tastenkürzel?
Die Formeln dort musst du dann halt runter kopieren, dass hab ich jetzt nicht ins Makro geschrieben.
Ein eindeutiger Datensatz kann in einem GJ nicht mehrmals vorkommen!
aber ID reicht auch!
Die von mir verwendete Formel - SUMMEWENNS mit INDIREKT - ist für diese Aufgabe dann ein ziemliches "Kanonen auf Spatzen", bringt aber korrekte Ergebnisse. Wenn du etwas rechenzeit sparen willst, schreib dir die mal auf "SVERWEIS" um.

Option Explicit
Const SheetMasterName As String = "Master"
Const ColID As Long = 3
Const RowFirst As Long = 2
Sub RufeAuf()
Call TesteNamen(ActiveSheet)
End Sub
Sub TesteNamen(MyWks As Worksheet)
Dim RowLast As Long
Dim RowMaster As Long
Dim r As Range
With MyWks
RowLast = .Cells(.Rows.Count, ColID).End(xlUp).Row
For Each r In .Cells(RowFirst, ColID).Resize(RowLast - RowFirst + 1, 1)
If WorksheetFunction.CountIf(Sheets(SheetMasterName).Columns(ColID), r.Value) = 0 Then
.Cells(r.Row, 1).Resize(1, 4).Copy
Sheets(SheetMasterName).Cells(Sheets(SheetMasterName).Cells(Sheets(SheetMasterName). _
Rows.Count, ColID).End(xlUp).Row + 1, 1).PasteSpecial xlPasteValues
End If
Next r
End With
Application.CutCopyMode = False
End Sub

Grüße,
Klaus M.vdT.

Beliebteste Forumthreads (12 Monate)

Bestimmte Werte aus Tabellenblätter übertragen

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

317 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Bestimmte Werte aus Tabellenblätter übertragen

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

317 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread