AW: Makro automatisch erweitern?
23.01.2006 15:44:51
Roman
Hallo Martin,
Vielen Dank erstmal für deine Hilfe. Hier mal eines der Makros, die ich jetzt derweilen manuell weitergeführt habe:
Sub neuerechnung1()
Workbooks.Add Template:="G:\TEMPLATE\Finanzwesen\Rechnung.xlt"
Range("A11:E11").Select
ActiveCell.FormulaR1C1 = "=[Datenbank.xls]Tabelle1!R2C2"
Range("A12:E12").Select
ActiveCell.FormulaR1C1 = "=[Datenbank.xls]Tabelle1!R2C3"
Range("A13:E13").Select
ActiveCell.FormulaR1C1 = "=[Datenbank.xls]Tabelle1!R2C4"
Range("A15:E15").Select
ActiveCell.FormulaR1C1 = "=[Datenbank.xls]Tabelle1!R2C5"
Range("I11:J11").Select
ActiveCell.FormulaR1C1 = "=[Datenbank.xls]Tabelle1!R2C1"
Range("I14:J14").Select
ActiveCell.FormulaR1C1 = "=[Datenbank.xls]Tabelle1!R2C6"
Range("A23").Select
End Sub
Ist wahrscheinlich selbsterklärend, also diese Makros stehen in der "Datenbank"
Dann klicke ich auf die Schaltfläche Rechnung neu, dieses Makro öffnet mir dann meine Rechnungsvorlage und füllt automatisch die in der Datenbank hinterlegten Felder aus.
Jetzt habe ich mal die Zellen kopiert bis 400, also ca. 200 Schaltflächen, die haben aber alle das gleiche Makro. klar. Jetzt habe ich mir gedacht, dass man doch bestimmt das Makro auch kopieren kann wie einzelne Zellen, oder Berechnungen, die auch automatisch fortgesetzt werden. Der Bezug geht immer in die gleiche Spalte, die Zeilen sollten jedes mal um +2 erweitert werden. also das nächste wäre dann
Public
Sub neuerechnung2()
Workbooks.Add Template:="G:\TEMPLATE\Finanzwesen\Rechnung.xlt"
Range("A11:E11").Select
ActiveCell.FormulaR1C1 = "=[Datenbank.xls]Tabelle1!R4C2"
Range("A12:E12").Select
ActiveCell.FormulaR1C1 = "=[Datenbank.xls]Tabelle1!R4C3"
Range("A13:E13").Select
ActiveCell.FormulaR1C1 = "=[Datenbank.xls]Tabelle1!R4C4"
Range("A15:E15").Select
ActiveCell.FormulaR1C1 = "=[Datenbank.xls]Tabelle1!R4C5"
Range("I11:J11").Select
ActiveCell.FormulaR1C1 = "=[Datenbank.xls]Tabelle1!R4C1"
Range("I14:J14").Select
ActiveCell.FormulaR1C1 = "=[Datenbank.xls]Tabelle1!R4C6"
Range("A23").Select
End Sub
das näcshte dann R6, R8, R10 et cetera...
Es hat sich nur das nächste Problem aufgetan, weil ich in der 2. Tabelle einen Lieferschein für die in der ersten Tabelle aufgeführte Rechnung habe. in diesem Lieferschein beziehen sich die Adresszellen jedoch auf Zellen in der Rechnung, die ebenfalls mit einem Fernbezug belegt sind, nämlich dem, das dieses Makro ausführt.
Vielen Dank nochmal,
Roman