Hallo liebe Leute,

In unseren kleinen Unternehmen (5 Leute) soll ich ein Makro schreiben, dass aus den 5 Dateien mit den Zeiten für jeden Mitarbeiter alle Einträge kopiert damit man dann alles gemeinsam auswerten kann.

Ich habe es geschafft alles zu kopieren. Da jedoch auch Formeln mitkopiert werden, die dann nach dem sortieren falsche Ergebnisse haben, möchte ich nur Werte und Formate mitkopieren.

Ich habe schon Stunden damit verbracht zu recherchieren, wie das funktioniert und bestimmt schon ein halbes Duzend Lösungen versucht, jedoch ohne Erfolg.
 

Der VBA-Code, von dem ich ausgehe sieht wie folgt aus:

Sub Chronik_Aktualisieren()
'
'
' Löschen von alten Daten
'
    Sheets("Chronik").Select
    Range("A2", "K65536").Delete
    

'  Chronik von Klaus kopieren

    Workbooks("Projekte_KK.xls").Sheets("Chronik").Activate
    Dim endrow2 As Integer
    endrow2 = 2
    Do While Not Cells(endrow2, 1).Value = Empty
    endrow2 = endrow2 + 1
    Loop
    endrow2 = endrow2 - 1
    Range(Cells(2, 1), Cells(endrow2, 11)).Copy _
    Workbooks("Projektauswertung.xls").Sheets("Chronik").Cells(2, 1)
    Workbooks("Projekte_KK.xls").Close SaveChanges:=False
    Workbooks("Projektauswertung.xls").Activate
    
'   Erste unbenutze Zeile herausfinden
    
    Sheets("Chronik").Select
    Dim endrow1 As Integer
    endrow1 = 2
    Do While Not Cells(endrow1, 1).Value = Empty
    endrow1 = endrow1 + 1
    Loop
    endrow1 = endrow1 - 1
    
'   Chronik von Jutta kopieren

    Workbooks("Projekte_JMB.xls").Sheets("Chronik").Activate
    endrow2 = 2
    Do While Not Cells(endrow2, 1).Value = Empty
    endrow2 = endrow2 + 1
    Loop
    endrow2 = endrow2 - 1
    Range(Cells(2, 1), Cells(endrow2, 11)).Copy _
    Workbooks("Projektauswertung.xls").Sheets("Chronik").Cells(endrow1, 1)
    Workbooks("Projekte_JMB.xls").Close SaveChanges:=False
    Workbooks("Projektauswertung.xls").Activate
    
'   Erste unbenutze Zeile herausfinden
    
    Sheets("Chronik").Select
    Do While Not Cells(endrow1, 1).Value = Empty
    endrow1 = endrow1 + 1
    Loop
    endrow1 = endrow1 - 1

Undsoweiter. Das wird mit allen 5 Mitarbeitern durchexerziert.

Gibt es eine Möglichkeit nur Werte (und eventuell Formate) zu kopieren ohne dass ich super viel neu- oder umschreiben muss?

Betriebssystem: WIn10

Office-Version: 2007

Grüße,

Barti