Office: Probleme bei Formelberechnung

Hallo Philipp,

Das rührt daher, dass Du im Makro den Datumsbereich B9:B39 der Monatsblätter abgeändert hast auf B1:B39. Dadurch wurde die Funktion "KalWoch(Datum)" auch mit Texten (z.B. "Stundenabrechnung", "Datum" etc) gefüttert, was dieser gar nicht wohl bekommen ist.

Ja müsste man - nur kann man das ja auch ganz leicht händisch machen:
Vorgangsweisen bis Excel2003:
1) Druckbereich im Arbeitsblatt markieren
2) Im Excel-Menu > Datei > Druckbereich > Druckbereich festlegen
Vorgangweisen ab Excel2007:
1) Druckbereich im Arbeitsblatt markieren
2) Multifunktionsleiste > Tabulator 'Seitenlayout' > Button 'Druckbereich' > Befehl 'Druckbereich festlegen'
Da Du es extra gewünscht hast, habe ich Dir diese Funktionalität auch ins Makro 'MonatDrucken' eingefügt.

In Deinem Beispiel befindet sich der Arbeitsbeginn in F11 (13:00) und das Arbeitsende in G12 (16:00), während in G11 der Pausenanfang steht mit folgender Formel:
=WENN(Z11=0;Z12;WENN(F11="";"";F11+4/12))
was im Wesentlichen bewirkt, dass die Pause 4 Stunden nach Arbeitsbeginn beginnt. Das ist für Dich ok, solange die Differenz G12-F11 (Arb.Ende-Arb.Beginn) 8 bis 9 Stunden beträgt - dann beginnt die Pause nach 4 Stunden.
Mein Vorschlag: Ist dieses Intervall kleiner als 8 Stunden, dann soll die Pause nicht nach 4 Stunden beginnen, sondern genau zur Halbzeit.
Folgende Formel leistet das:
=WENN(Z11=0;Z12;WENN(F11="";"";MIN((F11+G12)/2;F11+4/12)))
Es wird also der kleinere (MIN-Funktion) der beiden folgenden Werte
(F11+G12)/2
F11+4/12
als Pausenbeginn genommen. Diese Formel habe ich Dir in G11 eingebaut.

Darüber hinaus habe ich Dir in den Monatsblättern in Bereich der Zelle N1 einen Button mit der Aufschrift "KWs Januar drucken" bzw. "KWs Februar drucken" eingebaut. Beim Klicken mit der Maus wird jeweils das Makro "MonatDrucken" ausgeführt. Dieser Button erspart Dir also die Tasten Alt+F8+EINGABE.

 

Hallo Anton,

vielen Dank für Deine Antwort!

Tja, wer lesen kann ist klar im Vorteil...hab rum probiert und rum probiert,
dabei ist dann wohl aus der 9 ne 1 geworden :roll:
Habe gerade aber gemerkt, dass der Fehler auch auftritt, wenn z.B. ein
KW Blatt nicht existiert, welches aber vom Makro angesprochen wird.
Kann sein, dass ich das beim Testen vorhin auch nicht beachtet hatte. Naja, jetzt geht's ja :-)

Das mit dem Druckbereich festlegen klappt nun auch prima, Danke!

Toller Vorschlag. Ich wäre erst gar nicht auf die Idee gekommen, da ich ja nicht mal wusste,
dass so etwas möglich ist, aber langsam glaub ich echt an alles :-D
Habe den Code nun überall geändert - funktioniert einwandfrei!

Das ist ja deluxe!! Genau so hatte ich mir das gewünscht. Prima!

Ich verstehe zwar noch nicht alles von dem "Makro-Code" aber ich werde von Tag zu Tag schlauer :-D

Dass die Funktion "KalWoch(Dt As Date) As Integer" aus der Datumsvariable die Kalenderwoche ermittelt hab ich verstanden.
Wäre es auch möglich, dass wenn man auf "KWs Januar drucken" klickt, nicht nur die betreffenden KWs ausgedruckt werden,
sondern zusätzlich noch die Monatsübersicht "Januar" mit ausgedruckt wird, oder müsste man dazu wieder ein neues Makro schreiben?

Viele Grüße, DANKE & Gute Nacht,
Philipp

 

Hallo Philipp,

Das habe ich Dir in der beiliegenden Datei eingebaut. Dazu habe ich im Makro in den Datumsbereich B9:B39 auch noch die Überschrift mit einbezogen. Das dort enthaltene Wort "Datum" bewirkt die Miteinbeziehung des Monatsblattes.
Gleichzeitig musste ich auch noch die Druckbereichseinstellung A7:N40 für dieses Monatsblatt ins Makro mit hineinnehmen; falls Du da etwas anderes wünschst, müsstest Du die betreffende Stelle im Makro ändern.

Falls diese Situation auftritt, habe ich Dir jetzt einen definierten Fehlerabfang eingebaut: Es erscheint jetzt eine entsprechende Meldung mit dem Namen des geforderten Arbeitsblattes. Anschließend wird natürlich das Makro beendet. Das fehlende Blatt muss dann eingefügt werden.

Zur Erleichterung dieser Mühe habe ich auch zusätzlichen Kommentar ins Makro eingefügt.

 

Hallo Anton...

ich bin schon wieder sprachlos...jetzt sogar mit Fehlerausgabe und Erklärung...das wird ja immer besser :-)

Du machst das sicher beruflich, andernfalls kann ich mir nicht vorstellen woher man das alles wissen kann.
Ich hätte nie gedacht, dass soviel mit Excel möglich ist! :-o

Ich bin die nächsten 3 Tage beruflich unterwegs...danach baue ich mit dem neuen Makro und den
geänderten Formeln die ganze Tabelle fertig. Ich will dann endlich auch die bisher schwarz markierten
Zellen "mit Formeln füllen" damit alles mal funktioniert.

Da ich mehr als wunschlos glücklich bin und jetzt alles funktioniert, denke ich, dass ich es hin kriege...
falls doch irgendetwas nicht funktionieren sollte "klopf" ich nochmal an ;-)

Ich melde mich aber auf jedenfall nochmal MO oder DI und stelle die Finale Datei online,
damit jeder was davon hat der sowas gebrauchen kann.

Jedenfalls sag ich mal VIELEN VIELEN DANK für Deine phantastische Hilfe und Geduld mit mir! :-D

Liebe Grüße,
Philipp

 

Hallo Anton,

ich habe jetzt alles soweit fertig gebastelt. In den Einstellungen habe ich noch
eine automatische Feiertagsberechnung eingebaut und so verknüpft, dass auf den Monatsblättern ein Feiertagszuschlag berechnet wird,
falls der Arbeitstag auf einen Feiertag fällt.

Soweit klappt alles wunderbar, bis auf ein Problem.

Auf den KW Blätter habe ich das Feld "Produktionsnummer/-Titel" noch mit folgender Formel verknüpft:

Beispiel Code für "Blatt KW1 T7"

Code:

=MonatFeld($Y7;14)

Wenn ich jetzt auf dem Monatsblatt Januar für den 03.01.2011 meine Daten eintrage sowie bei "Produktion" einen Namen
eingebe und danach auf "KWs Januar drucken" klicke, dann wird wunderbar eine Vorschau erstellt.
Merke ich allerdings, dass ich den Produktionsnamen falsch geschrieben habe - ändere ihn dann auf dem Monatsblatt und klicke
erneut "KWs Januar drucken", dann wird auf dem Blatt "KW1" plötzlich der Produktionsname noch in einer anderen Zelle doppelt aufgeführt.

Kannst Du Dir das erklären?

Habe die Datei nochmal neu angehängt, musste aber alle anderen nicht relevanten Blätter entfernen wegen der 256kb Beschränkung.

Viele Grüße,
Philipp

 

Hallo Philipp,

Ja, das kann ich mir erklären:
Das Makro "MonatDrucken", das hinter den Buttons "KWs ... drucken" steckt, macht im Grunde nichts anderes als Folgendes: Es schaut im Monatsblatt nach, welche KWs enthalten sind, und selektiert das Monatsblatt und die zugehörigen KW-Blätter. Daraufhin wird die Druckvoransicht aufgerufen. Sobald man auf irgendeine Weise diese Voransicht verlässt, bleibt die getätigte Blätterauswahl/selektion trotzdem weiterhin bestehen.
Nun kommt aber eine spezielle Excel-Funktionalität zum Tragen: der sogenannte 3D-Bezug: Hat man mehrere Arbeitsblätter (zB. über die Blattreiter) ausgewählt und ändert eine/mehrere Zellen in einem der ausgewählten Blätter, so wird/werden die gleichen Zellen der anderen Blätter auf die gleiche Weise geändert.
Du hast zB. im Monatsblatt "Januar" in Zelle N9 den Produktionsnamen geändert (wobei gleichzeitig die Blätter "Januar" und "KW1" ausgewählt waren), so hast Du damit auch die Zelle N9 vom Blatt "KW1" mit geändert - deshalb steht dort plötzlich eine Art "Geistereintrag", der aus dem Nichts zu kommen scheint.

Ich habe Dir in der beiliegenden Excel-Datei das Makro "MonatDrucken" geändert, indem ich zwischen der letzten Anweisung "Sheets(Wochen).PrintPreview" und dem abschließenden "Exit Sub" noch eine weitere Anweisung "Ws.Select" eingefügt habe. Dadurch wird die für die Voransicht nötige Mehrfachauswahl von Arbeitsblättern wieder aufgehoben und es ist nach Beendigung des Makros nur mehr das (Monats)blatt ausgewählt, das den gedrückten Button enthält.

 

Hallo Anton,

danke für Deine Antwort. Das funktioniert ja wiedermal wunderbar.
Und ich habe sogar verstanden woran es gelegen hat :-D
Nun bin ich wirklich wunschlos glücklich...alles klappt...perfekt!

Vielen vielen Dank für Deine Hilfe!

Grüße & schönen Abend,

Philipp