Was habe ich in meinem Code Falsh gemacht?
Sub auslesen()
Dim a, d, e, y, x, wert1, wert2, wert3, wert4, summe, i As Integer
Dim wort, blatt1, wortgef As String
Dim rng As Range
x = 16
y = 11
d = 1
e = 1
blatt1 = "Tabelle1"
blatt2 = "Daten"
Workbooks.Open Filename:="D:\Eigene Dateien\car2.xls"
Windows("car2.xls").Activate
Range("P11").Select
wort = "Ebner "
'Sheets("Tabelle1").Select
' Sheets.Add
' Sheets("Tabelle5").Select
' Sheets("Tabelle5").Name = "Daten"
Do Until Workbooks("car2.xls").Worksheets(blatt1).Cells(y, x).Value = ""
wortgef = Workbooks("car2.xls").Worksheets(blatt1).Cells(y, x).Value
If wortgef = wort Then
wert1 = Workbooks("car2.xls").Worksheets(blatt1).Cells(y, 17).Value
wert2 = Workbooks("car2.xls").Worksheets(blatt1).Cells(y, 18).Value
wert3 = Workbooks("car2.xls").Worksheets(blatt1).Cells(y, 19).Value
wert4 = Workbooks("car2.xls").Worksheets(blatt1).Cells(y, 20).Value
summe = ((wert1 + wert2 + wert3 + wert4) / 3)
a = y - 10
Windows("Schleife-test-set-problem.xls").Activate
' Range("A1").End(xlToLeft).Value = summe
'Cells(1).End(xlToRight).Offset(0, 1).Select
'i = -1
Set rng = ThisWorkbook.Worksheets(1).Rows(1).End(xlUp)
rng.Offset(i, 1).Value = summe
i = i + 1
' Cells(d, e) = "Summe Reihe" & a
' Cells(d, e + 1).Value = summe
' d = d + 1
End If
y = y + 1
Loop
Windows("car2.xls").Close
End Sub