Re: Mehr Informationen bitte
28.06.2002 11:06:26
Sven
Bitte nicht erschrecken, ich hab dir nun mal den kompletten
Quellcode dieses Moduls zukommen lassen.
Hier wérden Formeln hinzugefügt und die letzte Spalte RDG
formatiert.Is eigentlich nicht so komplizert.
Dim tabellenende2, tabellen_fast_ende, zellenanzahl
tabellenende2 = 8
Do While Worksheets("Tabelle2").Range("A" & tabellenende2) <> ""
tabellenende2 = tabellenende2 + 1
Loop
tabellen_fast_ende = 8
tabellen_fast_ende = tabellenende2 - 1
zellenanzahl = tabellenende2 - 8
Range("B" & tabellenende2).Select
ActiveCell.FormulaR1C1 = "=SUM(R[-" & zellenanzahl & "]C:R[-1]C)"
Range("C" & tabellenende2).Select
ActiveCell.FormulaR1C1 = "=SUM(R[-" & zellenanzahl & "]C:R[-1]C)"
Range("D" & tabellenende2).Select
ActiveCell.FormulaR1C1 = "=RC[-1]/RC[-2]"
Range("E" & tabellenende2).Select
ActiveCell.FormulaR1C1 = "=SUM(R[-" & zellenanzahl & "]C:R[-1]C)"
Range("F" & tabellenende2).Select
ActiveCell.FormulaR1C1 = "=RC[-1]/RC[-4]"
Range("G" & tabellenende2).Select
ActiveCell.FormulaR1C1 = "=SUM(R[-" & zellenanzahl & "]C:R[-1]C)"
Range("H" & tabellenende2).Select
Selection.FormulaR1C1 = "="
Range("H" & tabellenende2).Select
ActiveCell.FormulaR1C1 = "=SUM(R[-" & zellenanzahl & "]C:R[-1]C)"
Range("I" & tabellenende2).Select
ActiveCell.FormulaR1C1 = "=SUM(R[-" & zellenanzahl & "]C:R[-1]C)"
Range("J" & tabellenende2).Select
ActiveCell.FormulaR1C1 = "=SUM(R[-" & zellenanzahl & "]C:R[-1]C)"
Range("K" & tabellenende2).Select
ActiveCell.FormulaR1C1 = "=RC[-1]/RC[-9]"
Sheets("Tabelle2").Select
Range("A" & tabellenende2).Select
ActiveCell.Value = "RDG"