Macro kürzen!?
lisa
Ich bräuchte mal eine Hilfestellung zu meinem Makro.
Kann man dieses Makro evtl. kürzen und beschleunigen?
Danke im Voraus!
Sub Makro9()
Range("BW6").FormulaR1C1 = _
"='[KW " & Range("bw3") & " _ tgl Linienkennzahlen.xls]" & Range("bw2").Text & "'! _
R13C8"
Range("BW7").FormulaR1C1 = _
"='[KW " & Range("bw3") & " _ tgl Linienkennzahlen.xls]" & Range("bw2").Text & "'! _
R14C8"
Range("BW8").FormulaR1C1 = _
"='[KW " & Range("bw3") & " _ tgl Linienkennzahlen.xls]" & Range("bw2").Text & "'! _
R15C8"
Range("BW9").FormulaR1C1 = _
"='[KW " & Range("bw3") & " _ tgl Linienkennzahlen.xls]" & Range("bw2").Text & "'! _
R16C8"
Range("BW10").FormulaR1C1 = _
"='[KW " & Range("bw3") & " _ tgl Linienkennzahlen.xls]" & Range("bw2").Text & "'! _
R17C8"
Range("BW11").FormulaR1C1 = _
"='[KW " & Range("bw3") & " _ tgl Linienkennzahlen.xls]" & Range("bw2").Text & "'! _
R18C8"
Range("BW12").FormulaR1C1 = _
"='[KW " & Range("bw3") & " _ tgl Linienkennzahlen.xls]" & Range("bw2").Text & "'! _
R19C8"
Range("BW13").FormulaR1C1 = _
"='[KW " & Range("bw3") & " _ tgl Linienkennzahlen.xls]" & Range("bw2").Text & "'! _
R20C8"
Range("BW14").FormulaR1C1 = _
"='[KW " & Range("bw3") & " _ tgl Linienkennzahlen.xls]" & Range("bw2").Text & "'! _
R21C8"
Range("BW15").FormulaR1C1 = _
"='[KW " & Range("bw3") & " _ tgl Linienkennzahlen.xls]" & Range("bw2").Text & "'! _
R22C8"
Range("BW16").FormulaR1C1 = _
"='[KW " & Range("bw3") & " _ tgl Linienkennzahlen.xls]" & Range("bw2").Text & "'! _
R23C8"
Range("BW17").FormulaR1C1 = _
"='[KW " & Range("bw3") & " _ tgl Linienkennzahlen.xls]" & Range("bw2").Text & "'! _
R24C8"
Range("BW18").FormulaR1C1 = _
"='[KW " & Range("bw3") & " _ tgl Linienkennzahlen.xls]" & Range("bw2").Text & "'! _
R25C8"
Range("BW19").FormulaR1C1 = _
"='[KW " & Range("bw3") & " _ tgl Linienkennzahlen.xls]" & Range("bw2").Text & "'! _
R26C8"
Range("BW20").FormulaR1C1 = _
"='[KW " & Range("bw3") & " _ tgl Linienkennzahlen.xls]" & Range("bw2").Text & "'! _
R27C8"
End Sub