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.

Kopiere von Sheet1 in Sheet2 wenn KW sich erhöht
#1
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...BlushBlushBlush

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

Lg Claudi
Antworten Top
#2
Hi Claudi,

(07.10.2014, 09:01)claudia schrieb: 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...BlushBlushBlush

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.
Antworten Top
#3
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?
Beste Grüße
  Günther

Excel-ist-sexy.de
  …schau doch mal rein!
Der Sicherheit meiner Daten wegen lade ich keine *.xlsm bzw. *.xlsb- Files mehr herunter! -> So geht's ohne!
Antworten Top
#4
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.


Angehängte Dateien
.xlsx   Test.xlsx (Größe: 23,13 KB / Downloads: 2)
Antworten Top


Gehe zu:


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