Immer wieder Freitags

[Hajopay]

Hallo liebe Excel Gemeinschaft,

ich hätte da wieder ein Problem zu dem ich nicht fähig bin es zu lösen.


  Planer.xlsm (Größe: 77,22 KB / Downloads: 4)

Das Problem befindet sich in der oben eingefügten Tabelle.
Ich hätte gerne das immer unter einem Freitag eine Wochen Stunden Übersicht erstellt wird.
In der Beispiel Datei ist dies auch zu sehen. EK33= Wochen Std.
                                                               EI33= Summe von Vorhanden/Vorgaben
                                                               Formel in EI33 =Summe(EI30+EE30+EA30+DW30+DS30)

Per Button wird immer ein neuer Wochentag erstellt und wie schon erwähnt soll er Freitags diese Übersicht erstellen
Der Button ist der Command Button 2
grüner Unterpunkt  -  Wochen Std.

Ich habe da schon versucht das anhand des aktuellen Datums zu realisieren aber dann macht er das ja immer, also wäre Freitag würde er das unter jedem Tag in der Tabelle machen.

Eine Idee, Lösung oder Anregung wäre echt super.

Grüße und danke im vorraus

[Kuwer]

Hallo,

probiere es mal so:

Code:

Private Sub CommandButton2_Click()

'Makro zum Ausfuellen von einem Tag
'Variablendeklarationen
Dim lCol As Long
   'letzte letzte belegte Spalte berechnen
 
   lCol = Cells(3, Columns.Count).End(xlToLeft).Column
   'Bereich vervielfaeltigen
   Range(Cells(2, lCol - 3), Cells(31, lCol)).AutoFill _
   Destination:=Range(Cells(2, lCol - 3), Cells(31, lCol + 4)), Type:=xlFillDefault
     
'Angleichen der Produktivität
   Cells(31, lCol + 1).Value = Cells(31, lCol - 3).Value
'Wochen Std.
   If Weekday(Cells(2, lCol - 3).Value, 2) = 5 Then
    Cells(33, lCol - 1).Value = "Wochen Std."
    Cells(33, lCol).FormulaR1C1 = _
       "=SUM(R[-3]C[-3]+R[-3]C[-7]+R[-3]C[-11]+R[-3]C[-15]+R[-3]C[-19])"
   End If

End Sub

Gruß Uwe

[Rabe]

Hi,

Ich hätte gerne das immer unter einem Freitag eine Wochen Stunden Übersicht erstellt wird.
In der Beispiel Datei ist dies auch zu sehen. EK33= Wochen Std.
                                                               EI33= Summe von Vorhanden/Vorgaben
                                                               Formel in EI33 =Summe(EI30+EE30+EA30+DW30+DS30)

EI33 oder EL33?

Formel in Deiner Datei:
=WENN(WOCHENTAG(EI2;2)=5;SUMME(EI30+EE30+EA30+DW30+DS30);"")

fürs Makro:

PHP-Code:

    ActiveCell.FormulaR1C1 = _
        "=IF(WEEKDAY(R[-31]C[-3],2)=5,SUM(R[-3]C[-3]+R[-3]C[-7]+R[-3]C[-11]+R[-3]C[-15]+R[-3]C[-19]),"""")" 


Warum flattern Deine Kabinen-Bezeichnungen in der Tabelle?

PS: Uwes Lösung ist natürlich schöner als meine, da nicht an 7 Tagen eine Formel eingefügt wird, die nur an 1 benötigt wird.

[Hajopay]

Danke für die Antworten!

An Rabe:
Also bei mir Flackert nichts

EL wäre es gewesen, mein Fehler sorry

Ich habe deine Formel eingebaut, das Ergebnis zeigt er auch immer nur Freitags an jedoch bin ich jetzt
nicht in der Lage dafür zu Sorgen das er auch nur Freitags Wochen Std. in EK33 schreibt.
Verstehe die Formel nicht deswegen bekomme ich es nicht hin.

An Kuwer:

Deine Lösung macht es so wie ich es gern hätte mit nur einem Problem.
Wenn der Freitag erzeugt wurde, steht darunter nichts, wird der Samstag erzeugt, dann erscheint unter dem Freitag die gewünschten angaben.

Grüße

[Kuwer]

Hallo,

dann so:

Code:

'Wochen Std.
   If Weekday(Cells(2, lCol + 1).Value, 2) = 5 Then
    Cells(33, lCol + 3).Value = "Wochen Std."
    Cells(33, lCol + 4).FormulaR1C1 = _
       "=SUM(R[-3]C[-3]+R[-3]C[-7]+R[-3]C[-11]+R[-3]C[-15]+R[-3]C[-19])"
   End If

Gruß Uwe

[Hajopay]

Ja super das klappt.

kannst du mir das denn mal erklären?
Wie ich das sehe hast du -3 in +1 ersetzt und -1 in + 3
und du hast noch ein + 4 hinzugefügt

würde das gerne ansatzweise verstehen.

Eine Erklärung wäre super nett.

Grüße

[Kuwer]

Hallo,

vorher bezog sich das Ganze auf den schon bestehenden Tag, also links von bis letzte Spalte und nun auf den neu eingetragenen Tag rechts der vorher ermittelten letzten Spalte.

Gruß Uwe

[Hajopay]

Ok Danke für diese Erläuterung
 
kann man denn jetzt auch kurz in worte fassen was dies alles bedeutet?

"=SUM(R[-3]C[-3]+R[-3]C[-7]+R[-3]C[-11]+R[-3]C[-15]+R[-3]C[-19])"

Also ich würde gerne die Spalten anpassen aber ich kann mir nicht erklären wo da die spalten raus erkannt werden können

Grüße

[Rabe]

Hi,

An Rabe:
Also bei mir Flackert nichts

doch:
   

"flattern" = Flattersatz!

[Hajopay]

Oh das

hab gerade mal nachgeschaut.
Dort wo er sich die Angaben her nimmt ist genau hinter Kabine 13 noch ein Leerzeichen eingetippt worden, das übernimmt er scheinbar auch mit.


Ich hätte da noch eine allgemeine Frage.

Ich habe das Problem das Excel bei dem kopieren der Tabellen scheinbar willkürlich weiter zählt.
In dem Beispiel oben hat man ja zb Kabine 13, da zählt er nichts mit
In einer anderen Tabelle einer anderen Abteilung gibt es den Arbeitsplatz Wafios 90 und beim kopieren steht dann Wafios 91 usw.

Ich kann mir das nicht erklären.

Zellen sind alle auf Standard formatiert

Dazu noch jemand eine Lösung?

Grüße