Thema Datum  Von Nutzer Rating
Antwort
30.11.2016 07:57:55 Tina P
NotSolved
30.11.2016 18:49:54 Gast234
NotSolved
30.11.2016 20:19:14 Mackie
NotSolved
01.12.2016 00:13:47 Tina P
NotSolved
01.12.2016 18:14:12 Mackie
NotSolved
01.12.2016 23:43:02 Tina P
NotSolved
Rot Daten kopieren
 03.12.2016 11:31:35 Mackie
NotSolved

Ansicht des Beitrags:
Von:
Mackie		 Datum:
03.12.2016 11:31:35		 Views:
733		 Rating:
     
Antwort:
  Ja
Thema:
Daten kopieren

Sub Makro2()
    Dim besetzt As Boolean
    Windows("Mappe4.ods").Activate: Rem Name der Masterdatei hier eingeben
    Sheets("Tabelle1").Select: Rem Zielblatt der Masterdatei
    If Cells(1, 1) <> "" Then
        antwort = MsgBox("Achtung: Die vorhandendenen Daten werden überschrieben !", 1, "Achtung")
        If antwort = 2 Then
            antwort = MsgBox("Abgebrochen !", 0)
            Exit Sub
        End If
    End If
    On Error Resume Next
     Workbooks.Open Filename:="C:\Users\oee\Desktop\Neuer Ordner\datei1.xlsm": rem Name und Pfad von Datei1
    Sheets("Tabelle1").Select: Rem Name des Blattes
    Range(Cells(1, 1), Cells(5, 3)).Select: Rem Die zu kopierenden Zellen - Hier Z1S1:Z5S3
    Selection.Copy
    Windows("Mappe4.ods").Activate:Rem Name der Masterdatei hier eingeben
    Sheets("Tabelle1").Select:Rem Zielblatt der Masterdatei
    Cells(1, 1).Select
    ActiveSheet.Paste
End Sub

 

Das Gleiche für Datei2 (entweder zum Makro hinzufügen oder in neues Makro)

Falls noch Fragen, einfach melden

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
30.11.2016 07:57:55 Tina P
NotSolved
30.11.2016 18:49:54 Gast234
NotSolved
30.11.2016 20:19:14 Mackie
NotSolved
01.12.2016 00:13:47 Tina P
NotSolved
01.12.2016 18:14:12 Mackie
NotSolved
01.12.2016 23:43:02 Tina P
NotSolved
Rot Daten kopieren
 03.12.2016 11:31:35 Mackie
NotSolved