Hallo!!

Ich habe folgenden VBA-Code, der ermöglicht per Klick auf einen Command-Button eine bestimmte Excel-Datei durch Eingabe eines Aktenzeichens zu öffnen.

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!