Brauche hilfe !
24.09.2004 08:04:07
Matthias
Ich habe bei euch diesen quelcode gefunden habe ihn aber schon auf mein problemm umgestellt.
Sub open_PartlistPlates_Speichern_txt()
Dim awb As String
awb = ActiveWorkbook.Name
Application.Workbooks.Open ("T:\Na\lst\partlist1_****_****.csv")
Cells.Copy
Windows(awb).Activate
ActiveWorkbook.Worksheets("Parameter").Select
Cells.Select
ActiveSheet.Paste
End Sub
nun habe ich aber folgendes Prob. in dem ordner lst befinden sich eine ganze reihe von Datein die den Namen partlist1 enthalten.
Ich bräuchte es jetzt ein makro mit dem mann sich die partlist1 die man haben möchte aussuchen kann.
Die Dateien haben immer den namen wie foglt partlist1_Name_****_****
Bei ****_**** Steht immer die der name des Pc und welcher block
nun soll es möglich sein, egal welche Datei man sich von partlist1_****_**** auswählt, deren inhalt soll in die Excelmappe PartlistPlates_Speichern_txt kopiert werden
Bitte um eure hilfe
Danke schon mal im Vorraus
Mfg Matthias