Datei öffnen mit Berechnung
03.08.2004 10:03:02
Alex
habe folgenden Marko aufgezeichnet um die Formel neu berechnet werden.
Sub berechnen()
' berechnen Makro
' Makro am 03.08.2004 von GEW aufgezeichnet
' Sheets("Auftrags Statistik").Select
Range("B3").Select
ActiveCell.FormulaR1C1 = _
"=COUNTIF('[T2S-Daten 2003 T2S_ Störungen_Aufträge etc.xls]Aufträge RWE'!R4C2:R123C2,""ja 1"")"
Range("C3").Select
ActiveCell.FormulaR1C1 = _
"=COUNTIF('[T2S-Daten 2003 T2S_ Störungen_Aufträge etc.xls]Aufträge RWE'!R4C2:R123C2,""nein 1"")"
Range("D3").Select
ActiveCell.FormulaR1C1 = _
"=COUNTIF('[T2S-Daten 2003 T2S_ Störungen_Aufträge etc.xls]Aufträge RWE'!R4C2:R123C2,""erl 1"")"
Range("B4").Select
ActiveCell.FormulaR1C1 = _
"=COUNTIF('[T2S-Daten 2003 T2S_ Störungen_Aufträge etc.xls]Aufträge RWE'!R125C2:R569C2,""ja 2"")"
Range("C4").Select
ActiveCell.FormulaR1C1 = _
"=COUNTIF('[T2S-Daten 2003 T2S_ Störungen_Aufträge etc.xls]Aufträge RWE'!R125C2:R510C2,""nein 2"")"
Range("D4").Select
ActiveCell.FormulaR1C1 = _
"=COUNTIF('[T2S-Daten 2003 T2S_ Störungen_Aufträge etc.xls]Aufträge RWE'!R125C2:R535C2,""erl 2"")"
Range("B8").Select
ActiveCell.FormulaR1C1 = _
"=COUNTIF('[T2S-Daten 2003 T2S_ Störungen_Aufträge etc.xls]Aufträge Porz'!R4C2:R77C2,""ja 1"")"
Range("C8").Select
ActiveCell.FormulaR1C1 = _
"=COUNTIF('[T2S-Daten 2003 T2S_ Störungen_Aufträge etc.xls]Aufträge Porz'!R4C2:R77C2,""ja 1"")"
Range("D8").Select
ActiveCell.FormulaR1C1 = _
"=COUNTIF('[T2S-Daten 2003 T2S_ Störungen_Aufträge etc.xls]Aufträge Porz'!R4C2:R77C2,""erl 1"")"
Range("B9").Select
ActiveCell.FormulaR1C1 = _
"=COUNTIF('[T2S-Daten 2003 T2S_ Störungen_Aufträge etc.xls]Aufträge Porz'!R79C2:R300C2,""ja 2"")"
Range("C9").Select
ActiveCell.FormulaR1C1 = _
"=COUNTIF('[T2S-Daten 2003 T2S_ Störungen_Aufträge etc.xls]Aufträge Porz'!R79C2:R300C2,""nein 2"")"
Range("D9").Select
ActiveCell.FormulaR1C1 = _
"=COUNTIF('[T2S-Daten 2003 T2S_ Störungen_Aufträge etc.xls]Aufträge Porz'!R79C2:R300C2,""erl 2"")"
End Sub
das problem ist das er vorher die Mappe mit dem Pfad :
\\T04P\Daten$\T2\T2S\T2S-Instandsetzung,Wartung,Neubau\T2S-Allgemeine Verwaltung\T2S-Aufträge\[T2S-Daten 2003 T2S_ Störungen_Aufträge etc.xls
öffen soll bevor er die Bernung statet möchte also mit dem oben stehenden Makro erst die Datei öffnen und dann die Berechnung der Fpormeln starten.
wer kann mir da helfen.
Vielen Dank im Vorraus
Alex