zieldatei an code übergeben
16.04.2006 13:28:03
selo
ich öffne mittels code eine datei ziehe hieraus werte und schließe diese wieder
Private Sub Workbook_Open()
Workbooks.Open Filename:="C:\Dokumente und Einstellungen\planung.xls"
With Workbooks("planung.xls").Sheets("Tabelle1")
.Columns("A:o").Copy Workbooks("test.xls").Sheets("Tabelle1").Range("b1")
End With
Worksheets("tabelle2").Workbook_close
End Sub
das problem ist jedoch,wenn ich dieses xlfile auf andere rechner kopiere immer eine änderund des codes vollziehen muß nun ist die frage, ob ich mittels userform die datei suchen lassen kann und das der code hier auf die gewählte datei zugreift. wie kann ich dies realisieren?
danke im voraus
selo