Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 14:48:50
"Eingabefeld" zwischen zwei Zeilen geht nicht weg.
24.04.2024 14:40:10
Zeilenumbrüche in Textbox zählen
24.04.2024 14:06:20
Gesamte Column löschen, wenn Column-Bereich leer
24.04.2024 13:44:05
Bezeichnung Tabellenblatt aus Zelle für Formel auslesen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
908to912
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
908to912
908to912
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

kopieren, zuordnen, datum, berechnen

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
Anzeige
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

Anzeige
AW: kopieren, zuordnen, datum, berechnen
24.09.2007 21:18:49
Tim
Sieht gut aus!
mfg Tim

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige