Function TREFFER(r As Range) As Integer
Dim zelle1 As Range
Dim zelle2 As Range
Dim zelle3 As Range
Dim zelle4 As Range
Dim zelle5 As Range
Dim aktuellezelle As Range
Dim couter As Integer
Dim bedingung1 As Boolean
Dim bedingung2 As Boolean
counter = 0
bedingung1 = False
bedingung2 = False
For Each r In Selection
Set zelle1 = Cells(r.Row - 1, r.Column)
Set zelle2 = Cells(r.Row - 2, r.Column)
Set zelle3 = Cells(r.Row - 3, r.Column)
Set zelle4 = Cells(r.Row - 1, r.Column - 1)
Set zelle5 = Cells(r.Row - 1, r.Column + 1)
Set aktuellezelle = Cells(r.Row, r.Column)
If ((zelle1.Value = "X") Or (zelle2.Value = "X") Or (zelle3.Value = "X") Or (zelle4.Value = "X") Or (zelle4.Value = "X")) Then
bedingung1 = True
End If
If aktuellezelle.Value = "X" Then
bedingung2 = True
End If
If ((bedingung1 = True) And (bedingung2 = True)) Then
counter = counter + 1
End If
Next r
TREFFER = counter
End Function
Sub Testlauf()
Dim test As Range
Set test = Sheet1.Range("H7", "BD7")
Debug.Print TREFFER(test)
End Sub