ich habe ein kleines Problem, wobei ich denke, dass ich den Wald vor lauter Bäumen nicht sehe:
Sub blattkopieren()
Dim frstrw As Range
Dim Spalte As Integer
Dim lastrw As Range
On Error Resume Next
Set frstrw = Application.InputBox("Start Row (WITHOUT HEADLINE)", Type:=8)
If Not frstrw Is Nothing Then
Sheets("system").Range("b6") = frstrw.Row
frstrw = frstrw.Row
On Error GoTo 0
End If
Set wksori = ThisWorkbook.Worksheets("BSQ")
Set wkstemp = ThisWorkbook.Worksheets("temp_ir")
With wkstemp
Spalte = ThisWorkbook.Worksheets("system").Cells(10, 2)
lstrw = .Cells(.Rows.Count, Spalte).End(xlUp).Row
.Range(Cells(frstrw, Spalte), Cells(lstrw, Spalte)).Copy wksori.Cells(5, 4)
End With
End Sub
Bei .Range(Cells(frstrw, Spalte), Cells(lstrw, Spalte)).Copy wksori.Cells(5, 4) wird ein "anwendungs- oder Objektorientierter Fehler" gemeldet. ich weiss leider nicht warum und denke alles erdenkliche ausprobiert zu haben...Hat jemand einen Schubs in die richtige Richtung für mich? ich denke mal es wird mit der Zielauswahl zu tun haben....
Gruß und danke danke danke!!!!
Beffen