Kopiert aus der falschen Datei
01.04.2015 16:57:21
Oliver789
ich habe folgendes Problem.
Ich öffne die Datei "Juhu.xlsm" starte von dort aus folgendes Makro:
Public Sub Zeilen2()
strPath = "C:\Users\Oliver\Desktop\"
strExt = "*1.xlsm"
Dim strFile As String
Dim i As Integer
Dim cell As Range
i = 1
If strPath = "" Then
Exit Sub
Else
strFile = Dir(strPath & strExt)
Do While Len(strFile) > 0
Workbooks.Open Filename:=strPath & strFile, UpdateLinks:=0
Var_Dateiname = ActiveWorkbook.Name
'Zieldatei öffnen, welche sich auf dem Desktop befindet
For Each cell In Tabelle1.Range("I1:I7")
If Not cell Is Nothing Then
If cell.Value
Diese Makro soll die andere Datei "Mappe1.xlsm" öffnen und dort bestimmte Werte aus der Spalte I kopieren, wenn der Wert kleiner 10 ist, und in der Datei "Juhu.xlsm" einfügen (siehe Bild). Das Makro geht dabei Zeile für Zeile durch und wenn es einen Wert kleiner 10 gefunden hat kopiert es die ganze Zeile.
So sollte es das Makro machen, aber es kopiert immer den Bereich aus der Datei von der aus ich das Makro starte, also hier "Juhu.xlsm".
Was muss geändert werden, damit er die Zeilen aus der Datei "Mappe1.xlsm" vergleicht und kopiert?
Vielen dank im voraus und viele Grüße
Oliver