verlassen einer Anweisung statt exit sub
24.05.2019 08:47:55
Peter
ich habe nachstehenden Code:
<pre>Sub Pruefen_Konto_laufend()
'Anfang Prüfen, ob Datei in Unterordner 02_Konten_Laufend existiert
Dim Pfad_alt As String, Dateiname_alt As String, Dateiname_neu As String
Dim Pfad_neu, strPfadG As String
Dim FSO As Object
Pfad_alt = Sheets("Hilfstabelle").Range("X2") & Sheets("Hilfstabelle").Range("X13")
' Debug.Print Pfad_alt
Set FSO = CreateObject("Scripting.FileSystemObject")
Dateiname_alt = Sheets("Hilfstabelle").Range("Z2") '& ".xlsm"
' Debug.Print Dateiname_alt
If Not FSO.FileExists(Pfad_alt & "\" & Dateiname_alt) Then
MsgBox Pfad_alt & "\" & Dateiname_alt & " existiert nicht"
'''hier soll eine Anweisung eingebaut werden, damit zur nächsten Anweisung _
sprungen wird
Else
MsgBox Pfad_alt & "\" & Dateiname_alt & " existiert"
''' Call UebersichtNachBedarfeKopieren2
End If
'Anfang Prüfen, ob Datei in Unterordner 02_Konten_Laufend existiert
'nächste Anweisung
End Sub</pre>
Ich habe momentan keine Plan, wie ich hier hin komme.
Besten Dank für eure Hilfe.
Gruss
Peter