Thema Datum  Von Nutzer Rating
Antwort
Rot Mit Makro nur Werte und Formate von einer Datei in eine andere Datei kopieren
02.07.2021 17:08:23 Barti
NotSolved
02.07.2021 21:22:23 Gast42896
NotSolved
02.07.2021 21:38:42 Gast63377
NotSolved
05.07.2021 14:15:39 Barti
NotSolved
06.07.2021 13:57:28 Gast5609
Solved
12.07.2021 10:26:56 Gast55012
NotSolved

Ansicht des Beitrags:
Von:
Barti
Datum:
02.07.2021 17:08:23
Views:
80
Rating: Antwort:
  Ja
Thema:
Mit Makro nur Werte und Formate von einer Datei in eine andere Datei kopieren

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


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:

 
 

  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Mit Makro nur Werte und Formate von einer Datei in eine andere Datei kopieren
02.07.2021 17:08:23 Barti
NotSolved
02.07.2021 21:22:23 Gast42896
NotSolved
02.07.2021 21:38:42 Gast63377
NotSolved
05.07.2021 14:15:39 Barti
NotSolved
06.07.2021 13:57:28 Gast5609
Solved
12.07.2021 10:26:56 Gast55012
NotSolved