funktioniert on error resume next innhelb einer funktion nicht ?
habe folgenden code:
Function GetSingleFile() As String
Dim pfad As String
Dim Filter As String, Title As String
Dim FilterIndex As Integer
Dim Filename As Variant
Application.DisplayAlerts = False
On Error Resume Next
pfad = UserForm1.TextBox1.Value
Application.DisplayAlerts = False
On Error GoTo ErrorHandler
GetSingleFile = ""
' File filters
Filter = "Text Files (*.LST),*.LST," & _
"All Files (*.*),*.*"
' Default Filter to *.*
FilterIndex = 1
' Set Dialog Caption
Title = "Bitte wähle die zu importierende Datei"
' Select Start Drive & Path
ChDrive ("C")
ChDir (pfad & "\Spielprotokolle")
If Err.Number <> 0 Then
UserForm1.Show
Err.Clear
End If
With Application
' Set File Name to selected File
Filename = .GetOpenFilename(Filter, FilterIndex, Title)
' Reset Start Drive/Path
ChDrive (Left(.DefaultFilePath, 1))
ChDir (.DefaultFilePath)
End With
' Exit on Cancel
If Filename = False Then
'MsgBox "No file was selected."
Exit Function
Else
GetSingleFile = Filename
End If
End Function
---------------------------------------------------------------------------
der fehler taucht in:
ChDir (pfad & "\Spielprotokolle")----auf
wenn ich das richtig verstanden habe muesste der bei fehler in die nächste zeile springen.
dort ist fehlernummer 0 und startet userform
dann kann den richtigen pfad in userform eingeben.
aber das funktioniert eben nicht ?
weitere frage:
wenn das geht ...., wie geht der dann weiter ? ich meine nach dem userform schliesse? muesste der code neu staren dann mit dem richtigen pfad
habe nur erklärung dass das ganze in ner
Function nicht geht ? sondern nur zwischen sub...end
Sub ?
kann mir jemand auf anhieb sagen wo da der wurm drin ist ?
danke
roland_k