Eingabefeld: Datei öffnen
25.04.2005 10:13:37
Fabek
komme nicht weiter. Ich würde gerne in einer Datei "Projekt1" mit der Prozedur "Datei öffnen" den Pfad vorgeben und in einem Eingabefeld dann nur noch den Dateinamen eingeben. Dadurch wird diese Datei geöffnet, das activesheet ausgewählt und die usedrange kopiert und in ein bestimmtes sheet von Projekt 1 eingefügt. Habe es schon selbst versucht...
Sub Datei_öffnen()
Datei = Application.GetOpenFilename(, , "Datei auswählen", , False)
If Datei = Empty Then Exit Sub
Workbooks.Open ("")
Datei = ActiveWorkbook.Name
Worksheet("Dez04").Select
Range("A1").Select
Selection.Copy
Windows("").Select
with
End Sub
Klappt nicht so richtig. Jemand eine Idee? Das wäre toll.
VGm Fabek