Hallo zusammen und erstmal ein Frohes neues Jahr,
ich bräuchte bei der Umsetzung dieser Suche hilfe.
Ich möchte gerne mit meiner userForm (siehe Bild im Anhang) nach Dateinamen oder Nummern suchen. Die Nummern und Dateinamen sind immer Variabel.
Es soll in einem bestimmten Ordner nach den Dateien gesucht werden. Macht es hier einen Unterschied wenn dieser noch Unterordner beinhaltet?
Der Aufbau der Dateinamen sieht wie folgt aus: PP 8.2.4-5-13 Name (68900 68901 68905 68902).xlsm
Das heißt wenn ich eine von den Zahlen in der Klammer eingebe, soll mir die Datei angezeigt werden. Dasselbe gilt für die Eingabe des Namen.
Ist es möglich mir die Vorschläge die gefunden wurden in einem Fenster zb. als Liste anzuzeigen damit ich das richtige auswählen kann und die Datei sich mit einem Doppelklick dann öffnet?
Als Info noch, meine VBA Kenntnisse sind noch bei den Basics
Vielen Dank für eure Tipps und Hilfe
Edit:
Hier mal mein bisheriger Code:
ich bräuchte bei der Umsetzung dieser Suche hilfe.
Ich möchte gerne mit meiner userForm (siehe Bild im Anhang) nach Dateinamen oder Nummern suchen. Die Nummern und Dateinamen sind immer Variabel.
Es soll in einem bestimmten Ordner nach den Dateien gesucht werden. Macht es hier einen Unterschied wenn dieser noch Unterordner beinhaltet?
Der Aufbau der Dateinamen sieht wie folgt aus: PP 8.2.4-5-13 Name (68900 68901 68905 68902).xlsm
Das heißt wenn ich eine von den Zahlen in der Klammer eingebe, soll mir die Datei angezeigt werden. Dasselbe gilt für die Eingabe des Namen.
Ist es möglich mir die Vorschläge die gefunden wurden in einem Fenster zb. als Liste anzuzeigen damit ich das richtige auswählen kann und die Datei sich mit einem Doppelklick dann öffnet?
Als Info noch, meine VBA Kenntnisse sind noch bei den Basics
Vielen Dank für eure Tipps und Hilfe
Edit:
Hier mal mein bisheriger Code:
Quellcode
- 'Hauptfenster ausrichten
- Option Explicit
- Sub UserForm_Activate()
- 'Ausrichtung Fenster
- Me.Height = Application.Height
- Me.Width = Application.Width
- Me.Left = Application.Left
- Me.Top = Application.Top
- 'Ausrichtung von Frame Bildschirmmittig
- Me.Frame1.Left = (Me.Width / 2) - (Me.Frame1.Width / 2)
- Me.Frame1.Top = (Me.Height / 2) - (Me.Frame1.Height / 2)
- 'Me.ListBox1.Top = (Me.Height / 2) - (Me.ListBox1.Height / 2)
- End Sub
- Sub CommandButton2_Click()
- ThisWorkbook.Close
- End Sub
- Sub suchen()
- Dim Dateiname As String
- Dim Pfad As String
- Dim Suchbegriff
- Pfad = "C:\Users\...\"
- Suchbegriff = Suchmaske.TextBox1.Value
- If IsNumber(Suchbegriff) Then
- Else
- End If
- Dateiname = Dir(Pfad & "*" & "*.xlsm")
- If Dateiname <> "" Then
- Workbooks.Open Pfad & Dateiname
- End If
- End Sub
Dieser Beitrag wurde bereits 3 mal editiert, zuletzt von „Mr Unklar“ ()