13.03.2017, 10:45
Hallo noch mal
Ich hab jetzt viel versucht und ich beschreibe mein Problem jetzt mal etwas genauer
Ich habe eine Hauptdatei in welche sich in der Spalte A der Dateiname (AD 009 oder AD 004)für mein Produkt steht
In der Spalte L steht die Serial nummer (zb.: 123456)
Alle meine Datein für jedes Produkt sind auch alles Excel Datein im Ordner c:\test
Jetzt will ich das ich in meiner Hauptdatei per schaltflache ein userform mit einer TextBox oder so habe wo ich meine Serial nummer reinschreiben kann und per ok button danach suchen lassen kann und gleich öffnen.
Private Sub CommandButton4_Click()
Dim wb As Workbook
Dim lngZ As Long
Dim strFileName
Dim strFilter As String
strFilter = "Excel-Dateien(*.xl*), *.xl*"
ChDrive "c"
ChDir "c:\test"
strFileName = Application.GetOpenFilename(strFilter)
If strFileName = False Then Exit Sub
Set wb = Workbooks.Open(strFileName)
End Sub
Das hätte sich schon aber ich will das er meine number aus textbox 1 nimmt und dannach sucht und gleich öffnet
Ich hab jetzt viel versucht und ich beschreibe mein Problem jetzt mal etwas genauer
Ich habe eine Hauptdatei in welche sich in der Spalte A der Dateiname (AD 009 oder AD 004)für mein Produkt steht
In der Spalte L steht die Serial nummer (zb.: 123456)
Alle meine Datein für jedes Produkt sind auch alles Excel Datein im Ordner c:\test
Jetzt will ich das ich in meiner Hauptdatei per schaltflache ein userform mit einer TextBox oder so habe wo ich meine Serial nummer reinschreiben kann und per ok button danach suchen lassen kann und gleich öffnen.
Private Sub CommandButton4_Click()
Dim wb As Workbook
Dim lngZ As Long
Dim strFileName
Dim strFilter As String
strFilter = "Excel-Dateien(*.xl*), *.xl*"
ChDrive "c"
ChDir "c:\test"
strFileName = Application.GetOpenFilename(strFilter)
If strFileName = False Then Exit Sub
Set wb = Workbooks.Open(strFileName)
End Sub
Das hätte sich schon aber ich will das er meine number aus textbox 1 nimmt und dannach sucht und gleich öffnet