Zellen kompieren und darunter einfügen
05.08.2022 12:43:13
Bender
ich möchte folgendens mit meinem Makro bewirken:
Die Zellen H9:I9 werden selbstständig ausgefüllt, soweit funktioniert das Ganze.
Nun soll ab H9:I10 kopiert werden und in H10:I10 eingetragen werden.
Diese Funktion soll laufen bis er in der Spalte C keinen Wert mehr finden kann, sprich ab C10 bis open end.
Den ersten Schritt zum Kopieren habe ich manuell eingefügt im Makro.
Range("E9").Select
Selection.Copy
Windows("Teileübersicht_Makro.xlsx").Activate
ActiveSheet.Range("$A$1:$I$7").AutoFilter Field:=6, Criteria1:="E9"
Windows("Kapaliste_Makro.xlsm").Activate
Range("H9").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "=RC[-2]*[Teileübersicht_Makro.xlsx]Tabelle1!R5C8/60"
Range("I9").Select
ActiveCell.FormulaR1C1 = "=RC[-3]*[Teileübersicht_Makro.xlsx]Tabelle1!R6C8/60"
Range("J9").Select
ActiveCell.FormulaR1C1 = "=RC[-4]*[Teileübersicht_Makro.xlsx]Tabelle1!R7C8/60"
Range("J10").Select
Windows("Teileübersicht_Makro.xlsx").Activate
ActiveSheet.Range("$A$1:$I$7").AutoFilter Field:=6
Windows("Kapaliste_Makro.xlsm").Activate
Range("H9:J9").Select
Selection.Copy
Range("H10:H100").Select
ActiveSheet.Paste