Office: (Office 365) Ständige Überprüfung mit "wahr" und "Falsch"

Hallo,

Wie erreicht man es, dass eine VBA-Abfrage automatisch abläuft, aber ohne, dass das Dokument irgendwie durch eine Endlosschleife beeinträchtigt wird.

Ich habe mal eine Beispieltabelle eingefügt. Hier gibt es (unter anderem) drei Posten. Wenn diese zusammen unter 5 Stück sind, kommt ein Mindermengenzuschlag dazu. Dann wird das Kästchen "Wahr". Wenn es mehr als 5 sind, oder insgesamt 0 (also gar nicht bestellt wird), kommt "Falsch" hierher, bzw. soll natürlich das Kontrollkästchen entsprechend reagieren.

Aktuell habe ich da die Formel drin stehen:
=WENN(UND(SUMME(G5:G7)>=0,1;SUMME(G5:G7)<=4,9);WAHR;FALSCH)
Das funktioniert im Prinzip, hat aber auch den Nachteil, dass man das Kontrollkästchen nicht manuell umstellen kann, wenn man z.B. aus irgendwelchen Gründen keine Mindermenge berechnen möchte.
Ich habe das durch einen Button gelöst, der die Formel mit "Wahr" überschreibt, aber das geht dann halt nicht Rückgängig zu machen (Nicht in der Beispieltabelle, sondern in der eigentlichen Tabelle) und ist generell nicht schön, da so auch die Formel nicht "geschützt" werden kann, wenn man das Kontrollkästchen anschließend noch manuell umstellen möchte.

Als VBA habe ich die folgende Formel eingesetzt:

Code:

Sub PruefeSummeUndMarkiereH12()
    Dim summe As Double  
    summe = Range("G5").Value + Range("G6").Value + Range("G7").Value
      If summe > 0.1 And summe < 4.9 Then
        Range("H12").Value = WAHR
    Else
        Range("H12").Value = FALSCH
    End If
End Sub

Aber die funktioniert leider nicht, da sie weder das Kontrollkästchen markiert, noch ausgeführt wird, wenn die Summen sich ändern. Ist aber wichtig, dass sie sich ändern, wenn sich der Kunde entscheidet, doch eine andere Anzahl zu nehmen. Mit Button wird sie halt einmalig ausgeführt, ich würde es schön finden, wenn sie es automatisch überprüft, sobald sich die Zahlen ändern (diese können auch an einer anderen Stelle geändert werden und werden dann "herüberkopiert", sobald man das Tabelleblatt wieder aufruft).

Ich habe allerdings dieses VBA-Fenster noch nicht wirklich verstanden. Da gibt es Module, da gibt es die Tabellen der Arbeitsmappen. Dann kann ich oben "Worksheet" auswählen und dann daneben irgendwelche Aktionen, die dann einen Code generieren, in der ich meine Formel schreiben kann.

Ich weiß nie so recht, wo man den VBA-Code sinnvollerweise ausführen lässt, damit er sich wie verhält.

Vielleicht mag mir hier jemand auf die Sprünge helfen :)

 

Hi,

Du solltest Dir vielleicht mal ein Buch zum Thema VBA zu Gemüte führen. Hilfreich wäre auch das:
Online - Excel
Da nicht ganz klar ist, was Du willst, und Deine Datei nicht wirklich hilfreich ist, hier mal ein Ansatz:

 

Hallo Andreas,

das ist schon mal eine Lösung.

Wenn du die Online-Hilfe zu Rate gezogen hättest, wie bereits an anderer Stelle angeraten, wäre dir sicherlich auch das Ereignis Worksheet_Calculate aufgefallen. Durch eine Auswertung der Zelle D9 auf TRUE/FALSE könnte man dort auch ein Häkchen setzen.

Knobbi38

 

Ich habe ja ein VBA-Buch. Es fehlt die Zeit es zu verinnerlichen. Wenn man alle 3 Tage mal dazu kommt 5 Seiten zu lesen, hat man schnell wieder vergessen was vorher war. Aber ich nutze es, aber wenn ich mal so gar nicht weiterkomme, nutze ich gerne mal die Abkürzung über dieses Forum hier. Es wird ja doch oft geholfen.
Zudem habe ich leider nur während der Arbeitszeit die Zeit mich mit der Thematik auseinanderzusetzen. Und da ist es halt auch immer Abhängig davon, wie viel insgesamt zu tun ist. Meistens sind es dann die Wintermonate, wo man sich mal ein paar Stunden heransetzen kann.

Vielen Dank jedenfalls für den Lösungsansatz. Ich werde mir das morgen mal genauer anschauen.

 

Hallo Andreas7611,

warum machst du das so umständlich mit einer SUB ?
Wenn du das mit folgender FUNCTION in einem allgemeinen Codemodul "Modul1" gemacht hättest:

Code:

Option Explicit


Function PruefeSummeUndMarkiere(Bereich As Range) 
    Dim summe As Double
 
    summe = WorksheetFunction.Sum(Bereich)
    PruefeSummeUndMarkiere = summe > 0.1 And summe < 4.91
 
End Function

hättest du einfach in Zelle D7 folgende Formel eingeben können:
=PruefeSummeUndMarkiere(G5:G7)

Datei liegt bei.

 

Nimm mir folgendes nicht allzu übel:
Du versuchst, einen 40-Tonner quer durch Deutschland zu steuern, hast aber keinen Führerschein und erst 2 Fahrstunden.
Du brauchst etwas für den Beruf und hast keine Ahnung von der Materie.
Das ist Harakiri mit Ansage!
Was sagt denn Dein Chef dazu?
Der kann doch wirklich nicht wollen, dass Du wertvolle Arbeitszeit mit Schwimmübungen verplemperst.

Viele Grüße
Ralf
(der Dich hier nicht abkanzeln will, sondern Denkanstöße geben möchte)