kopieren, zuordnen, datum, berechnen

Forumthread: kopieren, zuordnen, datum, berechnen

20.09.2007 15:07:16

Torsten

Guten Mittag,
habe mal wieder ein kleines Problem:
Ich habe 2 Dateien,
in Datei a (siehe Anhang) befinden sich in Spalte die Materialnummer(Drawing) nach dieser soll zugeordnet werden. siehe B4, B10, B16 usw.
Nun sollen die Daten, die in der Zeile stehen kopiert werden, den einzelnen Arbeitsblättern in der Datei b zugeordnet und schließlich noch dem entsprechendem Datum zugeordnet werden.
Hier ist noch ui beachten, das sein kann, dass ein Datum zwei mal vorkommen kann, dies darf aber nachher nur einmal drin stehen.
Ich hoffe mein Problem wurde verstanden und das mir jemand helfen kann.
gruß
Torsten
Hier Beispieldatei:
http://www.file-upload.net/download-414832/ab.zip.zip.html

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: kopieren, zuordnen, datum, berechnen

21.09.2007 10:53:02

Torsten
AW: kopieren, zuordnen, datum, berechnen

24.09.2007 21:18:49

Tim

AW: kopieren, zuordnen, datum, berechnen

21.09.2007 10:53:02

Torsten

Guten Morgen,
hab mich ein bischen hingesetz und versucht selbst etwas zu stande zu bekommen...
Leider ohne Erfolg.
Hab noch ein paar Sachen geändert und zwar stehen die Daten nun in der selben Datei unter Tabelle 1, ist wohl etwas einfacher, als mit zwei Dateien zu arbeiten.
So hier mein Versuch.


Sub test1()
Dim GLetzte As Long, i As Long
Dim j As Integer
Dim rng As Range
Dim aNr As String, BNr As Variant
Dim xDat As Date
Dim xVar As Variant, yVar As Variant
Dim ws As Worksheet, rngC As Range
GLetzte = IIf(IsEmpty(Range("G65536")), Range("G65536").End(xlUp).Row, 65536)
For i = 4 To GLetzte
aNr = Cells(2, i).Value
For j = 1 To Sheets.Count
If Sheets(j).Name  "Tabelle1" Then
Set rng = Sheets(j).Columns(1).Find(aNr, LookAt:=xlWhole, LookIn:=xlValues)
If Not rng Is Nothing Then
xDat = CDate(Cells(2, 9 + i))
xDat = DateSerial(Year(xDat), Month(xDat), 1)
With Sheets(j)
xVar = WorksheetFunction.Match(CDbl(xDat), .Rows(2), i)
If Not IsError(xVar) Then
If Cells(i, 1)  .Cells(xVar, 2) Then
If Not IsEmpty(.Cells(xVar, 2)) Then
.Columns(xVar).Copy
.Rows(1 + xVar).Insert Shift:=xlDown
.Cells(xVar, 12).Copy .Cells(xVar + 2, 12)
Application.CutCopyMode = False
xVar = xVar + 1
End If
.Cells(12, xVar) = Cells(5, i)
End If
End If
End With
Exit For
End If
End If
Next j
Next i
End Sub

Im Anhang befindet sich meine Beispieldatei...
Normalerweise sind es deutlich mehr Daten....
mfg ecki
Der Link, da die Datei über 2 Mb groß ist:
http://www.file-upload.net/download-415885/bsp.xls.html

AW: kopieren, zuordnen, datum, berechnen

24.09.2007 21:18:49

Tim

Sieht gut aus!
mfg Tim

Beliebteste Forumthreads (12 Monate)

kopieren, zuordnen, datum, berechnen

Forumthread: kopieren, zuordnen, datum, berechnen

2 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread