ich suche Hilfe bei folgender Fehlermeldung:
Die Methode 'Range' für das Objekt '_Global' ist fehlgeschlagen
Dabei wird folgende Zeile markiert ---->
Weiß jemand , woran das liegen könnte?
Dim i As Integer, LetzteZeile As Integer
Dim srchStr As Variant
Dim wksWatch As Worksheet
Dim wksIm As Worksheet
Dim c As Range
Sub Aktualisieren()
Set wksWatch = Worksheets("Watchlist")
Set wksIm = Worksheets("Import")
Application.ScreenUpdating = False
LetzteZeile = Range("A65536").End(xlUp).Row
For i = 4 To LetzteZeile
With Sheets("Import").Range(Cells(4, 1), Cells(LetzteZeile, 1))
srchStr = wksIm.Cells(i, 1).Value
Set c = .find(srchStr, LookIn:=xlValues)
If Not c Is Nothing Then
----> Range(Cells(c.Row, c.Column + 1), Range(Cells(c.Row, Cells(c.Row, 256).End(xlToRight).Column))).Copy
Sheets("Watchlist").Cells(i, 2).PasteSpecial
Application.CutCopyMode = False
End If
End With
Next i
Application.ScreenUpdating = True
End Sub
Gruß Stephan