Thema Datum  Von Nutzer Rating
Antwort
10.08.2019 17:41:16 Tom
NotSolved
10.08.2019 19:26:40 Gast91740
*****
Solved
10.08.2019 20:10:41 Tom
NotSolved
10.08.2019 21:42:42 Gast63828
*****
Solved
10.08.2019 22:25:17 Tom
NotSolved
10.08.2019 22:30:26 Tom
NotSolved
10.08.2019 22:41:15 Tom
NotSolved
10.08.2019 22:58:09 Tom
NotSolved
10.08.2019 23:22:43 Gast92796
*****
Solved
11.08.2019 08:54:20 Tom
NotSolved
11.08.2019 08:56:51 Tom
NotSolved
Blau Dateinamen mit Zellinhalten vergleichen
 11.08.2019 18:18:15 Gast85196
*****
Solved
13.08.2019 18:43:52 Tom
NotSolved
13.08.2019 20:50:24 Gast*4
*****
Solved
13.08.2019 21:15:53 Gast19039
*****
Solved
13.08.2019 22:34:11 Tom
Solved

Ansicht des Beitrags:
Von:
Gast85196		 Datum:
11.08.2019 18:18:15		 Views:
471		 Rating:
     
Antwort:
 Nein
Thema:
Dateinamen mit Zellinhalten vergleichen

Hallo,

noch ne böse Falle Laufzeitfehler '53 ist der File not found Error, beim Löschen müssen wir anders ran, jetzt mal getestet...

Option Explicit
 
Public Sub now_tested()
    Dim objFSO As Object
    Dim objFolder As Object
    Dim objFile As Object
    Dim objCell As Range
    Dim astrNames() As String
    Dim strSourcePath As String, strDestinationPath As String
    Dim ialngIndex As Long
    strSourcePath = "C:\Bestellungen"
    strDestinationPath = "C:\Versand"
    Set objFSO = CreateObject(Class:="Scripting.FileSystemObject")
    Set objFolder = objFSO.GetFolder(strSourcePath)
    For Each objFile In objFolder.Files
        With Workbooks("TwsActiveX.xls").Worksheets("Executions")
            For Each objCell In .Range(.Cells(11, 12), .Cells(100, 12))
                With objCell
                    If .Value = vbNullString Then
                        Exit For
                    ElseIf objFile.Name Like "*" & .Value & "*" And .Offset(0, 5).Value = "SLD" Then
                        ReDim Preserve astrNames(ialngIndex) As String
                        astrNames(ialngIndex) = objFile.Name
                        ialngIndex = ialngIndex + 1
                        Exit For
                    End If
                End With
            Next
        End With
    Next
    For ialngIndex = 0 To UBound(astrNames)
       Call objFSO.MoveFile(strSourcePath & "\" & astrNames(ialngIndex), _
                 strDestinationPath & "\" & astrNames(ialngIndex))
    Next
    Set objCell = Nothing
    Set objFolder = Nothing
    Set objFSO = Nothing
End Sub

Gruß,

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
10.08.2019 17:41:16 Tom
NotSolved
10.08.2019 19:26:40 Gast91740
*****
Solved
10.08.2019 20:10:41 Tom
NotSolved
10.08.2019 21:42:42 Gast63828
*****
Solved
10.08.2019 22:25:17 Tom
NotSolved
10.08.2019 22:30:26 Tom
NotSolved
10.08.2019 22:41:15 Tom
NotSolved
10.08.2019 22:58:09 Tom
NotSolved
10.08.2019 23:22:43 Gast92796
*****
Solved
11.08.2019 08:54:20 Tom
NotSolved
11.08.2019 08:56:51 Tom
NotSolved
Blau Dateinamen mit Zellinhalten vergleichen
 11.08.2019 18:18:15 Gast85196
*****
Solved
13.08.2019 18:43:52 Tom
NotSolved
13.08.2019 20:50:24 Gast*4
*****
Solved
13.08.2019 21:15:53 Gast19039
*****
Solved
13.08.2019 22:34:11 Tom
Solved