Sub Schaltfläche_Datenimport_starten_Klicken()
Application.ScreenUpdating = False
Dateipfad = Application.GetOpenFilename("Alle-Dateien (*.SP8),*.*,", MultiSelect:=True)
Dim Laenge As Integer
Dim i As Integer
Sheets("Variablen").Range("B1").Value2 = UBound(Dateipfad)
Laenge = UBound(Dateipfad)
For i = 1 To Laenge
If Not existsWorksheet("Versuch " & i) Then
ThisWorkbook.Worksheets.Add After:=ActiveSheet
ActiveSheet.Name = "Versuch " & i
Range("A10").Select
With ActiveSheet.QueryTables.Add(Connection:="TEXT;" & Dateipfad(i), Destination:=Range("A2"))
[...]
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