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
|