Thema Datum  Von Nutzer Rating
Antwort
09.02.2021 21:10:21 Dennis
Solved
10.02.2021 00:18:13 volti
Solved
10.02.2021 14:57:13 Gast38798
Solved
Blau Gewisse Zellen in andere Exceldatei einfügen
 10.02.2021 17:51:07 volti
Solved
10.02.2021 18:28:30 Dennis
Solved

Ansicht des Beitrags:
Von:
volti		 Datum:
10.02.2021 17:51:07		 Views:
299		 Rating:
     
Antwort:
 Nein
Thema:
Gewisse Zellen in andere Exceldatei einfügen

Hallo,

soll es so sein?

Code:
01
02
03
04
05
06
07
08
09
10
11
12
13
14
15
16
17
18
19		  
Sub Kopieren()
' Daten aus dieser Dateiin Zieldatei kopieren
  Dim sPfad As String, sDateiname As String
  Dim iZeile1 As Long, iZeile2 As Long
  Dim WShZ As Worksheet, WShQ As Worksheet, WkbZ As Workbook

  Set WShQ = ThisWorkbook.ActiveSheet                            ' Quellblatt <<<anpassen>>
  iZeile2 = WShQ.Cells(Rows.Count, "A").End(xlUp).Row            ' Anzahl der Quellzeilen

  sPfad = "C:\Users\voltm\Desktop\"                              ' Zielpfad  <<<anpassen>>
  sDateiname = "datei.xlsx"                                      ' Zieldatei <<<anpassen>>
  Workbooks.Open Filename:=sPfad & sDateiname
  Set WkbZ = ActiveWorkbook
  Set WShZ = WkbZ.Sheets(1)                                      ' Zielsheet <<<anpassen>>>
  iZeile1 = WShZ.Cells(WShZ.Rows.Count, "A").End(xlUp).Row + 1   ' Erste freie Zeile
' Jetzt die Daten übernehmen
  WShQ.Range("A4:D" & iZeile2).Copy Destination:=WShZ.Cells(iZeile1, "A")
  WkbZ.Close savechanges:=True                                  ' Zieldatei schließen
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
09.02.2021 21:10:21 Dennis
Solved
10.02.2021 00:18:13 volti
Solved
10.02.2021 14:57:13 Gast38798
Solved
Blau Gewisse Zellen in andere Exceldatei einfügen
 10.02.2021 17:51:07 volti
Solved
10.02.2021 18:28:30 Dennis
Solved