Sub TEST()
Dim Laenge As Integer, i As Integer
Dim Dateipfad() As String
Sheets("Variablen").Range("B1").Value2 = UBound(Dateipfad)
Laenge = UBound(Dateipfad)
For i = 1 To Laenge
ThisWorkbook.Worksheets.Add After:=ActiveSheet
If Not existsWorksheet("Versuch " & i) Then
ActiveSheet.Name = "Versuch " & i
End If
Next
End Sub
Function existsWorksheet(sNm As String) As Boolean
Dim wbk As Workbook
Dim wsh As Worksheet
Set wbk = ActiveWorkbook
For Each wsh In wbk.Worksheets
If wsh.Name = sNm Then
existsWorksheet = True
Exit For
End If
Next
End Function