ich habe in einer Tabelle eine variabele Anzahl von Werten die x-mal (Wert steht in der Tabelle) kopiert werden sollen. Dabei handelt es sich um maximal 10 Werte.
Da ich aber keine Lust habe leere Zellen kopieren zu lassen habe ich folgendes versucht, bekomme den Code aber nicht zum laufen.
If Range("A10").Value <> "" Then
ActiveCell.Offset(1, 0).Activate
variablenname = ActiveCell.Address
Range("A10").Activate
Selection.Copy
Range(variablenname).Select
Selection.PasteSpecial Paste:=xlValues
Dim i1 As Integer
Dim Ende1 As Integer
Ende1 = Range("D2").Value - 1
For i1 = 1 To Ende
ActiveCell.Offset(1, 0).Activate
Selection.FillDown
Else
Next
Kann mir jemand sagen wie ich if und for verbinden muß? damit es funktioniert?
Danke
Dirk