Daten aus 3 Tabellen innerhalb einer Mappe in eine 4. Mappe übertragen

28/07/2008 - 20:49 von Tom | Report spam
Hallo,

ich habe 4 Tabellenblàtter innerhalb einer Mappe.

In jedem dieser Tabellenblàtter stehen in Spalte A ungefàhr die
gleichen
Teil Nr. (kleine Abweichungen vorhanden).

Jetzt habe ich im Tabellenblatt1, die ich Übersichtstabelle nennen
will,
in Spalte A, wie gesagt die Teilnummmern. In Spalte B die
Lieferrückstànde
der Lieferanten.

In Tabelle 2 habe ich in Spalte A, die Teilnummern, in Spalte B die
Bestànde
in einem Werk. Diese Bestànde will ich jetzt über VBA in das
Tabellenblatt 1
zu der jeweiligen Teil Nr. in Spalte C eintragen.

In Tabelle 3 habe ich in Spalte A die Teilnummern, in Spalte B die
Bestànde
eines anderen Werkes. Diese Bestànde will ich jetzt auch über VBA in
das
Tabellenblatt 1 in Spalte D übernehmen.

Das 4. Tabellenblatt enthàlt Lieferantennummern in Spalte B,
Teilnummern in
Spalte A. Diese Lieferantennummern will ich jetzt ebenfalls mittels
VBA in das
1. Tabellenblatt in Spalte E eintragen.

Die Teilnummer können tagtàglich varieren, auch die Anzahl der
Teilnummern in
Spalte A àndert sich tagtàglich (abhàngig vom Lieferantenrückstand).
Aber auch die Positionen der Teilnummer àndern sich.

Beginnen will ich aber mit der Übertragung in Zeile 2, in Zeile 1 sind
die jeweiligen
Spaltenüberschriften, wie z. B. Lieferantenrückstànde, Bestànde etc.

Danke im voraus für Eure Bemühungen

Gruß

Tom
 

Lesen sie die antworten

#1 Peter Schleif
29/07/2008 - 07:18 | Warnen spam
Tom schrieb am 28.07.2008 20:49 Uhr:

ich habe 4 Tabellenblàtter innerhalb einer Mappe.
In jedem dieser Tabellenblàtter stehen in Spalte A ungefàhr die
gleichen Teil Nr. (kleine Abweichungen vorhanden).



Ich hoffe mal, "ungefàhr" bezieht sich sich auf die gesamte Liste und
*nicht* auf kleine Abweichungen zwischen zwei eigentlich gleichen
Teile-Nummern - sonst wird's nàmlich ziemlich schwierig.

Gegeben ist eine Tabelle "Übersicht" und die Tabellen2,3,4. Der Code
sucht in Übersicht für jede Teile-Nr in Spalte A (ab Zeile 2) in jedem
der drei anderen Blàtter nach einem entsprechenden Eintrag (ebenfalls
in Spalte A). Wird ein Eintrag gefunden, so wird der Wert aus Spalte B
übertragen: Tabelle2 in Spalte C, Tabelle3 in Spalte D und Tabelle4 in
Spalte E der Übersicht.


Sub uebertragen()
Dim z1 As Long
Dim z2 As Long
Dim s As Integer
Dim wsh As Worksheet
Dim item As Variant

With Sheets("Übersicht")
.[C:E].ClearContents '/optional/

For Each item In Array("Tabelle2", "Tabelle3", "Tabelle4")
Set wsh = Sheets(item)
For z1 = 2 To .Cells(Rows.Count, "A").End(xlUp).Row
For z2 = 2 To wsh.Cells(Rows.Count, "A").End(xlUp).Row
If .Cells(z1, "A") = wsh.Cells(z2, "A") Then
.Cells(z1, s + 3) = wsh.Cells(z2, "B")
End If
Next
Next
s = s + 1
Next
End With
End Sub

Ähnliche fragen