Hallo ins Forum,

ich habe im Netz folgenden Code gefunden mit dem ich Daten aus einer geöffneten Mappe in eine andere kopiere. Das funktioniert auch.

Ich würde ihn nur gerne wie folgt erweitern weiß aber nicht wie ich es anstellen soll. Die Erweiterung wäre das wenn die Ziel Mappe schon geöffnet ist auch offen bleibt nach dem Kopiervorgang und wenn sie vorher geschlossen war das sie dann auch wieder geschlossen wird.

Public Sub Schreiben()

Dim sPfad         As String     ' der Ordner-Pfad der Excel-Mappen
Dim sDatei        As String     ' die zu beschreibende Datei
Dim WkSh_Q        As Worksheet  ' das Quell-Tabellenblatt - die Herkunft
Dim WkSh_Z        As Worksheet  ' das Ziel-Tabellenblatt - das Ergebnis
 
  sPfad = "C:\Users\"
  sDatei = "Kopieren.xlsx"
   
   Application.ScreenUpdating = False
     
   If Dir(sPfad & sDatei) <> "" Then
      Workbooks.Open (sPfad & sDatei)
             
      ThisWorkbook.Activate
      'Application.ActiveWindow.Visible = False
    Else
      MsgBox "Den angegebenen Ordner """ & sPfad & """" & Chr(10) & _
         "und/oder die gesuchte Datei """ & sDatei & """ gibt es nicht!", _
         16, "   Hinweis für " & Application.UserName
      Exit Sub
   End If
    
   Set WkSh_Q = ThisWorkbook.Worksheets("Tabelle1")
   Set WkSh_Z = Workbooks(sDatei).Worksheets("Tabelle1")
   
   WkSh_Q.Cells.Range("A1").Copy Destination:=WkSh_Z.Range("A1").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)
         
'   Workbooks(sDatei).Close SaveChanges:=True
   Application.ScreenUpdating = True
   
   MsgBox "Die Daten wurden erfolgreich übergeben.", _
     64, "   Information für " & Application.UserName

End Sub

Ich hoffe ich konnte gut genug erklären was ich erreichen möchte und ihr könnt mir helfen.

Danke an alle Carsten