Hallo,
ganz dumme Frage: Ich will die mit Sheets beginnende Zeile i mal ausführen lassen (also die Zeile i mal untereinander kopieren), je nach der Eingabe in B47 - wie mache ich das?
Dim i As Integer
i = Sheets("Veranstaltung").Range("B47").Value
zeilz = Sheets("Ergebnisse").UsedRange.Rows.Count
Sheets("Ergebnisse").Range("a2:ad2").Copy Sheets("Ergebnisse").Cells(zeilz + 1, 1)
Vielen Dank im voraus
asz