Fenster für dateiauswahl

Computer: Software & Programmierung Visual Basic
#1

ich hab ein macro geschrieben (mit tatkräftiger unterstützung, von dieser stelle: danke!), um eine berechnung x-mal durchzuführen.

For n = 1 To Range(„A65536“).End(xlUp).Row
Windows(„Mappe2.xls“).Activate
Range(„A“ & n & „:F“ & n).Copy
Windows(„Mappe1.xls“).Activate
Range(„B4:G4“).Select
ActiveSheet.Paste
Range(„A31“).Select
Selection.Copy
Workbooks.Open FileName:= _
„C:\Dokumente und Einstellungen\Ausgabe.xls“
Range(„A“ & n).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
ActiveWorkbook.Save
ActiveWindow.Close
Next n
End Sub

jetzt würde ich es gern sehen, dass ich gefragt werde, aus welcher datei die daten genommen werden sollen, und wohin sie eingefügt werden sollen. (also welche datei mappe 1 entsprechen soll, welche mappe 2…)
kann mir da auch noch jemand weiterhelfen?

kirsten

#2

jetzt würde ich es gern sehen, dass ich gefragt werde, aus
welcher datei die daten genommen werden sollen, und wohin sie
eingefügt werden sollen. (also welche datei mappe 1
entsprechen soll, welche mappe 2…)

Hi Kirsten,
ich habe den Code nicht so ganz verstanden, mal als Ansatz nachfolgender Code
Gruß
Reinhard

Sub tt()
wbQ = Application.GetOpenFilename("Mappe1=Quelle (\*.xls), \*.xls")
wbZ = Application.GetOpenFilename("Mappe2=Ziel (\*.xls), \*.xls")
Set wsHaupt = ThisWorkbook.ActiveSheet
Workbooks.Open Filename:="C:\Dokumente und Einstellungen\Ausgabe.xls"
Set ws2 = ActiveWorkbook.Worksheets(1)
n = wsHaupt.Range("A65536").End(xlUp).Row
Workbooks(wbQ).Worksheets(1).Range("A1:F" & n).Copy \_
 Destination:=Workbooks(wbZ).Worksheets(1).Range("B4")
wert = wsHaupt.Range("A31").Value
ws2.Range("A1:A" & n) = wert
ws2.Save
End Sub