Thema Datum  Von Nutzer Rating
Antwort
12.01.2021 12:48:44 Sandra
NotSolved
Blau Daten aus anderem Ordner in bestehendes Tabellenblatt kopieren
12.01.2021 13:15:59 volti
NotSolved
12.01.2021 13:30:41 Gast78841
NotSolved
12.01.2021 13:45:54 volti
NotSolved
12.01.2021 14:16:20 Gast82128
NotSolved
12.01.2021 14:26:36 volti
NotSolved
12.01.2021 14:36:11 Gast7029
NotSolved
12.01.2021 14:49:28 volti
Solved
12.01.2021 14:54:29 Gast37847
***
Solved
12.01.2021 13:31:01 Mase
NotSolved
12.01.2021 13:45:33 Gast42562
NotSolved

Ansicht des Beitrags:
Von:
volti
Datum:
12.01.2021 13:15:59
Views:
487
Rating: Antwort:
  Ja
Thema:
Daten aus anderem Ordner in bestehendes Tabellenblatt kopieren

Hallo Sandra,

teste mal, ob dieses klappt:

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
 
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")
 If QWB Is Nothing Then
    Workbooks.Open ("U:\Reporting\Rohdaten 2020QIV\sic.xlsx")
 End If
 On Error GoTo Fehler
' 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
 
_________
viele Grüße
Karl-Heinz

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
12.01.2021 12:48:44 Sandra
NotSolved
Blau Daten aus anderem Ordner in bestehendes Tabellenblatt kopieren
12.01.2021 13:15:59 volti
NotSolved
12.01.2021 13:30:41 Gast78841
NotSolved
12.01.2021 13:45:54 volti
NotSolved
12.01.2021 14:16:20 Gast82128
NotSolved
12.01.2021 14:26:36 volti
NotSolved
12.01.2021 14:36:11 Gast7029
NotSolved
12.01.2021 14:49:28 volti
Solved
12.01.2021 14:54:29 Gast37847
***
Solved
12.01.2021 13:31:01 Mase
NotSolved
12.01.2021 13:45:33 Gast42562
NotSolved