Option Explicit
Dim mw() As Double
Dim mitwert() As Double
Dim n As Integer
Dim m As Integer
Dim numpruefi As Variant
Dim numpruefj As Variant
Dim xlzellbereich As Range
Dim i As Integer
Dim j As Integer
Dim imax As Integer
Dim jmax As Integer
Dim k As Integer
Dim l As Integer
Dim kmax As Integer
Dim lmax As Integer
Dim o As Integer
Dim p As Integer
Sub werte_einlesen()
j = 0
Do
i = 0
Do
numpruefi = (Sheets("Tabelle1").Cells(9 + j, 3 + i))
If Not IsEmpty(numpruefi) Then
ReDim mw(j, i)
imax = i
i = i + 1
n = i
End If
Loop Until IsEmpty(numpruefi)
jmax = j
j = j + 1
numpruefj = (Sheets("Tabelle1").Cells(9 + j, 3))
m = j
Loop Until IsEmpty(numpruefj)
For j = 0 To jmax
For i = 0 To imax
mw(j, i) = Sheets("Tabelle1").Cells(9 + j, 3 + i)
Next i
Next j
Set xlzellbereich = Sheets("tabelle1").Cells(20 + j, 3 + i)
xlzellbereich.ClearContents
Sheets("Tabelle1").Cells(20, 8) = jmax
Sheets("Tabelle1").Cells(20, 9) = imax
Sheets("Tabelle1").Cells(21, 8) = m
Sheets("Tabelle1").Cells(21, 9) = n
For j = 0 To jmax
For i = 0 To imax
Sheets("Tabelle1").Cells(20 + j, 3 + i) = mw(j, i)
Next i
Next j
ReDim mitwert(j)
For l = 0 To jmax
For i = 0 To imax
Sheets("Tabelle2").Cells(9 + l, 3 + i) = mw(l, i)
Next i
Call mittelwert
Sheets("Tabelle2").Cells(9, 11 + l) = mitwert(l)
Next l
End Sub
Sub mittelwert()
Dim summw As Double
summw = 0
For k = 0 To imax
summw = summw + mw(l, k)
Next k
mitwert(l) = summw / n
End Sub
Danke und einen schönen Abend Euch...:)