AW: Makrostartpunkt
20.08.2004 09:22:55
Tim
Sub AED_TUID()
' AED_TUID Makro
' Makro am 20.08.2004 von T010861 aufgezeichnet
' Range("F3").Select
ActiveCell.FormulaR1C1 = _
"=IF('[Lieferung der Tui AG.xls]Daten Tui AG'!R7C4=""F"",'[Lieferung der Tui AG.xls]Daten Tui AG'!R7C8,0)"
Range("F4").Select
ActiveCell.FormulaR1C1 = _
"=IF('[Lieferung der Tui AG.xls]Daten Tui AG'!R7C4=""V"",'[Lieferung der Tui AG.xls]Daten Tui AG'!R7C8,0)"
Range("F5").Select
ActiveCell.FormulaR1C1 = _
"=IF('[Lieferung der Tui AG.xls]Daten Tui AG'!R7C4=""F"",'[Lieferung der Tui AG.xls]Daten Tui AG'!R7C8,0)"
Range("F6").Select
ActiveCell.FormulaR1C1 = _
"=IF('[Lieferung der Tui AG.xls]Daten Tui AG'!R7C4=""V"",'[Lieferung der Tui AG.xls]Daten Tui AG'!R7C8,0)"
Range("G3").Select
ActiveCell.FormulaR1C1 = _
"=IF('[Lieferung der Tui AG.xls]Daten Tui AG'!R7C4=""V"",'[Lieferung der Tui AG.xls]Daten Tui AG'!R7C8,0)"
Range("G4").Select
ActiveCell.FormulaR1C1 = _
"=IF('[Lieferung der Tui AG.xls]Daten Tui AG'!R7C4=""F"",'[Lieferung der Tui AG.xls]Daten Tui AG'!R7C8,0)"
Range("G5").Select
ActiveCell.FormulaR1C1 = _
"=IF('[Lieferung der Tui AG.xls]Daten Tui AG'!R7C4=""V"",'[Lieferung der Tui AG.xls]Daten Tui AG'!R7C8,0)"
Range("G6").Select
ActiveCell.FormulaR1C1 = _
"=IF('[Lieferung der Tui AG.xls]Daten Tui AG'!R7C4=""F"",'[Lieferung der Tui AG.xls]Daten Tui AG'!R7C8,0)"
Range("H3").Select
ActiveCell.FormulaR1C1 = _
"=IF('[Lieferung der Tui AG.xls]Daten Tui AG'!R7C4=""F"",'[Lieferung der Tui AG.xls]Daten Tui AG'!R7C6,0)"
Range("H4").Select
ActiveCell.FormulaR1C1 = _
"=IF('[Lieferung der Tui AG.xls]Daten Tui AG'!R7C4=""V"",'[Lieferung der Tui AG.xls]Daten Tui AG'!R7C6,0)"
Range("H5").Select
ActiveCell.FormulaR1C1 = _
"=IF('[Lieferung der Tui AG.xls]Daten Tui AG'!R7C4=""F"",'[Lieferung der Tui AG.xls]Daten Tui AG'!R7C8,0)"
Range("H6").Select
ActiveCell.FormulaR1C1 = _
"=IF('[Lieferung der Tui AG.xls]Daten Tui AG'!R7C4=""V"",'[Lieferung der Tui AG.xls]Daten Tui AG'!R7C8,0)"
Range("I3").Select
ActiveCell.FormulaR1C1 = _
"=IF('[Lieferung der Tui AG.xls]Daten Tui AG'!R7C4=""V"",'[Lieferung der Tui AG.xls]Daten Tui AG'!R7C6,0)"
Range("I4").Select
ActiveCell.FormulaR1C1 = _
"=IF('[Lieferung der Tui AG.xls]Daten Tui AG'!R7C4=""F"",'[Lieferung der Tui AG.xls]Daten Tui AG'!R7C6,0)"
Range("I5").Select
ActiveCell.FormulaR1C1 = _
"=IF('[Lieferung der Tui AG.xls]Daten Tui AG'!R7C4=""V"",'[Lieferung der Tui AG.xls]Daten Tui AG'!R7C8,0)"
Range("I6").Select
ActiveCell.FormulaR1C1 = _
"=IF('[Lieferung der Tui AG.xls]Daten Tui AG'!R7C4=""F"",'[Lieferung der Tui AG.xls]Daten Tui AG'!R7C8,0)"
Range("F3").Select
End Sub