Beschreibung verändert!!!
21.04.2007 13:33:36
Max
Vielleicht besser so:
ich hab mittlerweile rausgefunden wie man den öffnen-dialog bekommt. Auch wie ich ihn standardmässig auf einen Ordner stelle. Nämlich so:
Sub DateiAuswahl()
Dim WB As Workbook
Dim TB As Worksheet
Dim i%
Dim dName
Dim dFilter$
dFilter = "Excel-Dateien(*.xls), *.xls"
ChDrive "d"
ChDir "C:/Dokumente und Einstellungen\"
dName = Application.GetOpenFilename(dFilter)
If dName = False Then Exit Sub
Set WB = Workbooks.Open(dName)
Set TB = WB.Worksheets(1)
For i = 1 To 20
TB.Cells(i, 5) = "Spalte E - Zeile " & i
Next i
End Sub
ich möchte als standardordner gerne den ordner haben in der die bereits geöffnete datei auch ist. da die datei nicht nur auf meniem rechner laufen soll, sollte der pfad dynamisch sein. also auslesen wo das drin ist und dann dabei verwenden.
dann sollen die zellen in Spalte A markiert und kopiert werden, die gefüllt sind. anschliessend soll die neu geöffnete datei wieder geschlossen werden und die inhalte der zellen in der ursprungsdatei ab zeile 7 in spalte a eingefügt werden...
Danke!!