zeilen hochrutschen lassen nach kopieren
21.01.2005 14:52:23
Jonny
Nun, ich will eine Zeile von einer Tabelle in die nächste kopieren. Dabei sollen die Daten aus der Ursprungstabelle gelöscht werden. Soweit bin ich. Nun sollen aber die daten die unterhalb der zukopierenden Zeile liegen eine Zeile hochrutschen, damit die Zeile nicht leer bleibt.
also mein Quellcode:
Sub button1()
Call Zeile_kopieren(2)
End Sub
Sub button2()
Call Zeile_kopieren(3)
End Sub
Sub Zeile_kopieren(quellzeile As Integer)
Dim zielzeile As Long
zielzeile = Sheets("Erledigte Aufträge").Range("A65536").End(xlUp).Offset(1, 0).Row
Sheets("Aktuelle Projekte 2005").Rows(quellzeile).Copy
Sheets("Erledigte Aufträge").Select
Rows(zielzeile).Select
Selection.PasteSpecial
Application.CutCopyMode = False
Sheets("Aktuelle Projekte 2005").Rows(quellzeile).Clear
Sheets("Aktuelle Projekte 2005").Activate
For i = 1 To 67
If quellzeile < i Then _
Range(i).Select
Selection.Copy
Range((i - 1)).Select
Selection.PasteSpecial
Next i
End Sub
Danke im vorraus...