|
Servuvs,
ich versuche gerade einen variablen Bereich zu kopieren und bekomme immer wieder beim compailieren die Fehlermeldung: Unzulässiger oder nicht ausreichend definierter Verweiss.
Habe das Forum um das Internet schon durchsucht und habe auch paar Sachen gefunden aber nichts das mir final geholfen hätte.
Das Programm soll aus einer Spalte den ersten Wert sichern, dann die nächsten 1000 Zeilen eine Zeile darüber wieder rein kopieren.
Anschließend soll der gesicherte Wert ans Ende angefügt werden.
Quasi ein Schieberegister das per Knopfdruck eins weiter geht.
Kann mir von euch hier jemand weiter helfen?
Sub B_Hochschieben()
Dim temp
Dim x
x = ThisWorkbook.Worksheets(1).Range("B8").Value + 3
temp = ThisWorkbook.Worksheets(2).Cells(2, row).Value
Worksheets(2).Range(.Cells(3, x), .Cells(1002, x)).Copy Worksheets(2).Range(.Cells(2, x), .Cells(1001, x))
Worksheets(2).Cells(1002, x).Value = temp
End Sub
|