Daten Kopieren in event. offenes Excel kopieren
23.08.2017 18:08:24
Valentin
Ich habe ein kleines Problem. Nämlich würde ich gerne aus einem Excel per VBA Daten in ein _ anderes Dokument speichern. Das andere Dokument ist meistens, aber nicht immer durch mich bereits geöffnet. Dafür habe ich folgenden Code geschrieben:
Private Sub Datentransfer()
Dim wsDaten As Worksheet
Dim Zieldokument as Workbook
Dim Zieldokumentpfad As String
Set wsDaten = ThisWorkbook.Sheets("Daten")
DataArray1 = wsDaten.Range("A4:EA4")
Zieldokumentpfad="G: ..... .xlsm"
Set Zieldokument = Workbooks.Open(Zieldokumentpfad)
End Sub
Wenn das Dokument bereits offen ist erhalte ich folgende Nachricht:
".....xlsm ist bereits geöffnet. Wenn Sie es erneut öffnen, verlieren Sie damit alle Änderungen, die Sie eingegeben haben. Soll ....xlsm erneut geöffnet werden?"
Wenn das Dokument nicht geöffnet ist, ist es kein Problem.
Wie könnte ich hier am besten vorgehen?
Freundliche Grüsse
Valentin