Hallo Helfer
Könnt Ihr mir bitte ein Makro schreiben das folgendes auslöst:
Wenn im aktiven Tabellenblatt die Zellen
Q24 und/oder
Q32 und/oder
Q37
<> 0 sind,
Hintergrund der betroffenen vorgelagerten Zellen
B24, B32, B37
rot einfärben
und eine MSG-Box anzeigen mit dem Text "Kontierung fehlt!"
Also wenn zum Beispiel die Zellen Q24 und Q37 <> 0 sind,
die Zellen B24 und B37 rot einfärben
und die MSG-Box anzeigen.
Ich bin sehr froh, wenn Ihr mir helfen könnt.
Dank und Gruss
Theo
Hallo Theo,
das sind mir zu viele
UND/ODER 
.
Dein Beispiel ist soweit klar. Aber was ist in diesem Fall mit der Zelle Q32?
Gruß
Max
Hallo Theo,
grundsätzlich ginge es leichter mit einer Kombination aus Bedingter Formatierung und Datengültigkeit, also ohne VBA.
Wenn Du aber unbedingt VBA einsetzen möchtest, dann brauchen wir mehr Infos.
Soll das Makro manuell angestoßen werden?
Wenn ja, muss noch ein Makro her, dass nach Korrektur der Eingaben die Farben wieder zurücksetzt, auch manuell.
Sonst musst Du beschreiben, ob die Eingaben in Spalte B gemacht werden oder in andern Zellen?
Hallo Max
Danke für Deine Antwort.
Q32 ist in meinem Beispiel = 0, also muss B32 nicht eingefärbt werden.
Zur Erklärung:
In Spalte B sind Kontierungen. In Spalte Q kumulierte Umsätze.
Es braucht jedoch nur einen Eintrag in Spalte B, wenn auch Werte in Spalte Q vorhanden sind.
Wenn in einer Zelle in Spalte Q ein Wert vorhanden ist, muss das Makro prüfen ob in Spalte
B auf der gleichen Zeile ein Eintrag enthalten ist. Also Zellinhalt <> 0.
Wenn nein, soll es Zelle Bx markieren und die MSG-Box aktivieren.
Gruss
Theo
Hi Theo,
also prüfst Du zeilenweise. Okay.
Dann blieben noch die Fragen von Atilla offen.
Gruß
Max
(24.02.2015, 12:43)atilla schrieb: [ -> ]Hallo Theo,
grundsätzlich ginge es leichter mit einer Kombination aus Bedingter Formatierung und Datengültigkeit, also ohne VBA.
Wenn Du aber unbedingt VBA einsetzen möchtest, dann brauchen wir mehr Infos.
Soll das Makro manuell angestoßen werden?
Wenn ja, muss noch ein Makro her, dass nach Korrektur der Eingaben die Farben wieder zurücksetzt, auch manuell.
Sonst musst Du beschreiben, ob in die Eingaben in Spalte B gemacht werden oder in andern Zellen?
Hallo Atilla
Ich brauche die MSG-Box, damit die fehlende Kontierung nicht übersehen wird. Ich denke, das geht nur mit VBA, oder?
Das Makro soll angestossen werden, wenn in Spalte Q der Wert <> 0 wird. Der Wert wird aus vorgelagerten Zellen berechnet.
An das Zurücksetzten der Farbe habe ich nicht gedacht.
Kann man im Makro einbauen, dass, wenn in den definierten Zellen Qx und den entsprechenden Zellen Bx
in beiden Zellen "0" oder in beiden Zellen ein Wert ist, keine Färbung erfolgen soll?
Kompliziert...
Danke Dir für Deine Unterstützung
Gruss
Theo
Hallo Theo,
eine Datei mit anonymisierten Daten wäre einfacher für uns.
Wie sollen wir wissen, in welchem Bereich die auszuwertenden Daten stehen?
Hast Du in Zeile 1 Überschriften und danach folgen dann die Daten, oder wie sieht die Tabelle aus?
Gruß
Max
Hallo Theo,
das geht auch ohne VBA.
In den Zellen der Spalte Q befinden sich Formeln, richtig?
Diese Formel hat einen Bezug zu einer Zelle, in der eine Eingabe gemacht wird. Welche Zelle ist das?
Zeig uns mal die Formel in Q24
(24.02.2015, 13:19)atilla schrieb: [ -> ]Hallo Theo,
das geht auch ohne VBA.
In den Zellen der Spalte Q befinden sich Formeln, richtig?
Diese Formel hat einen Bezug zu einer Zelle, in der eine Eingabe gemacht wird. Welche Zelle ist das?
Zeig uns mal die Formel in Q24
Hallo Atilla
auch mit MSG-Box? Oder Kommentar? Oder sonst einem Popup? Ich bin gespannt.
Also, in Q24 steht zum Beispiel:
=SUMME(E24:P24)
Gruss
Theo
(24.02.2015, 13:28)Theo schrieb: [ -> ] (24.02.2015, 13:19)atilla schrieb: [ -> ]Hallo Theo,
das geht auch ohne VBA.
In den Zellen der Spalte Q befinden sich Formeln, richtig?
Diese Formel hat einen Bezug zu einer Zelle, in der eine Eingabe gemacht wird. Welche Zelle ist das?
Zeig uns mal die Formel in Q24
Hallo Atilla
auch mit MSG-Box? Oder Kommentar? Oder sonst einem Popup? Ich bin gespannt.
Also, in Q24 steht zum Beispiel:
=SUMME(E24:P24)
Gruss
Theo
Hallo Atilla,
Ich bin irritiert.
Warum steht da nicht
=Summe(E23:'P14')
Theo