mit gecallter Sub kompl. Sub beenden

Sub aufruf()
Call AutomatischesEinfuellendesNamens
Application.ScreenUpdating = False
Call SchleifeOrdnerDokumente("NeuesRelease")
Call texte_einfügen
Application.ScreenUpdating = True
MsgBox ("Die Dokumentation wurde erfolgreich angelegt")
End Sub

Sub AutomatischesEinfuellendesNamens()
Dim x, lstrVerz, abgetrennt, Nameabgetrennt As String
Dim Laenge, Laenge, Laengegesamt As Long
lstrVerz = Dir(Verzeichnis) & "*", vbDirectory)
 If lstrVerz = "" Then
x = InputBox("XXXnicht gefunden! Bitte den Namen eingeben oder mit n abbrechen")
If x = "n" Then
MsgBox ("Vorgang abgebrochen")

Else
ActiveWorkbook.Sheets("Eingabefenster").Range("B18") = (x)
GoTo Überspringen
End If
Else
Laenge = Len(lstrVerz)
LaengePRJ = Len(Left(lstrVerz, InStr(1, lstrVerz, " ")))
Laengegesamt = Laenge - Laenge
Nameabgetrennt = Right(lstrVerz, Laengegesamt)
ActiveWorkbook.Sheets("Eingabefenster").Range("B18") = Nameabgetrennt
Überspringen:
End If
End Sub