Die Datei https://www.herber.de/bbs/user/1211.xls wurde aus Datenschutzgründen gelöscht
Hallo ich hoffe Du kommst mit der Datei klar, da sie sehr groß ist, aber nur eine von sieben Spielberichten, die in sich verlink sind.
Private Sub Worksheet_Calculate()
For zeile = 12 To 17
If Cells(zeile, 8).Value <> 0 Then
summe = summe + Cells(zeile, 8).Value
teiler = teiler + 1
End If
If Cells(zeile, 10).Value <> 0 Then
summe = summe + Cells(zeile, 10).Value
teiler = teiler + 1
End If
Next
If teiler <> 0 Then
adresse = ActiveCell.Address
ActiveSheet.Shapes("Button 330").Select
With Selection.Font
.Name = "Arial"
.FontStyle = "Fett"
.Size = 12
.ColorIndex = 0
End With
Selection.Characters.Text = "Schnitt " & Format(CStr(summe / teiler), "0.00")
Else
adresse = ActiveCell.Address
ActiveSheet.Shapes("Button 330").Select
With Selection.Font
.Name = "Arial"
.FontStyle = "Standard"
.Size = 10
.ColorIndex = 3
End With
Selection.Characters.Text = "Spielbericht per E-Mail versenden"
End If
Range(adresse).Select
End Sub