Zahlen aus Datei in einer anderen finden

Hallo zusammen,
ich habe folgendes Problem, das ich bisher immer über suchen eintippen und manuel überprüfen löse. Ich wollte nun hier fragen, ob das evtl. auch automatisiert möglich ist.
Ich habe in einer Datei eine Liste mit Zahlen (Datei A.xls). In mehreren weiteren Datei stehen viele Werte (Datei B.xls usw.).
Das erste Problem ist, das Datei B.xls nicht immer B heißt, sondern evtl. auch C oder F.
Mein Ziel:
Ich möchte das die Zahlen aus Datei A.xls überprüft werden und wenn sie in Datei B.xls vorkommen sollen bestimmte Zellen kopiert werden.
Beispiel:
Datei A.xls
A1 100
A2 101
A3 500
Datei B. xls
Datenblatt xy100
A6 500 K6 0
Datenblatt xy3
A10 100 K10 100
Nach der Überprüfung sollte Datei A.xls so aussehen:
A1 100 B1 Datei B. xls C1 Datenblatt xy3 D1 100
A2 101
A3 500 B3 Datei B. xls C3 Datenblatt xy100 D3 0
Ist das möglich und falls Ja hat jemand eine Idee dazu?
Viele Grüße
Kai

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Sub MachMal() Dim strDatName As Variant Dim wbA As Workbook, wbB As Workbook Dim wsA As Worksheet, wsB As Worksheet Dim iZeile As Long, letzteZeile As Long Dim Suchnummer ' Dateinnamen definieren strDatName = Application.GetOpenFilename("ExcelFiles (*.XLS), *.xls") If strDatName False Then Set wbB = Workbooks.Open(strDatName) Set wbA = ThisWorkbook Else Exit Sub End If ' Tabellennamen definieren ' ***** Die erste Tabelle der Datei A, ggf. anpassen! ***** Set wsA = wbA.Worksheets(1) ' Suche For iZeile = 1 To wsA.Range("A65536").End(xlUp).Row Suchnummer = wsA.Cells(iZeile, 1) For Each wsB In wbB.Worksheets letzteZeile = wsB.Range("A65536").End(xlUp).Row If WorksheetFunction.CountIf(wsB.Range("A1:A" & letzteZeile), Suchnummer) > 0 Then wsA.Cells(iZeile, 2) = wbB.Name wsA.Cells(iZeile, 3) = wsB.Name wsA.Cells(iZeile, 4) = WorksheetFunction.VLookup(Suchnummer, wsB.Range("A1:K" & _ letzteZeile), 11, 1) Exit For End If Next wsB Next iZeile ' Datei B schliessen wbB.Close End Sub

Hallo Chris,
ich hatte versucht das ganze in eine Schleife zu bauen, da der von dir angegebene Code zwar funktioniert, aber eben überall das Datum 2006.10.21 einträgt.
Ich hatte mir vorgestellt, das so alle Zeilen durchlaufen werden und in Spalte C der Text in Datum umgewandelt wird.
Dim str As String
Dim zZeile As Long
For zZeile = 1 To zZeile = 500
str = "zZeile, 3"
Range("C4") = DateSerial(Left(str, 4), Mid(str, 6, 2), Mid(str, 9, 2))
Exit For
Next zZeile
Wenn ich es manuell mache und mit dem Recorder aufzeichne, habe ich folgende Lösung gefunden, die aber auch nur manuell und nicht per Makro funktioniert:

Range("C4:C499").Select
Selection.TextToColumns Destination:=Range("C4"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
:=Array(1, 4), TrailingMinusNumbers:=True

Bereich makieren -> Text in Spalten -> weiter -> weiter -> Datum -> fertigstellen
Viele Grüße
Kai

Private Sub aTestInDatum_fest() Dim Spalte As Long, wks As Worksheet Set wks = ActiveSheet With wks Spalte = 4 'Spalte mit Textwerten als Datum 'Spalte mit Datumsformat formatieren - ggf. anpassen .Columns(Spalte).NumberFormat = "MM" 'nur Monat des Datums anzeigen 'oder Spalte als Standard formatieren '.Columns(Spalte).NumberFormat = "General" 'Zeile 1 als Startwert Zellbereich ggf. anpassen Call TextInDatum2(Bereich:=.Range(.Cells(1, Spalte), .Cells(.Rows.Count, Spalte).End(xlUp))) _ End With End Sub Sub TextInDatum2(Bereich As Range) 'wandelt Datums-Texte der Form "2006.10.21" (JJJJ.MM.TT bzw. YYYY.MM.DD) in _ Excel-Datum um Dim str As String, Zelle As Range Application.ScreenUpdating = False For Each Zelle In Bereich str = Zelle.Text If IsDate(Left(str, 4) & "-" & Mid(str, 6, 2) & "-" & Mid(str, 9, 2)) Then Zelle.Value = DateSerial(Left(str, 4), Mid(str, 6, 2), Mid(str, 9, 2)) End If Next Zelle Application.ScreenUpdating = False End Sub

Beliebteste Forumthreads (12 Monate)

Zahlen aus Datei in einer anderen finden

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

311 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Zahlen aus Datei in einer anderen finden

9 Beiträge zum Forumthread Beiträge zu diesem Forumthread

311 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread