Makro in fortlaufende Zielzellen ausführen?

...komplette Frage anzeigen

1 Antwort

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

Was möchtest Du wissen?