Herbers Excel-Forum - das Archiv

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

Excel-Beispiele zum Thema "letzte Zeile kopieren"
Letzte nichtleere Zelle ermitteln Letzter Wert in Zeile
Letztes Speicherdatum eintragen Letzter Wert aus einem Bereich
Letztes Speicherdatum in die Fußzeile aller Tabellenblätter Formel bis zur letzten Zeile der Nebenspalte kopieren
Letzte Zelle mit Inhalt suchen Letzte Zelle einer Spalte mit Inhalt aus geschlossener Arbeitsmappe
Letzte Verknüpfung in einem Tabellenblatt löschen Letztes Zeichen der Werte einer Zellauswahl hoch-/tiefstellen