Fehler 438 bei Range.Copy

Hallo Zusammen,
mein nachstehendes Makro läuft bei
"wb2.Range(Cells(5, ColumnIndex2), Cells(44, ColumnIndex2)).Copy" immer auf den Fehler 438: Objekt unterstützt diese Eigenschaft oder Methode nicht.
Die Microsoft-Hilfe verstehe ich an der Stelle nicht.
Sieht einer von euch vielleicht, warum es nicht klappt?
Vielen Dank,
Lara


Sub DatenImportieren1()
Dim wb As Workbook
Dim wb2 As Workbook
Dim Name
Dim Path
Dim FileFound
Dim ColumnIndex2 As Integer
Dim Range
Set wb = ActiveWorkbook
Name = wb.Worksheets("Konsolidierung").Range("V6")
Path = wb.Worksheets("Steuerung").Range("C11")
FileFound = Dir(Path & "\" & "*" & Name & "*.xlsx")
If FileFound  "" Then
Workbooks.Open Path & "\" & FileFound
Set wb2 = ActiveWorkbook
For Each Range In ActiveSheet.Columns("D:R")                                       'Prü _
ft ob die Spalte dem Reportmonat entspricht. Wenn ja, dann wird FoundColumn als wahr definiert
If Range.Cells(4).Value = Cells(1, 2) Then
ColumnIndex2 = Range.Column
wb2.Range(Cells(5, ColumnIndex2), Cells(44, ColumnIndex2)).Copy
'[hier soll es danach weiter gehen...]
End If
Next
End If
End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub DatenImportieren2() Dim wb As Workbook Dim wb2 As Workbook Dim Name Dim Path Dim FileFound Dim ColumnIndex2 As Long Dim objRange As Range Set wb = ActiveWorkbook Name = wb.Worksheets("Konsolidierung").Range("V6") Path = wb.Worksheets("Steuerung").Range("C11") FileFound = Dir(Path & "\" & "*" & Name & "*.xlsx") If FileFound "" Then Workbooks.Open Path & "\" & FileFound Set wb2 = ActiveWorkbook For Each objRange In ActiveSheet.Columns("D:R") ' _ Prü _ ft ob die Spalte dem Reportmonat entspricht. Wenn ja, dann wird FoundColumn als wahr definiert If objRange.Cells(4).Value = Cells(1, 2) Then ColumnIndex2 = objRange.Column wb2.Range(wb2.Range.Cells(5, ColumnIndex2), wb2.Range.Cells(44, ColumnIndex2)). _ Copy '[hier soll es danach weiter gehen...] End If Next End If End Sub

Sub DatenImportieren2() Dim wb As Workbook Dim wb2 As Workbook Dim Name Dim Path Dim FileFound Dim ColumnIndex2 As Long Dim objRange As Range Set wb = ActiveWorkbook Name = wb.Worksheets("Konsolidierung").Range("V6") Path = wb.Worksheets("Steuerung").Range("C11") FileFound = Dir(Path & "\" & "*" & Name & "*.xlsx") If FileFound "" Then Workbooks.Open Path & "\" & FileFound Set wb2 = ActiveWorkbook For Each objRange In ActiveSheet.Columns("D:R") ' _ _ Prü _ ft ob die Spalte dem Reportmonat entspricht. Wenn ja, dann wird FoundColumn als wahr definiert If objRange.Cells(4).Value = Cells(1, 2) Then ColumnIndex2 = objRange.Column wb2.Range(wb2.Cells(5, ColumnIndex2), wb2.Cells(44, ColumnIndex2)). _ Copy '[hier soll es danach weiter gehen...] End If Next End If End Sub

Sub DatenImportieren1() Dim wb As Workbook Dim wb2 As Workbook Dim Name Dim Path Dim FileFound Dim ColumnIndex2 As Long Dim objRange As Range Set wb = ActiveWorkbook Name = wb.Worksheets("Konsolidierung").Range("V6") Path = wb.Worksheets("Steuerung").Range("C11") FileFound = Dir(Path & "\" & "*" & Name & "*.xlsx") If FileFound "" Then Workbooks.Open Path & "\" & FileFound Set wb2 = ActiveWorkbook For Each objRange In ActiveSheet.Columns("D:R") ' _ Prüft ob die Spalte dem Reportmonat entspricht. Wenn ja, dann wird FoundColumn als wahr definiert If objRange.Cells(4).Value = Cells(1, 2) Then ColumnIndex2 = objRange.Column wb2.Range(wb2.Cells(5, ColumnIndex2), wb2.Cells(44, ColumnIndex2)).Copy '[hier soll es danach weiter gehen...] End If Next End If End Sub

Sub DatenImportieren2() Dim wb As Workbook Dim wb2 As Workbook Dim Name Dim Path Dim FileFound Dim ColumnIndex2 As Long Dim objRange As Range Set wb = ActiveWorkbook Name = wb.Worksheets("Konsolidierung").Range("V6") Path = wb.Worksheets("Steuerung").Range("C11") FileFound = Dir(Path & "\" & "*" & Name & "*.xlsx") If FileFound "" Then Workbooks.Open Path & "\" & FileFound Set wb2 = ActiveWorkbook For Each objRange In ActiveSheet.Columns("D:R") ' _ _ If objRange.Cells(4).Value = Cells(1, 2) Then ColumnIndex2 = objRange.Column wb2.ActiveSheet.Range(wb2.ActiveSheet.Cells(5, ColumnIndex2), wb2.ActiveSheet.Cells(44, _ ColumnIndex2)).Copy '[hier soll es danach weiter gehen...] End If Next End If End Sub

Sub DatenImportieren1() Dim wb As Workbook Dim wb2 As Workbook Dim Name Dim Path Dim FileFound Dim ColumnIndex2 As Integer Dim Bereich Set wb = ActiveWorkbook Name = wb.Worksheets("Konsolidierung").Range("V6") Path = wb.Worksheets("Steuerung").Range("C11") FileFound = Dir(Path & "\" & "*" & Name & "*.xlsx") If FileFound "" Then Workbooks.Open Path & "\" & FileFound Set wb2 = ActiveWorkbook For Each Bereich In ActiveSheet.Columns("D:R") 'Prü _ ft ob die Spalte dem Reportmonat entspricht. Wenn ja, dann wird FoundColumn als wahr definiert If Bereich.Cells(4).Value = Cells(1, 2) Then ColumnIndex2 = Bereich.Column wb2.Cells(5, ColumnIndex2).Resize(40, 1).Copy '[hier soll es danach weiter gehen...] End If Next End If End Sub

Beliebteste Forumthreads (12 Monate)

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread