Ordner finden
04.12.2017 15:16:09
Alex
ich benötige wieder mal eine Unterstützung von euch.
Ich möchte über die Inputbox den richtigen Ordner finden.
Die gesuchten Ordner fangen alle mit dreistellige Zahl an, Beispiel 007_Ordnername
Das Problem was ich jetzt noch habe ist die Eingabe, wenn ich zum Beispiel in der Inputbox eine 7 Eingebe, soll dann der Ordner 007_Ordnername gefunden werden, oder wenn ich die 70 Eingebe soll dann 070_Ordnername gefunden werden und das funktioniert nicht bei mir, nur wenn ich es richtig ausschreibe 007 dann wird der richtige Ordner auch gefunden.
Kann mir einer bei dem Code helfen, dass es nach meine Vorstellungen so funktioniert?
Dim NrSuche As String
Dim sFolder$, sPath$, i&
Dim Nr, gFolder As String
NrSuche = InputBox("Bitte die Nummer eingeben:")
Do While Not IsNumeric(NrSuche)
If NrSuche = "" Then
MsgBox "Keine Eingabe!" & vbCr & vbCr & "Vorgang wird abgebrochen!", 0, _
"Hinweis für " & Application.UserName & ":"
Exit Sub
End If
MsgBox "Eingabefehler", vbCritical
NrSuche = InputBox("Bitte nur ganze ZAHLEN eingeben:")
Loop
Nr = NrSuche
sPath = "C:\01_Eingang\"
sFolder = Dir(sPath & Nr, vbDirectory)
Do While Len(sFolder) > 0
i = i + 1
gFolder = sFolder
sFolder = Dir$
Loop
sDatum = Format(Date, "yyyy-mm-dd")
ActiveWorkbook.SaveAs filename:=sPath & gFolder & "\" & sDatum & " " & "Rückmeldungsbogen" & Nr _
& ".xlsx", FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
Viele Grüße
Alex
Anzeige