Thema Datum  Von Nutzer Rating
Antwort
Rot Prüfen ob Mappe geöffnet
24.10.2023 04:12:48 Carsten
Solved
24.10.2023 08:15:23 Mase
Solved
24.10.2023 14:13:12 Carsten
Solved
24.10.2023 16:17:21 Gast55792
Solved
24.10.2023 22:58:05 Carsten
Solved
25.10.2023 08:02:18 Mase
Solved
25.10.2023 14:13:47 Carsten
Solved
25.10.2023 00:38:17 Carsten
Solved

Ansicht des Beitrags:
Von:
Carsten
Datum:
24.10.2023 04:12:48
Views:
630
Rating: Antwort:
 Nein
Thema:
Prüfen ob Mappe geöffnet

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

 


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 Prüfen ob Mappe geöffnet
24.10.2023 04:12:48 Carsten
Solved
24.10.2023 08:15:23 Mase
Solved
24.10.2023 14:13:12 Carsten
Solved
24.10.2023 16:17:21 Gast55792
Solved
24.10.2023 22:58:05 Carsten
Solved
25.10.2023 08:02:18 Mase
Solved
25.10.2023 14:13:47 Carsten
Solved
25.10.2023 00:38:17 Carsten
Solved