|
Hallo,
ich ahbe volgendes problem.
Ich möchte per Abfrage Werte zeilenweise aus einer anderen Excel-Datei einlesen.
Dabei wird geprüft ob in einer bestimmten Zelle der jeweiligen Zeile was steht.
Falls ja, wird die Zeile von der Splate A bis AF koppiert und in der Import Excel-Datei eingefügt.
Ich habe dazu eine Abfrage erstellt, die leider auf einen Fehler läuft.
Ich hoffe Ihr könnt mir weiterhelfen :-) - Danke!
Option Explicit
Sub ForNextCounter()
Dim dValue As Double
Dim i As Integer
Dim Wb As Workbook
Dim Dest As Range
Dim Fname As String
Fname = "C:\Users\khan_hassin\Desktop\File.xlsx"
Set Dest = Range("A1")
Set Wb = Workbooks.Open(Fname, False, True)
For i = 4 To 500
If Worksheets("Project-Pipeline").Cells(i, 2).Value <> "" Then
i = 500
Else
Wb.Worksheets("Project-Pipeline").Range(Cells(i, 1), Cells(i, 5)).Copy Dest
Wb.Close
End If
Next i
MsgBox "Fertig"
End Sub
|