Clever-Excel-Forum

Normale Version: Monatsmittel nach Kalenderwochen ermitteln
Du siehst gerade eine vereinfachte Darstellung unserer Inhalte. Normale Ansicht mit richtiger Formatierung.
Seiten: 1 2 3 4
Hallo,

deswegen habe ich bei meiner Berechnung eben das Mittel aus den ganzen Wochen und anteilig aus den angebrochenen Wochen gebildet, das erscheint mir hier das naheliegendste zu sein.
Hallo zusammen!
:19: :19: Oh mein Gott! Was habe ich angerichtet ? Hab anscheinend ne lebhafte Diskussion ins Leben gerufen.
Werde jetzt erst mal versuchen die einzelnen Beiträge zu verstehen und nachzuvollziehen. :19:
Aber nichtsdestotrotz ganz herzlichen Dank für eure rege Teilnahme.

Grüße
Frank

P.S. ...hab das gerade mal kurz überflogen, und gebe schauan da wohl Recht:"...... auch wir werten verschiedene Dinge nach KW aus und bei uns geht eine KW immer von Montag bis Sonntag, egal ob da ein Jahresanfang dazwischen liegt oder auch ein Monatsanfang oder der GDL-Streik oder was auch immer Wink. Entsprechend haben wir bei unserer ersten Auswertung im Januar mal die KW52 oder 53 vom Vorjahr, anderenfalls die KW1 vom aktuellen Jahr. Wenn man immer mit dem 1.1. beginnt, würden einem ja eventuell im alten Jahr ein paar Werte durch die Lappen gehen [img]
Dateiupload bitte im Forum! So geht es: Klick mich!
] Fängt man immer mit der KW 1 an, fehlen eventuell ein paar Werte von Anfang Januar. Es wäre auch etwas seltsam, wenn ich am Anfang und Ende eines Jahres die KW52 auswerte nur weil ich für den 1.-3. Januar unbedingt die aktuelle Jahreszahl daneben stellen will (oder im anderen Fall 2x die KW 1)"
Hallo zusammen,
ich habe jetzt die Formeln von RPP63 [#4] eingesetzt. Ich bin der Meinung, für meine Bedürfnisse völlig ausreichend !
Bis hierher ganz herzlichen Dank.
Wobei mir aufgefallen ist, dass ich wohl nicht ganz zu Ende gedacht habe.
Zu meiner Ehrenrettung muss ich sagen, ich bin Excellaie und die Datei, welche ich bearbeite, habe ich so übernommen und versuche diese Datei sinnvoll zu nutzen.
Ich füge mal ein Bild hinzu (zur weiteren Erklärung), um mein nächstes Problem zu schildern. - ich hoffe das klappt -

[URL=
Dateiupload bitte im Forum! So geht es: Klick mich!
]

oder


Dateiupload bitte im Forum! So geht es: Klick mich!


Oben links wurde ein "nächste Woche“ Button eingefügt. Dieser wird zu Beginn einer neuen Woche gedrückt und eine weitere KW (2015,20) wird in Zelle A7 eingefügt. Die vorherigen Zeilen rücken also weiter nach unten (KW 2015,19 wird dann in Zelle A8 stehen, usw, usw).
Meine erste Frage: Wie bekomme ich jetzt eure Unterstützung ( Funktionen) immer wieder in die Zeile sieben? Geht das über VB? Also auch in dem Button hinterlegen? Oder geht das evtl. gar nicht?
Zweite Frage.
Ich möchte ja gerne Mittelwert pro KW und Bereich, in einer separaten Datei ermitteln .
Die Bereiche sind z.B. FMV, FKV, usw. (siehe Links).
Ich habe mir das so vorgestellt, Excel schaut sich die Prozentwerte je Bereich und Monat an (Excel braucht sich ja eigentlich nur max die Zeilen 7-12 ansehen – die KW rücken ja immer nach) und schreibt mir dann den Mittelwert in eine andere Datei.
Ist meine Vorstellung zu verwegen? Ist das möglich ?
Im Voraus nochmals herzlichen Dank für eure Hilfe
Frank
Hallo Frank,

Du hast ja hier im Thread gesehen, dass die Antworter "richtige" Tabellen posten. Nutze bitte auch ein Tool. Wir können die Daten dann einfach übernehmen und Formeln entwickeln und ausprobieren. Bei einem Bild geht das nicht Sad
Hallo Schauan,
gern würde ich die "richtige" Tabelle posten. Leider bin ich nicht so bewandert, im Umgang mit Foren.Ich weiß daher nicht wie ich meine Tabelle hier posten kann.
Gibt es hierfür, in diesem Forum, eine Anleitung ?

Grüße
Frank
Hi Frank,

in diesem Link findest du die Anleitung zum Hochladen einer Datei und hier, wie du einen Tabellenausschnitt posten kannst.
(11.05.2015, 22:42)WillWissen schrieb: [ -> ]Hi Frank,

in diesem Link findest du die Anleitung zum Hochladen einer Datei und hier, wie du einen Tabellenausschnitt posten kannst.

Guten Morgen!
Dann will ich das mal versuchen Smile
Hallöchen,

das könntest Du im Prinzip ebenso aufzeichnen wie Deinen bisherigen code und dann zusammenfügen, z.B.

Aufzeichnen der Eingabe einer Formel in B66

Code:
Sub Makro1()
'
' Makro1 Makro
'

'
    Range("B66").Select
    ActiveCell.FormulaR1C1 = "=MOD(RC[-1],INT(RC[-1]))"
    Range("B67").Select
End Sub


Code optimieren

Code:
Range("B66").FormulaR1C1 = "=MOD(RC[-1],INT(RC[-1]))"

und Makro komplettieren (ich habe es vorher auch mal etwas optimiert)

Code:
Private Sub CommandButton1_Click()
' Woche Makro
' Makro am 02.08.2010 von Udo Rolvering aufgezeichnet
    Range("A7:A57").Copy
    Range("A8").PasteSpecial xlPasteValues
    Range("A7").FormulaR1C1 = "=R[1]C+0.01"
    Range("A66:A116").Copy
    Range("A67").PasteSpecial xlPasteValues
    Range("A66").FormulaR1C1 = "=R[1]C+0.01"
    Range("A126:A176").Copy
    Range("A127").PasteSpecial xlPasteValues
    Range("A186:H236").Copy
    Range("A187").PasteSpecial xlPasteValues
    Range("A186").FormulaR1C1 = "=R[1]C+0.01"
   'Formeleintraege:
    Range("B66").FormulaR1C1 = "=MOD(RC[-1],INT(RC[-1]))"
End Sub
(12.05.2015, 17:03)schauan schrieb: [ -> ]Hallöchen,

das könntest Du im Prinzip ebenso aufzeichnen wie Deinen bisherigen code und dann zusammenfügen, z.B.

Aufzeichnen der Eingabe einer Formel in B66


Code:
Sub Makro1()
'
' Makro1 Makro
'

'
   Range("B66").Select
   ActiveCell.FormulaR1C1 = "=MOD(RC[-1],INT(RC[-1]))"
   Range("B67").Select
End Sub


Code optimieren


Code:
   Range("B66").FormulaR1C1 = "=MOD(RC[-1],INT(RC[-1]))"

und Makro komplettieren (ich habe es vorher auch mal etwas optimiert)


Code:
Private Sub CommandButton1_Click()
' Woche Makro
' Makro am 02.08.2010 von Udo Rolvering aufgezeichnet
   Range("A7:A57").Copy
   Range("A8").PasteSpecial xlPasteValues
   Range("A7").FormulaR1C1 = "=R[1]C+0.01"
   Range("A66:A116").Copy
   Range("A67").PasteSpecial xlPasteValues
   Range("A66").FormulaR1C1 = "=R[1]C+0.01"
   Range("A126:A176").Copy
   Range("A127").PasteSpecial xlPasteValues
   Range("A186:H236").Copy
   Range("A187").PasteSpecial xlPasteValues
   Range("A186").FormulaR1C1 = "=R[1]C+0.01"
  'Formeleintraege:
   Range("B66").FormulaR1C1 = "=MOD(RC[-1],INT(RC[-1]))"
End Sub

Guten Morgen schauan.
Danke für deine Hilfe!
Ich habe jetzt gerade folgendes gemacht:
Ich habe den Code, der irgendwann vor meiner Zeit hier 2010, aufgezeichnet wurde durch deinen Code ersetzt.

Private Sub CommandButton1_Click()
'Sub Woche()
'
' Woche Makro
' Makro am 02.08.2010 von Udo Rolvering aufgezeichnet
'
'
    Range("A7:A57").Copy
    Range("A8").PasteSpecial xlPasteValues
    Range("A7").FormulaR1C1 = "=R[1]C+0.01"
    Range("A66:A116").Copy
    Range("A67").PasteSpecial xlPasteValues
    Range("A66").FormulaR1C1 = "=R[1]C+0.01"
    Range("A126:A176").Copy
    Range("A127").PasteSpecial xlPasteValues
    Range("A186:H236").Copy
    Range("A187").PasteSpecial xlPasteValues
    Range("A186").FormulaR1C1 = "=R[1]C+0.01"
   'Formeleintraege:
    Range("B66").FormulaR1C1 = "=MOD(RC[-1],INT(RC[-1]))"
End Sub

Die einzige Veränderung, die ich bemerkt habe, ist der Zelleneintrag in B66.
Da steht jetzt je nach Kalenderwoche 0,20 (bei KW20), 0,21 (bei Kw21) usw.
Bzw. in der Zelle B66 steht " =REST(A66;GANZZAHL(A66))"

Dies habe wir doch schon oben in Zelle B7 und folgende gelöst.
Hab ich jetzt da was falsch gemacht? Oder hab ich mein Problem etwa nicht richtig erklärt?

Bitte um kurzes Feedback. Danke.
Grüße Frank
Hallo Frank,

ich habe jetzt nur irgendeine Formel eingetragen, um den Lösungsweg zu zeigen. Da musst Du mit der Aufzeichnung die gewünschte Formel eintragen und dann in den code übernehmen. Die Formel war doch nicht das Hauptproblem, oder müssen wir die noch entwickeln? Nicht, dass ich irgendwo was überlesen habe...
Seiten: 1 2 3 4