Virtual Basic -Umstellen-
01.12.2005 14:12:12
Oli
ich habe diese beiden Befehle. So müsste ich das nur so umstellen, dass ich nicht nur die zellen D4:D63 habe sondern solange wie in der Zelle auch ein Wert steht. Ist das so verständlich?
Range("D4").Select
ActiveCell.FormulaR1C1 = _
"=IF('Einnahmen 2005'!RC[-1]=""LVGA Magdeburg"",750,'Einnahmen 2005'!RC*'Abrechnung Anlage '!R2C7/100)"
Range("D4").Select
Selection.AutoFill Destination:=Range("D4:D63"), Type:=xlFillDefault
Range("D4:D63").Select
ActiveCell.FormulaR1C1 = _
"=IF('Einnahmen 2005'!RC[1]="""",""nicht bezahlt"",IF('Einnahmen 2005'!RC[-1]=""LVGA Magdeburg"",750,'Einnahmen 2005'!RC*'Abrechnung Anlage '!R2C7/100))"
Range("D4").Select
Selection.AutoFill Destination:=Range("D4:D63"), Type:=xlFillDefault
Range("D:D").Select