Daten aus geschlossener Datei in Zieldatei kopiere
06.09.2019 09:48:23
Andreas
Habe folgendes Problem bei dem ich dringend Eure Hilfe benötige.
Habe eine Master QuellDatei.xlsm auf Netzlaufwerk H:\
und eine ZielDatei.xlsm welche sich auf einem anderen Netzlaufwerk befindet.
Im Moment teste ich die beiden Dateien im gleichen Ordner auf Netzlaufwerk H:\
was möchte ich tun:
Die Daten aus dem Tabellenblatt "Erfassung_Bearbeitung Zellbereich ("A5:NA13")" sollen in die ZielDatei.xlsm an gleicher Stelle in das identisch gleiche Tabellenblatt "Erfassung_Bearbeitung Zellbereich ("A5:NA13")" eingefügt werden.
Grund dieser Vorgehensweise ist das mehrere Mitarbeiter mit den Daten der MasterDatei arbeiten müssen.
jeder Kollege holt sich über einen CommandButton im Tabellenblatt seiner Datei die Daten aus der MasterDatei
(es kann aber sein das die MasterDatei durch einen Mitarbeiter geöffnet ist oder noch bearbeitet wird. In diesem Fall soll das Makro aber auch funktionieren.
Hier mal mein Ansatz der aber nicht ganz funktioniert.
Sub WerteHolenRessorcenplanung() 'hat AndreasRohrbeck angepasst
Dim sPfad As String ' der Ordner-Pfad der Excel-Mappen
Dim sDatei_Quelle As String ' die Datei aus der die Daten geholt werden sollen
Dim sDatei_Ziel As String ' die Datei in die Daten importiert werden sollen
Dim WkSh_Q As Worksheet ' das Quell-Tabellenblatt - die Herkunft
Dim WkSh_Z As Worksheet ' das Ziel-Tabellenblatt - das Ergebnis
sPfad = "H:\SuS RB Süd\05Organisation\Team PM M2\"
sDatei_Quelle = "Ressorcenplanung 2019_Entwicklerversion_04.09.2019_Quelldatei.xlsm" _
_
_
_
_
'geändert Ursprung sDatei (jetzt sDatei_Quelle)
sDatei_Ziel = "Ressorcenplanung 2019_Entwicklerversion_05.09.2019_Zieldatei.xlsm" 'geä _
ndert Ursprung Zeile war noch nicht vorhanden (jetzt sDatei_Quelle)
Application.ScreenUpdating = False
If Dir(sPfad & sDatei_Quelle) "" Then
Workbooks.Open (sPfad & sDatei_Quelle)
ThisWorkbook.Activate
'Application.ActiveWindow.Visible = False
Else
MsgBox "Den angegebenen Ordner """ & sPfad & """" & Chr(10) & "und/oder die gesuchte Datei """ & _
_
_
_
_
sDatei_Quelle & """ gibt es nicht!", 16, " Hinweis für " & Application.UserName
Exit Sub
End If
'+++++ ab hier komme ich selbst nicht mehr weiter +++++
'es sollen die Daten aus der "QuellDatei.xlsm" im Tabellenblatt "Erfassung_Bearbeitung" Zellen ( _
_
_
_
_
"NA5:NC13")
'in die Zieldatei "ZielDatei.xlsm" im Tabellenblatt "Erfassung_Bearbeitung" Zellen ("A5:NC13") _
_
_
_
_
an gleicher Stelle eingetragen werden
Set WkSh_Z = Workbooks(sDatei_Ziel).Worksheets("Erfassung_Bearbeitung") '=Originalzeile
'Set WkSh_Q = Workbooks(sDatei_Quelle).Worksheets("Erfassung_Bearbeitung") 'hat _
AndreasRohrbeck angepasst Daten von Datei HolmFriedrich
Set WkSh_Q = Workbooks(sDatei_Quelle).Worksheets("Erfassung_Bearbeitung") '=Originalzeile
'Set WkSh_Z = ThisWorkbook.Worksheets("Erfassung_Bearbeitung")
With WkSh_Z
WkSh_Q.Cells.Range("A5:NC13:").Copy Destination:=.Range("NC5")
'.Range("A5:NC13").Value = .Range("ND5:NF:13").Value
End With
''Workbooks("Entwicklerversion_04.09.2019_Quelldatei.xlsm").Sheets("Erfassung_Bearbeitung"). _
Range("A5:NC13").Value.Copy Workbooks("Ressorcenplanung 2019_Entwicklerversion_05.09. _
2019_RohrbeckAndreas_05.09.2019.xlsm").Sheets("Erfassung_Bearbeitung").Range("A5: NN612").Value
'++++++++++++ bis hierhin meckert mir bei jeder Änderung die ich gemacht habe der Debugger
Workbooks(sDatei_Quelle).Close SaveChanges:=True
Application.DisplayAlerts = False
Application.EnableEvents = False
Application.ScreenUpdating = False
MsgBox "Die Daten wurden erfolgreich übergeben.", 64, " Information für " & Application. _
UserName
End Sub
wo liegt mein Fehler?
kann mir einer von Euch das Makro nach meiner Vorstellung anpassen?
für Eure Hilfe und Unterstützung bedanke ich mich bereits
Gruß Andreas