AW: Zellen zählen
08.07.2012 15:28:52
Thomas
Hallo Franz, vielen Dank für die Antwort, ich hatte schon die Befürchtung, dass sich niemand meldet...
ich hoffe ich kann dieses Mal das Forum richtig haendeln. Also noch einmal.....
Formel: =WENN(D8>1;D10-D6;0) oder =WENN(Z(-1)S>1;Z(1)S-Z(-3)S;0)
Code:
Sub MakroTI()
' MakroTI Makro
Range("D6").Select
ActiveCell.FormulaR1C1 = "=IF(R[-1]C,R[-1]C,0)"
Range("D9").Select
ActiveCell.FormulaR1C1 = "=IF(R[1]C-R[-3]C,R[1]C-R[-3]C,0)"
Range("D13").Select
ActiveCell.FormulaR1C1 = "=IF(R[-1]C>1,R[1]C-R[-3]C,0)"
Range("D17").Select
ActiveCell.FormulaR1C1 = "=IF(R[-1]C>1,R[1]C-R[-3]C,0)"
Range("D21").Select
ActiveCell.FormulaR1C1 = "=IF(R[-1]C>1,R[1]C-R[-3]C,0)"
Range("D25").Select
ActiveCell.FormulaR1C1 = "=IF(R[-1]C>1,R[1]C-R[-3]C,0)"
Range("D29").Select
ActiveCell.FormulaR1C1 = "=IF(R[-1]C>1,R[1]C-R[-3]C,0)"
Range("D33").Select
ActiveCell.FormulaR1C1 = "=IF(R[-1]C>1,R[1]C-R[-3]C,0)"
Range("D34").Select
Range("E5").Select
ActiveCell.FormulaR1C1 = "=IF(R[-1]C>1,R[1]C-R[-3]C,0)"
Range("E5").Select
ActiveCell.FormulaR1C1 = "=IF(R[1]C-R[25]C[-1],R[1]C-R[25]C[-1],0)"
Range("E9").Select
ActiveCell.FormulaR1C1 = "=IF(R[-1]C>1,R[1]C-R[-3]C,0)"
Range("E13").Select
ActiveCell.FormulaR1C1 = "=IF(R[-1]C>1,R[1]C-R[-3]C,0)"
Range("E17").Select
ActiveCell.FormulaR1C1 = "=IF(R[-1]C>1,R[1]C-R[-3]C,0)"
Range("E21").Select
ActiveCell.FormulaR1C1 = "=IF(R[-1]C>1,R[1]C-R[-3]C,0)"
Range("E25").Select
ActiveCell.FormulaR1C1 = "=IF(R[-1]C>1,R[1]C-R[-3]C,0)"
Range("E29").Select
ActiveCell.FormulaR1C1 = "=IF(R[-1]C>1,R[1]C-R[-3]C,0)"
Range("E33").Select
ActiveCell.FormulaR1C1 = "=IF(R[-1]C>1,R[1]C-R[-3]C,0)"
Range("E34").Select
Range("F5").Select
ActiveCell.FormulaR1C1 = "=IF(R[-1]C>1,R[1]C-R[-3]C,0)"
Range("F5").Select
ActiveCell.FormulaR1C1 = "=IF(R[1]C-R[25]C[-1],R[1]C-R[25]C[-1],0)"
Range("F9").Select
ActiveCell.FormulaR1C1 = "=IF(R[-1]C>1,R[1]C-R[-3]C,0)"
Range("F13").Select
ActiveCell.FormulaR1C1 = "=IF(R[-1]C>1,R[1]C-R[-3]C,0)"
Range("F17").Select
ActiveCell.FormulaR1C1 = "=IF(R[-1]C>1,R[1]C-R[-3]C,0)"
Range("F21").Select
ActiveCell.FormulaR1C1 = "=IF(R[-1]C>1,R[1]C-R[-3]C,0)"
Range("F25").Select
ActiveCell.FormulaR1C1 = "=IF(R[-1]C>1,R[1]C-R[-3]C,0)"
Range("F29").Select
ActiveCell.FormulaR1C1 = "=IF(R[-1]C>1,R[1]C-R[-3]C,0)"
'Sprung auf Zelle
Range("D6").Select
Do Until ActiveCell.Value = Empty
Exit Do
Loop
End Sub
____________
Die Datei kann ich nicht uploaden - weis nicht wie's geht bzw. finde den Link nicht.
Gruss Thomas