letzte Zeile kopieren



Excel-Version: 9.0 (Office 2000)
nach unten

Betrifft: letzte Zeile kopieren
von: Thomas
Geschrieben am: 21.05.2002 - 18:20:21

Liebes Forum!
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

nach oben   nach unten

Re: letzte Zeile kopieren
von: Roland Köstring
Geschrieben am: 22.05.2002 - 12:28:48

Hallo Thomas,
"Sheets(shZiel).Cells(ZielRow, 1).Value = Sheets(sh.Name).Cells(intRow, 1).Value" sollte m.E. sein:
"shZiel.Cells(ZielRow, 1).Value = sh.Cells(intRow, 1).Value"
shZiel und sh sind ja schon als Blätter deklariert.
Gruss Roland



 nach oben

Beiträge aus den Excel-Beispielen zum Thema "letzte Zeile kopieren"