Clever-Excel-Forum

Moinsen ;)

ihr konntet mir letzte mal so gut helfen, da hab ich die Hoffnung das klappt nochmal ^^

folgendes Problem: ich hab eine Tabelle bei der ich in zeilen 3 bis 23 werte drin stehen hab, die ich gerne zur Sicherung nach unten kopieren möchte. die zeile soll aber nur kopiert werden, wenn wirklich etwas in Spalte A drin steht. im anschluss wird die liste oben gelöscht.
bisher konnte ich mit dem Recorder nur aufnehmen, dass die komplett Tabelle nach unten kopiert wird. ich bekomme das als laie nicht hin mit dem zähler und der abfrage obs leer ist.

Code:
   Rows("3:23").Select

    Selection.Copy

    ActiveWindow.SmallScroll Down:=15

    Rows("44:44").Select

    Selection.Insert Shift:=xlDown

    ActiveWindow.SmallScroll Down:=-18

    Rows("3:23").Select

    Application.CutCopyMode = False

    Selection.ClearContents

    Range("A3").Select

welches vba-genie kann mir helfen? :D
lieben dank im voraus !

Hallo,

Sub aaa()

  With Range("A3:A23").SpecialCells(xlCellTypeConstants)

    Rows(44).Resize(.Count).Insert Shift:=xlDown

    .EntireRow.Copy Range("A44")

    .Value = ""

  End With

End Sub

Gruß Uwe

wow klasse herzlichen dank ;)

funzt wie geschmiert ^^ Heart

Safety-Tussi

Kuwer

Safety-Tussi