|
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.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 | Private Sub cmbAktZBearbeiten_Click()
Dim BearbZ As String, sPath As String
sPath = "H:\My Documents\Arbeit\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.
Dabei soll aber nicht der ganze Bereich ausgelesen werden, sondern nur die Zellen, die ein „x“ enthalten.
Es handelt sich dabei um genau denselben Aufbau, d.h. folgende Bereiche werden aus der einen Datei ausgelesen und wieder
an derselben 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
|