AW: Lösungsvorschlag VB
24.05.2005 08:56:17
Slugger
Hallo,
also die Glaskugel war schon mal keine schlechte Idee. Ok, mein Problem ist das ich nicht weiß wie ich VB das klarmache das es die Namen aus der Tabelle nimmt. Bisher habe ich das einfach mit einer Input Box gelößt. Nur bei 1000 Dateien ist das etwas umständlich. Ich müsste das irgendwie automatisieren wie in deinem Vorschlag, meine Kenntnisse reichen aber dafür noch lange nicht aus. Ich habe die Dateinamen erst mal in Tabelle2, SpalteD reinschreiben lassen.
Private Sub Cmdtest6_Click()
ActiveSheet.Unprotect ("xxx")
Dim i As Long
Dim nummer As String
Dim fs As FileSearch
nummer = InputBox("Bitte geben Sie die Artikelnummer an ", "Artikelnummer", "") // Hier das Problem //
Set fs = Application.FileSearch
With fs
.NewSearch
.LookIn = "H:\FT13\Artikeldatenbank\Saison\Sai112"
.SearchSubFolders = True
.Filename = nummer
.FileType = msoFileTypeExcelWorkbooks
.Execute
If .Execute() > 0 Then
MsgBox fs.FoundFiles.Count
For i = 1 To .FoundFiles.Count
MsgBox .FoundFiles.Item(i)
Workbooks.Open Filename:=.FoundFiles(i)
ActiveWorkbook.Worksheets("Formblatt").Range("B6:D6").Copy _
Destination:=Workbooks("artikelblatt-vordruck-Sai112.xls").Sheets("Formblatt").Range("B6:D6")
ActiveWorkbook.Worksheets("Formblatt").Range("L6").Copy _
Destination:=Workbooks("artikelblatt-vordruck-Sai112.xls").Sheets("Formblatt").Range("L6")
ActiveWorkbook.Worksheets("Formblatt").Range("B9:B13").Copy _
Destination:=Workbooks("artikelblatt-vordruck-Sai112.xls").Sheets("Formblatt").Range("B9:B13")
ActiveWorkbook.Worksheets("Formblatt").Range("D9:D13").Copy _
Destination:=Workbooks("artikelblatt-vordruck-Sai112.xls").Sheets("Formblatt").Range("D9:D13")
ActiveWorkbook.Worksheets("Formblatt").Range("F9:F13").Copy _
Destination:=Workbooks("artikelblatt-vordruck-Sai112.xls").Sheets("Formblatt").Range("F9:F13")
ActiveWorkbook.Worksheets("Formblatt").Range("H9:J13").Copy _
Destination:=Workbooks("artikelblatt-vordruck-Sai112.xls").Sheets("Formblatt").Range("H9:J13")
ActiveWorkbook.Worksheets("Formblatt").Range("H9:J9").Copy _
Destination:=Workbooks("artikelblatt-vordruck-Sai112.xls").Sheets("Formblatt").Range("J16:J18")
ActiveWorkbook.Worksheets("Formblatt").Range("L16").Copy _
Destination:=Workbooks("artikelblatt-vordruck-Sai112.xls").Sheets("Formblatt").Range("L16")
ActiveWorkbook.Worksheets("Formblatt").Range("N16").Copy _
Destination:=Workbooks("artikelblatt-vordruck-Sai112.xls").Sheets("Formblatt").Range("N16")
ActiveWorkbook.Worksheets("Formblatt").Range("L18").Copy _
Destination:=Workbooks("artikelblatt-vordruck-Sai112.xls").Sheets("Formblatt").Range("L18")
ActiveWorkbook.Worksheets("Formblatt").Range("N18").Copy _
Destination:=Workbooks("artikelblatt-vordruck-Sai112.xls").Sheets("Formblatt").Range("N18")
ActiveWorkbook.Worksheets("Formblatt").Range("B21:D21").Copy _
Destination:=Workbooks("artikelblatt-vordruck-Sai112.xls").Sheets("Formblatt").Range("B21:D21")
ActiveWorkbook.Worksheets("Formblatt").Range("F21").Copy _
Destination:=Workbooks("artikelblatt-vordruck-Sai112.xls").Sheets("Formblatt").Range("B24:N26")
ActiveWorkbook.Worksheets("Formblatt").Range("B29:D29").Copy _
Destination:=Workbooks("artikelblatt-vordruck-Sai112.xls").Sheets("Formblatt").Range("B29:D29")
ActiveWorkbook.Worksheets("Formblatt").Range("B32:D32").Copy _
Destination:=Workbooks("artikelblatt-vordruck-Sai112.xls").Sheets("Formblatt").Range("B32:D32")
ActiveWorkbook.Worksheets("Formblatt").Range("B35:D35").Copy _
Destination:=Workbooks("artikelblatt-vordruck-Sai112.xls").Sheets("Formblatt").Range("B35:D35")
ActiveWorkbook.Worksheets("Formblatt").Range("B38").Copy _
Destination:=Workbooks("artikelblatt-vordruck-Sai112.xls").Sheets("Formblatt").Range("B38")
ActiveWorkbook.Worksheets("Formblatt").Range("D38").Copy _
Destination:=Workbooks("artikelblatt-vordruck-Sai112.xls").Sheets("Formblatt").Range("D38")
ActiveWorkbook.Worksheets("Formblatt").Range("B41").Copy _
Destination:=Workbooks("artikelblatt-vordruck-Sai112.xls").Sheets("Formblatt").Range("B41")
ActiveWorkbook.Worksheets("Formblatt").Range("D41").Copy _
Destination:=Workbooks("artikelblatt-vordruck-Sai112.xls").Sheets("Formblatt").Range("F55:H57")
ActiveWorkbook.Worksheets("Formblatt").Range("J55:N57").Copy _
Destination:=Workbooks("artikelblatt-vordruck-Sai112.xls").Sheets("Formblatt").Range("J55:N57")
With ThisWorkbook
.SaveAs _
Filename:=i
.Close
End With
Next i
End If
End With
ActiveSheet.Protect ("xxx"), DrawingObjects:=False, Contents:=True, Scenarios:= _
True
End Sub
gruß Slugger