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)

 

Wenn ich aber wieder eine Formel in der Zelle stehen habe, kann ich sie ja auch wieder nicht manuell ändern. Darum ging es ja. Ansonsten habe ich ja jetzt auch "nur" eine Formel in der Zelle, die die Summen prüft.

Ich habe ehrlich gesagt bei jeder Frage hier ein "schlechtes Gewissen". Dein Vergleich stimmt.
Ich habe 20 Jahre lang bei einem Paketdienst geschuftet und habe mit viel Glück vor drei Jahren eine Stelle als Bürokaufmann bekommen. Alles was ich hier mache ist quasi nur angelernt und mein Chef ist total froh, dass er sich für mich entschieden hat und nicht einen der anderen 36 Bewerbern.
Ich beschreibe meine Arbeit oft so:
Ich komme mir vor, als würde ich mit durchgetretenem Gaspedal freihändig und mit verbundenen Augen Nachts über die Autobahn fahren :D
Auf der anderen Seite sehe ich aber auch meine "gelernten" Kollegen, die Excel zum Beispiel nur dafür nutzen einige Lieferscheine in eine Liste einzutragen. Der "Zauber" ging bei mir los, als mein Chef meinte, warum ich mir keinen Filterbereich anzeigen lasse. Und mittlerweile baue ich Achterbahnen in die Tabellen, wo meine gelernten Kolleginnen nur mit dem Kopf schütteln.
Generell werde ich mit meinem Eifer "belächelt", wenn man aber eine Informationen benötigt, die ich mit wenigen Klicks parat habe, wo man vorher erst durch jährlich wechselnde Excel-Tabellen hätte suchen müssen und selbst dann nur die halben Informationen bekäme, findet man das dann doch recht praktisch :)
Das andere ist dieser Bestellschein. Wir haben zwei Warengruppen. Das sind früher zwei Tabellen gewesen. Dazu kommt Fracht, eine weitere Tabelle. Mein Kollege (Null Ahnung von Excel) gibt die Menge bei der Warengruppe ein, notiert sich dann die Frachtpreise und trägt dann alles vorne in eine Berechnungstabelle.
Wenn der Kunde dann bestellt, wird ein Bestellschein geschrieben und ggf. noch ein Lieferauftrag.
Ich habe beide Warengruppen zusammengeführt. Die Fracht wird durch Eingabe des Ortes gefilter, kann ausgewählt werden und dann je nach Lieferart berechnet werden. Dazu kommen Nebenkosten, die entsprechend mitberechnet werden. Auf Knopfdruck wird dann unsere Fracht-Dispo geöffnet. Außerdem wird hier direkt ein Angebot geschrieben, welches man den Kunden übergeben könnte, wenn dieser das wünscht. Auch ein Bestellschein wird gleich ausgefüllt und sogar entsprechend der Liefermengen Zeilen ein- oder ausgeblendet. Auch ein Fahrauftrag kann aus meinem Bestellschein heraus gedruckt werden.
Das einzige, was leider nicht geht, dass die Tabelle auf unsere Kunden-Datenbank zugreift um auch noch diese Daten zu synchronisieren, aber die sind auf Servern, da habe ich keinen Zugriff, bzw. ist mir zu kompliziert.

Irgendwo muß man doch auch mal anfangen. Man kann doch schlecht sagen, dass man jetzt erstmal 3 Jahre auf Seminare geht, bevor man überhaupt Excel öffnen darf. Sicher wäre das toll, aber eben auch utopisch.
Deiner Meinung nach sollte ich "sowas" also nicht machen, weil ich es nicht gelernt habe.
Ich verstehe was du meinst und stimme dir auch in Teilen zu.

Ich schreibe hier noch viel häufiger Fragen und lösche das dann doch erst wieder, weil ich noch was anderes ausprobieren möchte, weil mir durchaus bewusst ist, dass das halbe Excel-Forum hier schon von mir "zugemüllt" wird.
Wenn das nicht gewünscht ist, dann muß ich mich einfach noch mehr zurücknehmen und weniger fragen.

 

Hallo Andreas,

ist ja alles ok, jeder hat mal klein angefangen, aber wenn du wirklich mit VBA anfangen möchtest, solltest du dir doch mal ein entsprechendes Fachbuch/eBook zulegen und dieses auch durcharbeiten. Wenn du noch nicht mal weißt, wo in der VBE der Sourcecode einzugeben ist, wird es ohne ein paar Grundlagen schwierig, dir diesbezüglich Hilfestellungen zu geben. Du bist nun immerhin schon länger dabei, oder?

Knobbi38

 

Das ist nicht weiß, wo der Code eingegeben wird, ist vielleicht etwas unglücklich formuliert.
Aber es gibt ja die Auflistung der Tabellenblätter und die Module. Ich gehe davon aus, dass der Code, den man auf die Tabellenseiten schreibt auch nur da "funktionieren" und die Module können gelten für das ganze Dokument.
Allerdings habe ich auch in meinem "Einstieg in VBA mit Excel" Buch dazu auch nichts finden können.
Aber ja; Wenn man so ein Buch hat, würde es sich lohnen es mal zu lesen :D

 

In Module kommt der gemeinsam genutzte Code und davon müssen keine Instanzen erzeugt werden. Tabellenblätter (Worksheets) sind vergleichbar mit bereits instantiierten Klassenobjekten in VBA.

Siehe auch: Module – VBA-wiki

Dein von dir bereits mehrfach erwähntes Buch solltest du vielleicht gegen ein anderes austauschen?! Hier etwas für den Einstieg:
Free Excel VBA Book

 

Moin nochmal!
Da ich nicht nur motzen will, ein paar Anmerkungen zu Deinem obigen Code, Andreas.

1. VBA speaks english!
Daher kennt VBA WAHR und FALSCH nicht, sondern interpretiert sie als (ungefüllte!) Variant-Variablen!
Richtig wäre True bzw. False
Solche Fehler verhindert man zuverlässig, indem man als erste Zeile ins Modul Option Explicit schreibt.
Das hat noch weitere Vorteile, lies Dir dieses mal durch:
Online - Excel Programmierung VBA Makro: Option Explicit, Intellisense und Techniken des Schreibens

2. Ereignisprozeduren
Hier empfiehlt sich das bereits angesprochene Calculate-Event, welches zu dem Klassenmodul einer Tabelle gehört.
Auch hierzu ein Text aus bereits empfohlener Site:
Online - Excel Programmierung VBA Makro: Editor [09] Dropdowns in Modulen

3. Beispielcode
True oder False braucht man nicht explizit zuweisen, sondern kann den Wert der Zelle auch mit einer Logikabfrage ermitteln.
Langer Rede, kurzer Code:

Code:

Private Sub Worksheet_Calculate()
Dim Summe As Double
Summe = WorksheetFunction.Sum(Range("G5:G7"))
Range("H12") = Summe > 0.1 And Summe < 4.9
End Sub

Gruß Ralf