Private Sub CommandButton1_Click()
Dim MA(15) As Person
Dim zeile, i As Integer
Dim name As String
Dim gefunden As Boolean
For zeile = 7 To 50
Range("F" & zeile).Activate
name = ActiveCell.Value
gefunden = False
For i = 0 To 15
' ende der liste und neuer Besteller
If MA(i).Besteller = "" And Not gefunden Then
MA(i).Besteller = name
End If
' Besteller gefunden
If MA(i).Besteller = name Then
gefunden = True
If Range("E" & zeile).Value <> "" Then
MA(i).Bestellwert = MA(i).Bestellwert + Range("E" & zeile).Value
End If
Exit For
End If
Next i
Next zeile
For i = 0 To 15
Range("G" & 10 + i).Value = MA(i).Besteller
If Not MA(i).Bestellwert = 0 Then
Range("H" & 10 + i).Value = MA(i).Bestellwert
Else
Range("H" & 10 + i).Value = ""
End If
Next i
Range("A6").Activate
' schreiben in Zelle
'Cells(5, 10) = "Hallo"
End Sub