Makro in fortlaufende Zielzellen ausführen?

Hi Leute,

ich möchte folgendes in einer Exceltabelle realisieren:

In einer Zelle C6 ist ein Wert und in Zelle D6 ist ein Wert. Das Makro soll diese Wertebei klick in fortlaufende Zeilen Kopieren, sodass quasi eine Auflistung der Werte entsteht.

Bsp.: Ich klicke auf den Button, das Makro schreibt die Werte von C6 und D6 in C20 und D20. Nun ändern sich die Werte von C6 und D6. Ich klicke jetzt wieder auf den Button und das Makro schreibt die Werte aus C6 und D6 dieses mal in C21 und D21, damit die anderen nicht überschrieben werden.

Gibt es da eine Möglichkeit das umzusetzen?

Beste Grüße Melina

Answer 1

[Suboptimierer]

Sub Schaltfläche1_Klicken()
  Dim iZeile
  iZeile = 20
  If Range("C20").Value <> "" Then _
    iZeile = Range("C32000").End(xlUp).Row + 1
  Range("C" & iZeile & ":D" & iZeile).Value = Range("C6:D6").Value
End Sub

Comments

[MelinaHonig]

Danke! :)

[Suboptimierer]

@MelinaHonig

Bitteschön!