Dieses Forum nutzt Cookies
Dieses Forum verwendet Cookies, um deine Login-Informationen zu speichern, wenn du registriert bist, und deinen letzten Besuch, wenn du es nicht bist. Cookies sind kleine Textdokumente, die auf deinem Computer gespeichert werden. Die von diesem Forum gesetzten Cookies werden nur auf dieser Website verwendet und stellen kein Sicherheitsrisiko dar. Cookies aus diesem Forum speichern auch die spezifischen Themen, die du gelesen hast und wann du zum letzten Mal gelesen hast. Bitte bestätige, ob du diese Cookies akzeptierst oder ablehnst.

Ein Cookie wird in deinem Browser unabhängig von der Wahl gespeichert, um zu verhindern, dass dir diese Frage erneut gestellt wird. Du kannst deine Cookie-Einstellungen jederzeit über den Link in der Fußzeile ändern.

Monatsmittel nach Kalenderwochen ermitteln
#21
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.
Gruß

Edgar

Meine Antworten sind freiwillig und ohne Gewähr!
Über Rückmeldungen würde ich mich freuen.
Antworten Top
#22
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)"
Antworten Top
#23
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
Antworten Top
#24
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
.      \\\|///      Hoffe, geholfen zu haben.
       ( ô ô )      Grüße, André aus G in T  
  ooO-(_)-Ooo    (Excel 97-2019+365)
Antworten Top
#25
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
Antworten Top
#26
Hi Frank,

in diesem Link findest du die Anleitung zum Hochladen einer Datei und hier, wie du einen Tabellenausschnitt posten kannst.
Gruß Günter
Jeder Fehler erscheint unglaublich dumm, wenn andere ihn begehen.
angebl. von Georg Christoph Lichtenberg (1742-1799)
Antworten Top
#27
(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


Angehängte Dateien
.xlsm   FS_Q-Quote_Wochenbericht_Werk Lean.xlsm (Größe: 180,81 KB / Downloads: 8)
Antworten Top
#28
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
.      \\\|///      Hoffe, geholfen zu haben.
       ( ô ô )      Grüße, André aus G in T  
  ooO-(_)-Ooo    (Excel 97-2019+365)
Antworten Top
#29
(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
Antworten Top
#30
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...
.      \\\|///      Hoffe, geholfen zu haben.
       ( ô ô )      Grüße, André aus G in T  
  ooO-(_)-Ooo    (Excel 97-2019+365)
Antworten Top


Gehe zu:


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