VBA

Lieber Forum-Teilnehmer
Ich stehe gerade etwas auf dem Schlauch, vielleicht könnt ihr mir da helfen.
Mein Ziel: Ich möchte, dass in einem Tabellenblatt eine MsgBox erscheint, wenn die SUMME von G72:H72 bei manueller Eingabe den Wert von K72 überschreitet. K72 nimmt den Wert via Formel aus D55.
Die Prüfung soll so ablaufen, dass die MsgBox mit Knopfdruck auf einen OK-Button ausgeblendet werden kann, dann aber wieder erscheint, sobald G72:H72 bei anderer/neuer Eingabe wieder den Wert von K72 überschreitet. Mithin soll die Prüfung gewissermassen dauernd im Hintergrund mitlaufen, denn die (manuelle!) Eingabe bei G72:H72 kann sich verändern (Eingabe/Löschen der dortigen Zahlen).
Ich habe es mal zu programmieren versucht, stehe jedoch an (erst Anfänger-Kenntnisse in VBA). Ein Problem habe ich insbesondere mit der Zuweisung der Zellen (Range(Sum("G72:H72")) und der Setzung in Relation zu K72.
Was rät Ihr mir bzw. hat jemand einen Code-Vorschlag?

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: VBA

08.12.2016 09:19:08

Max2

AW: VBA

08.12.2016 09:22:30

UweD

AW: VBA

08.12.2016 10:06:32

Daniel

AW: Funktioniert doch ...

08.12.2016 10:21:13

Dieter(Drummer)

AW: VBA

08.12.2016 10:09:45

Daniel

Private Sub Worksheet_Change(ByVal Target As Range) Dim g, h, k g = Cells(72, 7).Value h = Cells(72, 8).Value k = Cells(72, 11).Value If k > (g + h) Then k = Cells(55, 4).Value Cells(72, 11).Value = k End If End Sub

Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Range("G72: H72"), Target) Is Nothing Then If WorksheetFunction.Sum(Range("G72: H72")) > Range("K72") Then MsgBox "Summe zu hoch" End If End If End Sub

Hi
das kannst du einfacher ohne VBA erreichen.
Bspw durch diese Formel in einer Nachbarzelle:
=Wenn(Summe(G72:H72)>K72;"Überschreitung";"")
Das hat den Vorteil, dass die Meldung solange stehen bleibt, bis die Werte korrekt eingetragen wurden.
Wenn es gar nicht möglich sein, soll, eine größere Summe einzugeben, dann gehe so vor:
- markiere die Zellen G72:H72
- klicke DATEN - DATENTOOLS - DATENÜBERPRÜFUNG und richte die Datenüberprüfung mit diesen Vorgaben ein:
- Einstellungen - Zulassen: Benutzerdefiniert
- Einstellungen - Formeln: =Summe(G72:H72) - Fehlermeldung - Fehlermeldung: Dein Hinweistext (falls erforderlich)
hierbei wird schon die Eingabe verhindert.
(hätte aber zur Folge, dass man die zulässige Kombination "Wert größer K72 + Negativer Wert" nur dann eingeben kann, wenn man den negativen Wert zuerst eingibt.)
Gruß Daniel

Beliebteste Forumthreads (12 Monate)

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread