Gültigkeit für Formel-Ergebnisse / Makro

Hallo zusammen,
Ich habe mir ein Excel Makro geschrieben welches mir aus einer Tabelle bestimmte Werte ausließt und das Ergebnis anschließend in einer Zelle anzeigt. (in diesem Fall eine Summe Dezimaler Zahlen). Nun habe ich aber ein weiteres Feld mit dem ich das Ergebnis manipulieren kann. Sprich: Werte addieren bzw subtrahieren. Die Subtraktion möchte ich aber in der Hinsicht einschränken, dass das manipulierte Ergebnis nicht negativ werden darf. Der Wert Null ist allerdings erlaubt.
Wie kann ich das realisieren? mit der Gültigkeitsprüfung schaffe ich das nicht, da diese bei Formel-Ergebnissen anscheinen nicht greift. Außerdem hätte ich gerne eine Warnmeldung, wenn das Ergebnis negativ werden sollte in der der Nutzer darauf hingewiesen wird, dass diese Eingabe nicht erlaubt ist.
Ich glaube am Sinnvollsten ist es diese Abfrage im Makro durchzuführen in der ich auf Änderungen überprüfe, um die Zwischenablage zu aktualisieren.
Hier das Makro für die Zwischenablage


Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False
If Target.Column = 14 Then Range("J27:J28").Copy
Application.ScreenUpdating = True
End Sub

Ich modifiziere mit den Feldern N4:N8
Die Felder K4:K8 dürfen dabei nicht negativ werden.
in Feld K4 steht z.B.


=(SUMMEWENN(A$11:A$1000;0,35;B$11:B$1000))+N4

mit N4 modifiziere ich dieses Feld. Daher das "+N4" am Ende der Formel.
Ich hoffe es hat jemand einen Tip für mich.
Besten Dank im Vorraus

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Ich bin Blöd :-( den Bezugsfehler hab ich selbst produziert indem ich "Enter" zum verlassen der Zelle gedrückt habe... und dann versucht er natürlich meine kopierten Zellen Einzufügen ;-)
nichtsdesdotrotz wäre da noch mein Ursprungsproblem:
Hey das ist Super!
Danke.
Ich habe das ganze jetzt mal eingefügt und um eine Fehlermeldung ergänzt.
Funktioniert auch wunderbar, bis auf die Tatsache, dass ich nicht den Überwachten Bereich von N4:N8 bzw. K4:K8 erweitern kann. Dazu reichen meine bescheidenen VBA Kenntnisse nicht aus ;-)
Eine Möglichkeit wäre natürlich den Code 5* einzufügen und jede Zelle einzeln überwachen zu lassen, aber ich glaube das ganze kann man auch eleganter lösen -nur weiß ich nicht wie :)
So sieht das ganze jetzt aus:


Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False
If Target.Address(0, 0) = "N4" Then
If Range("K4")

Für einen weiteren Tip wäre ich sehr dankbar!
Grüße!

Private Sub Worksheet_Change(ByVal Target As Range) Dim rngIn As Range, rngCell As Range, strMessage As String On Error GoTo rep With Target If Intersect(.Cells, Columns(14)) Is Nothing Then Exit Sub Application.ScreenUpdating = False Application.EnableEvents = False Set rngIn = Range(Cells(4, 14), Cells(8, 14)) If Not Intersect(.Cells, rngIn) Is Nothing Then For Each rngCell In Intersect(.Cells, rngIn) With rngCell If .Offset(0, -3)

Beliebteste Forumthreads (12 Monate)

Gültigkeit für Formel-Ergebnisse / Makro

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread