Kopiere von Sheet1 in Sheet2 wenn KW sich erhöht

[claudia]

Hallo liebes Forum,

ich bin schon seit Tagen dran folgendes Problem zu lösen, habe leider auch nichts passendes im Netz gefunden...

Ich habe zwei Arbeitsblätter mit Tabellen: Arbeitsblatt "Tagesbericht" Arbeitsblatt "Wochenbericht"
Im Tagesbericht werden bspw. Zahlen erfasst, wieviele Cd's verkauft wurden, Zelle "B3".
Ich habe das jetzt soweit hinbekommen das er mir die Zelle in "Wochenbericht" kopiert.
Was jetzt mein Problem ist, sobald ich die Kalenderwoche erhöhe von 40 auf 41 sollen die Daten der verkauften Cd's in die nächste Spalte kopiert werden, demnach in Zelle "C3".
Das soll 4x möglich sein (1Monat = 4Wochen)
Hoffe ihr könnt mir weiterhelfen...

Sorry hab vergessen dazu zu schreiben das die KW in Zelle "A2".

Lg Claudi

[Rabe]

Hi Claudi,

Ich habe das jetzt soweit hinbekommen das er mir die Zelle in "Wochenbericht" kopiert.
Was jetzt mein Problem ist, sobald ich die Kalenderwoche erhöhe von 40 auf 41 sollen die Daten der verkauften Cd's in die nächste Spalte kopiert werden, demnach in Zelle "C3".
Das soll 4x möglich sein (1Monat = 4Wochen)
Hoffe ihr könnt mir weiterhelfen...

Sorry hab vergessen dazu zu schreiben das die KW in Zelle "A2".

wie machst Du das Kopieren der Werte in "Wochenbericht"?

Ich würde per Makro bei Änderung der Zelle A2 eine neue Spalte in B einfügen und dann die Daten der letzten Woche reinkopieren.

[GMG-CC]

Moin Claidi(a),

es kommt ja sehr selten vor, dass ein Monat genau 4 KWs hat. Wie regelst du das denn an den Überhang-Tagen?

[claudia]

Code:

Private Sub CommandButton1_Click()

'Überträgt Daten für die erste Woche im Monat
'Überträgt die Kalenderwoche
With Worksheets("Wochenübersicht").Range("F3")
    If Len(.Value = .Value) Then
    Worksheets("Produkt._Monat").Range("B5").Value = .Value
      


   With Worksheets("Wochenübersicht").Range("I6")
     If Len(.Value) Then
       Worksheets("Produkt._Monat").Range("B6").Value = .Value
     End If
   End With
  
    With Worksheets("Wochenübersicht").Range("I9")
     If Len(.Value) Then
       Worksheets("Produkt._Monat").Range("B8").Value = .Value
     End If
   End With
  
    With Worksheets("Wochenübersicht").Range("I11")
     If Len(.Value) Then
       Worksheets("Produkt._Monat").Range("B12").Value = .Value
     End If
   End With
  
    With Worksheets("Wochenübersicht").Range("I15")
     If Len(.Value) Then
       Worksheets("Produkt._Monat").Range("B14").Value = .Value
     End If
   End With

    With Worksheets("Wochenübersicht").Range("G7")
     If Len(.Value) Then
       Worksheets("Produkt._Monat").Range("H8").Value = .Value
     End If
   End With
  End If
  End With
  
  
End Sub

Tagesbericht = Wochenübersicht, Wochenbericht = Produkt._Monat<>

Also so sieht bisher mein Code aus mit dem Übertrag/Kopieren.
Das mit den genau vier Wochen im Monat wär dann mein nächstes Problem. Ich habe mir da überlegt die letzte Woche die mit in dem neuen Monat hineinfließt, wieder in die erste Spalte zu kopieren oder werde fünf Spalte in dem Arbeitsblatt Wochenbericht erstellen und diese Spalte wieder in die erste zu kopieren und den Rest. Werde da noch eine extra Schaltfläche erstellen der alle Daten löscht wenn die letzte Spalte gefüllt ist.