Ich probiere mithilfe eines Makros in der Zieldatei Daten aus der Datendatei zu importieren. Dabei muss ich in der Datendatei die Daten anhand des Headers auswählen. Ich habe es bereits geschafft ein Makro zu machen dass die nötigen Daten auswählt. Beim rüberkopieren gibt es mir jedoch einen Fehler (Subscript außerhalb des Bereichs (Fehler 9)). könnt ihr mir erklären was ich falsch gemacht habe?
Danke bereits im Vorraus!
Mein Code:
Sub DataImport()
Dim ws As Worksheet
Dim hostCellRange As Range, cfind As Range
Dim lRow As Long, lCol As Long
Set ws = Workbooks("2022-07-01_Dispo-Daten (version 1).xlsb").Worksheets("Selected")
With ws
.AutoFilterMode = False
With .Range("A6", .Cells(6, .Columns.Count).End(xlToLeft))
.AutoFilter Field:=3, Criteria1:="HP"
.AutoFilter Field:=246, Criteria1:="glo"
Set cfind = .Find(What:="Option Number", LookIn:=xlValues, lookat:=xlWhole)
If Not cfind Is Nothing Then
'~~> Find the column number
lCol = cfind.Column
'~~> Find the last row in that column
lRow = ws.Range(Split(Cells(, lCol).Address, "$")(1) & ws.Rows.Count).End(xlUp).Row
'~~> Create the range
Set hostCellRange = .Range(cfind.Offset(1, 0), cfind.Offset(lRow - 1, 0))
Debug.Print hostCellRange.Address
hostCellRange.Copy Workbooks("Global_Risk_Client_List_2.0_13.08.2022.xlsm").Sheets("UWWBData").Range("B2")
End If
End With
End With
End Sub