Auslesen aus verschiedenen Dateien
27.09.2004 20:20:13
Eva
beim folgenden Code habe ich Probleme. Wie kann ich geschickt Bezug zu meiner Quelldatei nehmen, von der die Werte der Suchzelle und Suchzelle 1 "kopiert" werden? Die Zieldatei habe ich schon angesprochen(?).
Danke sehr für die Hilfe.Eva
Private Sub Standortziele_Auslesen()
Dim Datei As String, suchzelle As String, suchzelle1 As String, suchzelle2 As String
Datei = "F:\Excel_Vba\[1276.xls]"
suchzelle = "Overview'!R9C13"
suchzelle1 = "Overview'!R13C13"
suchzelle2 = "Overview'!R8C3"
[a60000] = Application.ExecuteExcel4Macro(Datei & suchzelle)
[a60001] = Application.ExecuteExcel4Macro(Datei & suchzelle1)
If [a60000] < [a60001] Then Range("M44") = Application.ExecuteExcel4Macro(Datei & suchzelle2)
End Sub
Anzeige