Zeilen kopieren
29.08.2008 18:39:05
Josef
Ich fand in der Recherche folgenden Code und paßte diesen an.
Sub test()
Dim rng As Range, rng1 As Range
Set rng = Cells(1, 51).End(xlDown)
Set rng1 = rng.End(xlToRight)
Range(rng.Offset(0, 1), rng1).Copy
rng.Offset(1, 0).Select
ActiveSheet.Paste
Application.CutCopyMode = False
End Sub
Wenn ich jetzt in der Zeile ab Spalte AZ die vorherige Zeile kopiere, verschieben sich die neu eingetragenen Werte um ein Stelle nach links.
Zweitens kann der code erst dann ausgeführt werden, wenn 2 Zeilen vorhanden sind. Bei nur einer Zeile ist eine Ausführung des codes nicht möglich.
wie muß man bitte den code verändern, damit der neu eingetragene Wert sich nicht um eine spalte nach links verschiebt und der code auch bei einer Zeile ausgeführt werden kann?
Danke
josef