Fehlermeldung Index außerhalb des gültigen Bereich
27.05.2016 23:52:41
Falo
Hallo,
ich brauche Eure Hilfe ich bekomme die Fehlermeldung Index außerhalb des gültigen Bereich
Private Sub Olaf_Export_Click()
Dim longLetzte As Long
Application.ScreenUpdating = False
With Selection
.Columns("A:O").Copy
End With
ChDir ThisWorkbook.Path
With Workbooks("export.xls").Sheets(1)
longLetzte = .Cells(.Rows.Count, 1).End(xlUp).Row + 1
.Cells(longLetzte, 1).PasteSpecial Paste:=xlPasteValues
End With
Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub