Thema Datum  Von Nutzer Rating
Antwort
09.02.2021 21:10:21 Dennis
Solved
Blau Gewisse Zellen in andere Exceldatei einfügen
 10.02.2021 00:18:13 volti
Solved
10.02.2021 14:57:13 Gast38798
Solved
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 00:18:13		 Views:
269		 Rating:
     
Antwort:
 Nein
Thema:
Gewisse Zellen in andere Exceldatei einfügen

Hallo Dennis,

teste mal folgendes Makro:

Code:

01
02
03
04
05
06
07
08
09
10
11
12
13
14
15
16
17		  
Sub Kopieren()
  Dim sPfad As String, sDateiname As String
  Dim iZeile1 As Long, iZeile2 As Long
  Dim WShZ As Worksheet, WShQ As Worksheet, WkbQ As Workbook

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