MSG Box
#1
Hallo zusammen,
Ich kann am Besten einmal das komplette Problem schildern, glaube, dann ist es auch verständlicher was ich meine ( drücke mich manchmal etwas kompliziert aus). Ich baue gerade an einem Urlaubsplaner. In Spalte A wird (Urlaub von) eingegeben und in Spalte B (Urlaub bis) eingegeben. In Spalte C wirft er dann anhand einer Formel die benötigten Urlaubstage aus (z.b. 5). Jetzt müssen die Urlaubstage noch mit dem Resturlaub (SpalteD) abgeglichen werden und wenn zu viel Urlaub genommen worden ist, soll eine MSG-Box erscheinen.
Ich kann auch gerne eine Musterdatei zur Verfügung stellen.
Vielleicht kann mir hier jemand helfen oder hat ne Idee wie ich das lösen kann?
 LG Steffi
Top
#2
Hi Steffi,

ist das eine Option?

Tabelle2

ABCDE
1Urlaub vonbisTageUrlaubstage
205.02.1528.02.151730
319.04.1512.05.151713
406.08.1525.08.1514-1zuviele Tage!!
5
6
Formeln der Tabelle
ZelleFormel
C2=WENN(UND(A2="";B2="");"";NETTOARBEITSTAGE.INTL(A2;B2;1))
E2=WENNFEHLER(WENN(D2<0;"zuviele Tage!!";"");"")
C3=WENN(UND(A3="";B3="");"";NETTOARBEITSTAGE.INTL(A3;B3;1))
D3=WENNFEHLER(D2-C3;"")
C4=WENN(UND(A4="";B4="");"";NETTOARBEITSTAGE.INTL(A4;B4;1))
D4=WENNFEHLER(D3-C4;"")
E4=WENNFEHLER(WENN(D4<0;"zuviele Tage!!";"");"")
C5=WENN(UND(A5="";B5="");"";NETTOARBEITSTAGE.INTL(A5;B5;1))
D5=WENNFEHLER(D4-C5;"")
E5=WENNFEHLER(WENN(D5<0;"zuviele Tage!!";"");"")
C6=WENN(UND(A6="";B6="");"";NETTOARBEITSTAGE.INTL(A6;B6;1))
D6=WENNFEHLER(D5-C6;"")
E6=WENNFEHLER(WENN(D6<0;"zuviele Tage!!";"");"")

Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4.8
Gruß Günter
Jeder Fehler erscheint unglaublich dumm, wenn andere ihn begehen.
angebl. von Georg Christoph Lichtenberg (1742-1799)
Top
#3
Hallo Günther,

vielen Dank für deinen Hinweis Smile.
So in etwas hatte ich mir das als Notlösung auch gedacht.
Aber ich wollte den Hinweis nicht unbedingt in einer extra Spalte, sondern als Pop Up bzw. MSG Box anzeigen lassen.
Vielleicht da ne Idee wie ich das umsetzen kann?

LG Steffi
Top
#4
Hi Steffi,


Zitat:Aber ich wollte den Hinweis nicht unbedingt in einer extra Spalte, sondern als Pop Up bzw. MSG Box anzeigen lassen.

das geht dann nur mit einem  Makro. Aber mangels fundiertem Wissen kann ich dir dabei nicht helfen. Aber es sind genügend VBA-Spezialisten am Werk. ;)
Gruß Günter
Jeder Fehler erscheint unglaublich dumm, wenn andere ihn begehen.
angebl. von Georg Christoph Lichtenberg (1742-1799)
Top
#5
Hi Steffi,

nochmals ich ohne VBA :05: 

Falls du's immer noch anders gelöst haben möchtest - erschlage mich bitte nicht. ;)


Tabelle2

ABCD
1Urlaub vonbisTage30  Gesamt-Url.-Tg.
205.02.1528.02.151713
319.04.1526.04.1558
406.08.1528.08.15179  Tag( e) zuviel
5
6
Formeln der Tabelle
ZelleFormel
C2=WENN(UND(A2="";B2="");"";NETTOARBEITSTAGE.INTL(A2;B2;1))
D2=WENNFEHLER(WENN(D1-C2<0;TEXT(ABS(D1-C2);"0")& "  Tag( e) zuviel";D1-C2);"")
C3=WENN(UND(A3="";B3="");"";NETTOARBEITSTAGE.INTL(A3;B3;1))
D3=WENNFEHLER(WENN(D2-C3<0;TEXT(ABS(D2-C3);"0")& "  Tag( e) zuviel";D2-C3);"")
C4=WENN(UND(A4="";B4="");"";NETTOARBEITSTAGE.INTL(A4;B4;1))
D4=WENNFEHLER(WENN(D3-C4<0;TEXT(ABS(D3-C4);"0")& "  Tag( e) zuviel";D3-C4);"")
C5=WENN(UND(A5="";B5="");"";NETTOARBEITSTAGE.INTL(A5;B5;1))
D5=WENNFEHLER(WENN(D4-C5<0;TEXT(ABS(D4-C5);"0")& "  Tag( e) zuviel";D4-C5);"")
C6=WENN(UND(A6="";B6="");"";NETTOARBEITSTAGE.INTL(A6;B6;1))
D6=WENNFEHLER(WENN(D5-C6<0;TEXT(ABS(D5-C6);"0")& "  Tag( e) zuviel";D5-C6);"")

Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4.8
Gruß Günter
Jeder Fehler erscheint unglaublich dumm, wenn andere ihn begehen.
angebl. von Georg Christoph Lichtenberg (1742-1799)
Top
#6
Hallo!
Ich hatte Dir ja bereits im Nachbarforum empfohlen, einfach eine zeilenweise bedingte Formatierung anzuwenden.
Ich als Benutzer der Tabelle würde mich bedanken, immer eine MsgBox wegklicken zu müssen.
Das wäre keine Usability sondern das Gegenteil.

Für das Beispiel von Günther:
- Markiere die Spalten A:D
- bed. Form., neue Regel Formel ist: =$D1<0
- Format: Hintergrund rot

Gruß Ralf
Gib einem Mann einen Fisch und du ernährst ihn für einen Tag. 
Lehre einen Mann zu fischen und du ernährst ihn für sein Leben. (Konfuzius)
Top


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste