Ich habe einen Code geändert der jetzt alle Werte der TB kopiert aber mit Fehlermeldung abbricht. Hier der alte und geänderte Code:
Sub speichern_alt()
Dim rngAct As Range
Dim intRow As Integer, intCol As Integer
With Worksheets("Speicher")
If IsEmpty(.Cells(1, 1)) Then
intRow = 1
Else
intRow = .Cells(Rows.Count, 2).End(xlUp).Row + 1
End If
For Each rngAct In Range(Cells(2, 1),Cells(Range("A11").End(xlDown).Row, 5)).Cells
intCol = intCol + 1
rngAct.Copy
.Cells(intRow, intCol).PasteSpecial Paste:=xlValues
Next rngAct
End With
End Sub
Sub Speichern_neu()
Dim rngAct As Range
Dim intRow, intCol As Integer
With Worksheets("Speicher")
If IsEmpty(.Cells(1, 1)) Then
intRow = 1
Else
intRow = .Cells(Rows.Count, 2).End(xlUp).Row + 1
End If
For Each rngAct In Range(Cells(2, 1),Cells(Range("A11").Cells.SpecialCells(xlLastCell).Row, 5)).Cells
intCol = intCol + 1
rngAct.Copy
.Cells(intRow, intCol).PasteSpecial Paste:=xlValues
Next rngAct
End With
End Sub
Ich bekomme bei dem geänderten Code in der Zeile
".Cells(intRow, intCol).PasteSpecial Paste:=xlValues"
die Fehlermeldung "Laufzeitfehler 1004 Anwendungs- oder objektdefinierter Fehler!"
Wo liegt denn hier der eigentliche Fehler?
Danke im Voraus Jens