Office: Datum per Makro; Auslesen aus 2.Blatt

Hallo,

3 Fragen,

1. Button "Neue Woche" funktioniert nur, wenn Montag ist. Geht dies auch innerhalb der Woche?

2. Wie sieht die Formel oder das Makro aus, wenn ich die Gesamtstunden pro Auftrag (über alle Woche hinweg aus Blatt "Alle_Wochen") ermitteln will, Ausgabe Rotes Feld.

3. Geht das Makro für "Woche speichern" und "Woche Laden" zu kürzen?

Danke für Eure Hilfe, Silex1

 

Hallo!

Teste mal dies für die "Neue Woche":

Code:

Private Sub NeueWoche_Click()
Dim i%
For i = 0 To 5
    Range("B7").Offset(0, i).Value = Date + 1 + i - Weekday(Date, vbMonday)
Next i
Range("B8:G22").Value = ""
End Sub

Die Gesamtstunden ermittelst du z.B. so:

=SUMME(WENN(REST(SPALTE(B:DD);3)=2;WENN(Alle_Wochen!B2:DD100=C27;Alle_Wochen!D2:DF100)))

Achtung Matrixformel: Die Eingabe der Formel mit der Tastenkombination Strg+Shift+Enter abschließen!

 

Supie, funzt alle wie geplant. Dank Deiner (erneuten) Hilfe.

LG Silex1