Folge dem Video um zu sehen, wie unsere Website als Web-App auf dem Startbildschirm installiert werden kann.
Anmerkung: Diese Funktion ist in einigen Browsern möglicherweise nicht verfügbar.
"1 3 12 18" "4 8 12 19" "5 9 26 10" "2 18 26 28"
=SUMME((HÄUFIGKEIT($A1:$D1;$A1:$D1)>0)*1)
Function check(bereich1 As Range)
Dim bereich2 As Range
meldung = ""
treffer = 0
lz = ActiveCell.SpecialCells(xlLastCell).Row
For zeile = 1 To lz
Set bereich2 = ActiveSheet.Range("A" & (zeile) & ":D" & (zeile))
If bereich1.Address = bereich2.Address Then Exit For
For Each zelle1 In bereich1
For Each zelle2 In bereich2
If zelle1 = zelle2 Then treffer = treffer + 1
Next
Next
If treffer >= 2 Then
treffer = 0
meldung = "Es sind ungültige Werte in dieser Zeile"
Exit For
End If
treffer = 0
Next
check = meldung
End Function
=check($A1:$D1)
Zeile 1: =check($A1:$D1)
Zeile 2: =check($A2:$D2)
Zeile 3: =check($A3:$D3)
Zeile 4: =check($A4:$D4)
usw.