Ausschneiden einfügen
07.02.2006 09:19:57
Otto
ich habe folgendes selbst gemacht.
Sub Datenkopieren()
Dim lEnd As Long
Sheets("Formeln").Select
Range("B16").Select
Application.CutCopyMode = False
Selection.Cut
Sheets("Dateneingabe").Select
lEnd = Range("B65536").End(xlUp).Row + 1
Cells(lEnd, 2) = ActiveSheet.Paste
End Sub
Er schneidet die Daten auch ordentlich aus, allerdings überschreibt er letztendlich die Zelle und schreibt wahr rein. Was ist falsch?
MfG
Steve