letzte Zeile kopieren

' VARIABLENDEKLARATION
Dim sh As Worksheet
Dim shZiel As Worksheet
Dim n As Long

'FESTSTELLEN DER LETZTEN ZEILE
'AUFSUMMIEREN DER ZAHLUNGSSPALTE
For Each sh In Worksheets

If sh.Name <> "ÜBERSICHT" Then

Set shZiel = Sheets("ÜBERSICHT")



intRow = sh.Cells(Rows.Count, 8).End(xlUp).Row
ZielRow = shZiel.Cells(Rows.Count, 1).End(xlUp).Row

Sheets(shZiel).Cells(ZielRow, 1).Value = Sheets(sh.Name).Cells(intRow, 1).Value

End If

Next sh
End Sub

Nur bekomm ich jedesmal bei shZiel die Fehlermeldung
"Typen unverträglich"

Möchte die letzte Zeile aller Sheets außer Übersicht ins Sheet Übersicht kopieren. Jeweils die erste Spalte.

LG
Thomas