Hallo,
hab wieder ein kleine Problem, ich möchte per macro einen Bereich markieren und die Formeln in jede dritte Zeile kopieren bis ans Tabellenende. Die Lange der Tabelle kann unterschiedlich sein.
Im beispiel unten möchte ich den Bereich F5:K5 jeweils in F8:K8, F11:K11, F14:K14 usw kopieren.
Hat da jemand eine Idee für mich?
Vielen Dank schon mal
Martina
Hier ein Beispiel
Hallo Martina
Versuchs mal damit:
zletzte = ActiveSheet.UsedRange.Rows.Count
For r = 8 To zletzte
If r > zletzte Then GoTo finis
Range("F5:K5").Copy Destination:=Cells(r, 6)
r = r + 2
Next r
finis:
Application.CutCopyMode = False
Dazu muss ich sagen: Die Bestimmung des Tabellenendes mit zletzte ist nicht immer so, wie man es gerne hätte. Angenommen, meine letzten Daten befinden sich in Zeile 32. Ich lösche den Inhalt von Zeile 30 bis 32. Oft gibt dann zletzte die Zeile 29 als letzte aus (was ja korrekt ist), oft aber Zeile 32, obwohl die Zellen leer sind. - Das Tabellenende wird mit zletzte dann korrekt ausgegeben, wenn man einmal benutzte, jetzt aber leere Zeilen am Tabellenende markiert und Zeilen löschen wählt und die Datei speichert.
Es gibt Prozeduren, um das Tabellenende immer „korrekt“ zu bestimmen, aber die sind sehr aufwändig.
Ich hoffe, das klappt bei Dir, und schicke viele Grüsse
Niclaus
NACHTRAG
Die Zeile
If r > zletzte Then GoTo finis
ist überflüssig, die kannst Du löschen!
Niclaus