01
02
03
04
05
06
07
08
09
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28 |
|
Private Sub cmd_guvconsult_Click()
Dim QWB As Workbook, ZWB As Workbook
Dim QWS As Worksheet, ZWS As Worksheet
' Quelle wird geöffnet
On Error Resume Next
Set QWB = Workbooks("sic.xlsx")
On Error GoTo Fehler
If QWB Is Nothing Then
If Dir$("U:\Reporting\Rohdaten 2020QIV\sic.xlsx") = "" Then Exit Sub
Set QWB = Workbooks.Open("U:\Reporting\Rohdaten 2020QIV\sic.xlsx")
End If
' Zieldatei wird gesetzt
Set ZWB = ThisWorkbook
Set QWS = QWB.Worksheets("Gewinn- und Verlustrechnung")
Set ZWS = ZWB.Worksheets("einlesen consult")
QWS.Copy After:=ZWS
Workbooks("sic.xlsx").Close
Exit Sub
Fehler:
MsgBox "Es ist der Fehler " & Err & " aufgetreten", vbCritical, "kopieren"
End Sub
|