Sub berechne_umsatz()

Offset = 4

For i = 1 To 100
    zeile = i + Offset
    verkaufer = ActiveWorkbook.Worksheets("umsatz").Range("A" & zeile).Value
    land = ActiveWorkbook.Worksheets("umsatz").Range("B" & zeile).Value
    umsatz = ActiveWorkbook.Worksheets("umsatz").Range("C" & zeile).Value
    
    If land = "Deutschland" Then
        summe_de = summe_de + umsatz
    End If
    
    If land = "Österreich" Then
        summe_oe = summe_oe + umsatz
    End If
    
    If land = "Schweiz" Then
        summe_sw = summe_sw + umsatz
    End If
    
    If verkaufer = "Frank Zander" And land = "Österreich" Then
        summe_zander_oe = summe_zander_oe + umsatz
    End If
    
    If verkaufer = "Frank Zander" And land = "Schweiz" Then
        summe_zander_sw = summe_zander_sw + umsatz
    End If
    
Next i

'ergebnis schreiben
ActiveWorkbook.Worksheets("umsatz").Range("B17").Value = summe_de
ActiveWorkbook.Worksheets("umsatz").Range("B18").Value = summe_sw
ActiveWorkbook.Worksheets("umsatz").Range("B19").Value = summe_oe
'
ActiveWorkbook.Worksheets("umsatz").Range("D21").Value = summe_zander_oe
ActiveWorkbook.Worksheets("umsatz").Range("D23").Value = summe_zander_sw

End Sub