Datei nach Nummer im Dateiexplorer suchen

Public Sub Suchnummer_zusammensetzen() ActiveSheet.Range("C4").Copy ActiveSheet.Range("C5").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Application.CutCopyMode = False End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Public Sub Datei_Öffnen() Dim strFile As String Const Pfad As String = "C:\Bestand\" strFile = Dir(Pfad & "*" & Range("C5") & "*.xls*", vbNormal) If strFile <> "" Then Workbooks.Open (Pfad & strFile) Else MsgBox "Datei nicht gefunden!", vbInformation End If End Sub VBA/HTML-CodeConverter, AddIn für Office 2002-2016 - in VBA geschrieben von Lukas Mosimann. Projektbetreuung:RMH Software & Media Code erstellt und getestet in Office 16 - mit VBAHTML 12.6.0

Public Sub Datei_Öffnen() Dim strFile As String, objFSO As Object, objSF As Object, objF As Object, objFile As Object Const Pfad As String = "C:\Bestand\" On Error Resume Next Set objFSO = CreateObject("Scripting.Filesystemobject") Set objF = objFSO.GetFolder(Pfad) For Each objSF In objF.ParentFolder.SubFolders For Each objFile In objSF.Files If objFile.Name Like "*" & Range("C5") & "*.xls*" Then Workbooks.Open (objFile.Path) Exit Sub End If Next Next MsgBox "Datei nicht gefunden!", vbInformation End Sub VBA/HTML-CodeConverter, AddIn für Office 2002-2016 - in VBA geschrieben von Lukas Mosimann. Projektbetreuung:RMH Software & Media Code erstellt und getestet in Office 16 - mit VBAHTML 12.6.0

Public Sub Datei_Öffnen() Dim strFile As String, objFSO As Object, objSF As Object, objF As Object, objFile As Object Const Pfad As String = "C:\Bestand\" Set objFSO = CreateObject("Scripting.Filesystemobject") Set objF = objFSO.GetFolder(Pfad) For Each objFile In objF.Files If objFile.Name Like "*" & Range("C5") & "*.xls*" Then strFile = objFile.Path End If Next If strFile = "" Then For Each objSF In objF.SubFolders For Each objFile In objSF.Files If objFile.Name Like "*" & Range("C5") & "*.xls*" Then strFile = objFile.Path End If Next Next End If If Len(strFile) Then Workbooks.Open strFile Else MsgBox "Datei nicht gefunden!", vbInformation End If End Sub VBA/HTML-CodeConverter, AddIn für Office 2002-2016 - in VBA geschrieben von Lukas Mosimann. Projektbetreuung:RMH Software & Media Code erstellt und getestet in Office 16 - mit VBAHTML 12.6.0

... dann so.
Modul Modul1

Option Explicit 
 
 
Public Sub Datei_Öffnen() 
  Dim strFile As String 
   
  Const Pfad As String = "C:\Bestand\" 
   
  strFile = findFile(Pfad, "*" & Range("C5") & "*") 
 
  If Len(strFile) Then 
    Workbooks.Open strFile 
  Else 
    MsgBox "Datei nicht gefunden!", vbInformation 
  End If 
End Sub 
 
 
Private Function findFile(ByVal InitialPath As String, ByVal FileName As String, Optional SubFolders As Boolean = True) As String 
  Dim objFSO As Object, objF As Object, objSF As Object, objFile As Object 
    
  On Error Resume Next 
    
  Set objFSO = CreateObject("Scripting.Filesystemobject") 
   
  Set objF = objFSO.GetFolder(InitialPath) 
   
  For Each objFile In objF.Files 
    If objFile.Name Like "*" & Range("C5") & "*.xls*" Then 
      findFile = objFile.Path 
      Exit Function 
    End If 
  Next 
  If SubFolders Then 
    For Each objSF In objF.SubFolders 
      findFile = findFile(objSF.Path, FileName, SubFolders) 
      If Len(findFile) Then Exit For 
    Next 
  End If 
End Function 

VBA/HTML-CodeConverter, AddIn für Office 2002-2016 - in VBA geschrieben von Lukas Mosimann. Projektbetreuung:RMH Software & Media
Code erstellt und getestet in Office 16 - mit VBAHTML 12.6.0

	A	B	C	D	E	F
1	Gruß Sepp
2
3

Beliebteste Forumthreads (12 Monate)

Datei nach Nummer im Dateiexplorer suchen

20
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

96 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Datei nach Nummer im Dateiexplorer suchen

20 Beiträge zum Forumthread Beiträge zu diesem Forumthread

96 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

20
Beiträge zum Forumthread

Beiträge zu diesem Forumthread