Anwendungs- oder objektdefinierter Fehler

Sub persistIntervData()
'    On Error GoTo Errorcatch
Worksheets(pers_intervDataTableName).Cells.Clear
Dim startRow As Integer, counter As Integer, startColumn As Integer, counter1 As Integer,    _
_
_
_
counter2 As Integer, counter3 As Integer, checkVar As String
'starting points for data itself
startRow = 4
startColumn = 4
'copies dimensions and attributes
For counter = 1 To findRowPersist(pers_dimAttTableName) - 1 'durch numof ersetzen
If Worksheets(pers_dimAttTableName).Cells(counter, 1).Value = "dim" Then
Worksheets(pers_intervDataTableName).Cells(counter + startRow - 1, 1).Value =  _
Worksheets(pers_dimAttTableName).Cells(counter, 1).Value
Worksheets(pers_intervDataTableName).Cells(counter + startRow - 1, 2).Value =  _
Worksheets(pers_dimAttTableName).Cells(counter, 2).Value
Else
Worksheets(pers_intervDataTableName).Cells(counter + startRow - 1, 1).Value =  _
Worksheets(pers_dimAttTableName).Cells(counter, 1).Value
Worksheets(pers_intervDataTableName).Cells(counter + startRow - 1, 2).Value =  _
Worksheets(pers_dimAttTableName).Cells(counter, 2).Value
Worksheets(pers_intervDataTableName).Cells(counter + startRow - 1, 3).Value =  _
Worksheets(pers_dimAttTableName).Cells(counter, 3).Value
End If
Next
'copies interviews and moderators
For counter1 = 1 To numOfInterv
For counter2 = 1 To numOfMod
For counter3 = 1 To 3
Worksheets(pers_intervDataTableName).Cells(1, startColumn + (counter1 - 1) *  _
numOfMod * 3 + (counter2 - 1) * 3 + (counter3 - 1)).Value = counter1
Worksheets(pers_intervDataTableName).Cells(2, startColumn + (counter1 - 1) *  _
numOfMod * 3 + (counter2 - 1) * 3 + (counter3 - 1)).Value = counter2
Select Case counter3
Case 1: Worksheets(pers_intervDataTableName).Cells(3, startColumn + ( _
counter1 - 1) * numOfMod * 3 + (counter2 - 1) * 3 + (counter3 - 1)).Value = "al"
Case 2: Worksheets(pers_intervDataTableName).Cells(3, startColumn + ( _
counter1 - 1) * numOfMod * 3 + (counter2 - 1) * 3 + (counter3 - 1)).Value = "zl"
Case 3: Worksheets(pers_intervDataTableName).Cells(3, startColumn + ( _
counter1 - 1) * numOfMod * 3 + (counter2 - 1) * 3 + (counter3 - 1)).Value = "an"
End Select
Next
Next
Next
'copies results of the interviews
Dim sheetName As String
For counter1 = 1 To numOfInterv
sheetName = "Interview_" & counter1
Sheets(sheetName).Visible = True
For counter2 = 1 To numOfMod
For counter3 = 1 To numOfDimAtt
checkVar = Worksheets(pers_dimAttTableName).Cells(counter3, 1).Value
If checkVar = "att" Then
Worksheets(pers_intervDataTableName).Cells(counter3 + startRow - 1,  _
startColumn * (counter2 - 1)).Value = Worksheets(sheetName).Cells(counter3 + 16, 5 + (counter2 - _
_
_
1 * 4)).Value
Worksheets(pers_intervDataTableName).Cells(counter3 + startRow - 1, 1 +  _
startColumn * (counter2 - 1)).Value = Worksheets(sheetName).Cells(counter3 + 16, 6 + (counter2 - _
_
_
1 * 4)).Value
Worksheets(pers_intervDataTableName).Cells(counter3 + startRow - 1, 2 +  _
startColumn * (counter2 - 1)).Value = Worksheets(sheetName).Cells(counter3 + 16, 8 + (counter2 - _
_
_
1 * 4)).Value
Else
End If
Next
Next
Next
'Exit Sub
'Errorcatch:
'MsgBox err.Description
End Sub