Hallo Sandra,
dieser Code kopiert die Daten kompett in Dein gewünschtes Blatt.
Teste es mal.
Und zu Deiner Frage: Ja, auch diese Variante ist möglich, erst das Blatt rüberzuschieben und es anschließend umzubenennen.
ZWB.Sheets("Gewinn- und Verlustrechnung").Name = "einlesen consult"
Allerdings ist vorher ggf. mit weiterem code auch sicherzustellen, dass es dieses Blatt noch nicht gibt...
Code:
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
29 |
|
Private Sub cmd_guvconsult_Click()
Dim QWB As Workbook, ZWB As Workbook
Dim QWS As Worksheet, ZWS As Worksheet
Dim iZeile As Long, iSpalte As Long, rBereich As Range
' 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.Cells.Copy Destination:=ZWS.Range("A1") ' Daten übertragen
Workbooks("sic.xlsx").Close ' Quelldatei schließen
Exit Sub
Fehler:
MsgBox "Es ist der Fehler " & Err & " aufgetreten", vbCritical, "kopieren"
End Sub
|
_________
viele Grüße
Karl-Heinz
|