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.

Immer wieder Freitags
#1
Hallo liebe Excel Gemeinschaft,

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


.xlsm   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
Antworten Top
#2
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
Antworten Top
#3
Hi,
(17.06.2015, 07:44)Hajopay schrieb: 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.
Antworten Top
#4
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
Antworten Top
#5
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
Antworten Top
#6
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
Antworten Top
#7
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
[-] Folgende(r) 1 Nutzer sagt Danke an Kuwer für diesen Beitrag:
  • Hajopay
Antworten Top
#8
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
Antworten Top
#9
Hi,

(17.06.2015, 11:38)Hajopay schrieb: An Rabe:
Also bei mir Flackert nichts

doch:
   

"flattern" = Flattersatz!
[-] Folgende(r) 1 Nutzer sagt Danke an Rabe für diesen Beitrag:
  • Hajopay
Antworten Top
#10
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
Antworten Top


Gehe zu:


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