wenn dann sonst in VBA
20.12.2003 19:07:16
Jonathan
ich habe folgendes Problem:
ich möchte mit Hilfe eines MAkros Dateien öffen. Und zwar folgendermaßen:
Wenn in Zelle A1 "2003" steht, dann soll Datei A geöffnet werden,
wenn in Zelle A1 "2004" steht, soll Datei B geöffnet werden, usw.......
Nun habe ich das wie folgt gemacht:
If _
Sheets("Haupt").Range("A1") = 2003 Then _
ChDir "Pfad XY 2003"
Workbooks.Open Filename:= _
"Pfad XY 2003" _
, UpdateLinks:=3
Windows("XY").Activate
If _
Sheets("Haupt").Range("O5") = 2004 Then _
ChDir "Pfad XY 2004"
Workbooks.Open Filename:= _
"Pfad XY 2004" _
, UpdateLinks:=3
Windows("XY").Activate
Nun öffnet der aber immer direkt die erste Datei, auch wenn der Wert nicht gleich 2003 ist und geht dann in den Debugger-Modus.........
Was ist daran falsch?