Hallo SN User,
ich habe noch ein Folgeproblem zu diesem Thread:
https://supportnet.de/t/2303727/0
(Neuer Thread, damit der Problemlöser
Punkte erhalten kann.
@Admins: Bitte schickt mir eine PM, wenn Folgefragen im gleichen Thread gestellt werden sollen.)
Nachdem ich mein Worksheet so erweitert habe, dass auf die Werte aus Spalte D auf Tabellenblatt 1 zugegriffen wird, führt das Ausschneiden nun dazu, dass die Referenzen nicht mehr funktionieren. (
@Hajo: Ich nehme an, das ist das Problem, dass Du bzgl. Ausschneiden angesprochen hast.)
Ist es möglich, den folgenden Code so zu ändern, dass die Einträge aus Spalte D nicht ausgeschnitten, sondern kopiert und nach dem Einfügen in das "Archive" Tabellenblatt auf dem ursprünglichen Tabellenblatt 1 gelöscht werden?
Option Explicit
Sub Macro13()
Range("D5:D" & ActiveSheet.Cells(Rows.Count, 4).End(xlUp).Row).Cut _
Sheets("Archive").Range("C" & Sheets("Archive").Cells(Rows.Count, 3).End(xlUp).Row + 1)
End Sub
Danke an alle, die sich mit der Lösung beschäftigen.
Gruß, Phlip
[*]
[sup]
*Threadedit* 17.02.2010, 22:48:13
Admininfo: Führ bitte Threads nicht fort indem du Weitere eröffnest, und vermeide Mehrfachanfragen. Die Datenbank und User werden es dir danken. Siehe FAQ 2, #3.[/sup]