Zeile löschen verhindern

31/01/2009 - 03:11 von Willy Steffen | Report spam
Guten Tag
Ich habe ein Problem, der folgende code funktioniert nur einmal. Beim 2ten
mal kriege ich einen Fehler, dass gefüllte Zellen nicht über das
Arbeitsblatt hinaus kopiert werden kann, um einen Datenverlust zu vermeiden.
Wenn ich nun das Arbeitsblatt speichere, kann ich wieder nur einmal die
Funktion gebrauchen. In einer neuer Mappe hingegen funktioniert es
einwandfrei. Kann mir da jemand helfen?
Vielen Dank im Voraus
Willy
Hier den Code:
Sub ZeileEinfügen()
' LinieEinfuegen Makro,
Dim Zeile As Long
Zeile = ActiveCell.Row
'Das kopieren geht nur von oben nach unten, d.h. ab Zeile 7
If Zeile < 7 Then Exit Sub
'Zeile einfügen
ActiveCell.EntireRow.EntireRow.Insert
'Kopieren des Inhaltes I der oben anschliessenden Zeile _
in die Eingefügte
Range("I" & Zeile - 1).Copy Destination:=Range("I" & Zeile)
'Zelle K und L nach unten kopieren
Range("K" & Zeile - 1 & ":L" & Zeile - 1).Copy _
Destination:=Range("K" & Zeile)
'Kalenderwochen nach unten kopieren
Range(Range("R" & Zeile - 1), Cells(Zeile - 1, Columns.Count)).Copy _
Destination:=Range("R" & Zeile)
'auf die Position der Spalte A der eingefügten Zeile gehen
Range("A" & Zeile).Select
End Sub
 

Lesen sie die antworten

#1 Eberhard Funke
31/01/2009 - 17:43 | Warnen spam
Am Fri, 30 Jan 2009 18:11:02 -0800 schrieb Willy Steffen:

Hallo Willy,

Deine Problembeschreibung passt nicht zu dem Header. Hast Du da was
verwechselt? Ich habe Deinen Code kopiert und fünfmal anstandslos laufen
lassen.

Mit freundlichen Grüssen Eberhard
XP home XL 2000
Eberhard(punkt)W(punkt)Funke(at)t-online.de

Ähnliche fragen