ich lasse mit dem Code eine Inputbox erscheinen. Darin wird ein Name einer Datei eingetragen (z. B. Test). Nun soll er mir die Datei öffnen und mir eine Zelle in meine gerade geöffnete Arbeitsmappe kopieren. Das Problem dabei ist, das sich der Name wie oben benannt "Test" ändern kann. Hierfür habe ich die Variable "Nummer". Nur wie gebe ich diese an wenn er zwischen den beiden Mappen wechselt?
Private Sub CommandButton3_Click() 'Artikelblatt öffnen
Dim i As Long
Dim nummer As String
nummer = InputBox("Bitte geben Sie die Artikelnummer an ", "Artikelnummer", "")
With Application.FileSearch
.LookIn = "H:\FT13\BERICHTE\Artikeldatenbank\Sai112"
.SearchSubFolders = True
.Filename = nummer & ".xls"
If .Execute() > 0 Then
For i = 1 To .FoundFiles.Count
MsgBox .FoundFiles.Item(i)
Workbooks.Open Filename:=.FoundFiles(i)
Windows(nummer).select #### Hier das Problem #####
Range("B6:D6").Select
Selection.Copy
Windows(Artikelblatt-vordruck).select
Sheets("Formblatt").Select
ActiveWindow.SmallScroll Down:=-33
Range("B6:D6").Select
ActiveSheet.Paste
MsgBox "copy successfully", vbExclamation, "Status"
Next i
End If
End With
End Sub
Gruß
Slugger