Summe
20.08.2004 10:18:29
Harald
ist nur ne profane Frage. In beigefügtem Code gehts nur darum zu prüfen, ob die Summe der Werte b2:b7 (wenn b7 nicht leer) =9 ist.
Irgendwie sieht die Geschichte mit der Summenformel aber doof aus (1. Zeile)
Kann man das nicht schöner schreiben ?
Besten Gruß
Harald
Sub verifizierung()
Range("b8").FormulaR1C1 = "=SUM(R[-6]C:R[-1]C)"
If Range("b8").Value <> 9 Or Range("b7") = "" Then
MsgBox "Da passt watt nich"
Exit Sub
Else
MsgBox "Auswertung starten"
End If
End Sub
Anzeige