letzte Zeile kopieren
21.05.2002 18:20:21
Thomas
Ich habe folgenden Code entwickelt:
' 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