Warnhinweis bei Minuszahl
Dietmar
mit folgendem Code summiere ich Werte, die in Tabelle1.Range(A2:A20) eingetragen werden; die Summierungen erfolgt zunächst in Spalte B2:B20 der Tabelle1.
Spalte B2:B20 wird auf Tabelle2 in Range(A2:A20) als Bezug gespiegelt. (In Meiner Original-Datei werden in Tabelle2 in Range(A2:A20) noch weitere Bezugsdaten hinzugefügt).
Der Code meldet mir korrekterweise, wenn in Tabelle2.Range(A2:A20) ein Wert im Minus entstanden ist. Dann ist es aber bereits geschehen!
Meine Frage:
Wie erreiche ich, dass der Code erst gar nicht ausgeführt wird, wenn in Tabelle2.Range(A2:A20) ein Minuswert entstehen WÜRDE?
Vielen Dank!
Dietmar aus Aachen
Private Sub cmd_Summieren_Click()
Dim rngC As Range
Application.Calculation = xlCalculationManual
If Application.Count(Range("A2:A20")) > 0 Then
For Each rngC In Range("A2:A20").SpecialCells(xlCellTypeConstants)
With rngC
.Offset(0, 1) = .Offset(0, 1) + .Value
End With
Next
Range("A2:A20").ClearContents 'Quelle löschen
Application.Calculation = xlCalculationAutomatic
Else
MsgBox "Nö, es sind keine Werte zu übertragen!", vbInformation, "Hinweis"
Application.Calculation = xlCalculationAutomatic
Exit Sub
End If
Application.Calculation = xlCalculationAutomatic
With Application.WorksheetFunction
If .CountIf(Sheets("Tabelle2").Range("A2:A20"), "