Hallo zusammen,

bei Ausführung des Codes erscheint bei mir 'Laufzeitfehler 1004" - Anwendungs- oder Objektdefinierter Fehler (fettgedruckter Bereich).

Ich habe aber keine Ahnung wieso.

Option Explicit

Sub BVS_umformatieren_Test()
'
' BVS_umformatieren Makro
'
'
Dim Import  As Excel.Worksheet
Dim BVS     As Excel.Worksheet
Dim iSpalte As Integer

Set Import = Worksheets("Import")
Set BVS = Worksheets("BVS")

With ThisWorkbook.Worksheets("Import")
    For iSpalte = 1 To 50
        If .Cells(1, iSpalte).Value = "Art" Then
        .Range(Cells(1, iSpalte), .Cells(30000, iSpalte)).Copy Destination:= _
        ThisWorkbook.Worksheets("BVS").Range("A1")
        Exit For
    End If
Next iSpalte
End With


End Sub

Kann mir da jemand helfen?

Danke.

Gruß Ingo