Private Sub cmbAktZBearbeiten_Click()
Dim BearbZ As String, sPath As String
sPath = "H:\My Documents\###Bachelorthesis\TEST_Speicherort\"
BearbZ = InputBox("Bitte Aktenzeichen der zu bearbeitenden Datei eingeben.")
If BearbZ = "" Then
MsgBox "Bitte ein Aktenzeichen eingeben!"
ElseIf Dir(sPath & BearbZ & ".xls") = "" Then
MsgBox "Datei mit diesem Aktenzeichen nicht vorhanden."
Else
Workbooks.Open Filename:=sPath & BearbZ & ".xls"
End If
End Sub
Nun möchte ich das weiterhin so handhaben, aber wenn die Datei mit dem entsprechenden Aktenzeichen geöffnet wird/ist, dann soll ein bestimmter Bereich in die bereits offene Datei eingelesen und die Datei dann wieder geschlossen werden.
Es handelt sich dabei um genau denselben Aufbau, d.h. folgende Bereich werden aus der einen Datei ausgelesen und wieder an der selben Stelle der bereits offenen Datei eingefügt:
Tabellenblatt "Status": E1:H1, D5:H9, D22:H29
Tabellenblatt "Markt": E1:H1, D4:H10, D13:H17
Tabellenblatt "Wert": E1:H1, D4:H8, D11:H15
Vielleicht gibt es auch ein bessere Lösung als ein reines Öffnen, Kopieren, Schließen. Evtl ist es möglich das schneller und einfacher zu gestalten. Wäre mir natürlich lieber.
Vielen Dank im Voraus!