Thema Datum  Von Nutzer Rating
Antwort
28.07.2021 11:56:08 DiWa
NotSolved
28.07.2021 12:22:04 Werner
NotSolved
28.07.2021 12:47:53 DiWa
NotSolved
Blau Makro Markierung erweitern
 28.07.2021 14:06:17 Werner
*****
NotSolved
28.07.2021 14:43:09 DiWa
NotSolved
29.07.2021 08:35:46 Gast70298
NotSolved
29.07.2021 10:51:47 Werner
NotSolved
29.07.2021 18:02:16 DiWa
Solved

Ansicht des Beitrags:
Von:
Werner		 Datum:
28.07.2021 14:06:17		 Views:
169		 Rating:
     
Antwort:
  Ja
Thema:
Makro Markierung erweitern

Hallo,

teste mal (natürlich mit Kopie deiner Original-Dateien).

Sub Übernahme()

Application.ScreenUpdating = False

With ThisWorkbook.Worksheets("Quelle_Sheet1")
    .Range("$A$1:$JH$14").AutoFilter Field:=1, Criteria1:="<>"
    With .AutoFilter.Range
        .Offset(1).Resize(.Rows.Count - 1).Copy
        Workbooks("Ziel_Datei.xml").Worksheets("Ziel_Datei_Sheet1").Range("A1").PasteSpecial Paste:=xlPasteValues
    End With
    .Range("AM2:BT" & .Cells(.Rows.Count, "AM").End(xlUp).Row).Copy
    Workbooks("Ziel_Datei.xml").Worksheets("Ziel_Datei_Sheet2").Range("A9").PasteSpecial Paste:=xlPasteValues
    .Range("CP2:HG" & .Cells(.Rows.Count, "CP").End(xlUp).Row).Copy
    Workbooks("Ziel_Datei.xml").Worksheets("Ziel_Datei_Sheet3").Range("A9").PasteSpecial Paste:=xlPasteValues
    .Range("HM2:IW" & .Cells(.Rows.Count, "HM").End(xlUp).Row).Copy
    Workbooks("Ziel_Datei.xml").Worksheets("Ziel_Datei_Sheet4").Range("A9").PasteSpecial Paste:=xlPasteValues
End With

Application.CutCopyMode = False
End Sub

 

Gruß Werner

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
28.07.2021 11:56:08 DiWa
NotSolved
28.07.2021 12:22:04 Werner
NotSolved
28.07.2021 12:47:53 DiWa
NotSolved
Blau Makro Markierung erweitern
 28.07.2021 14:06:17 Werner
*****
NotSolved
28.07.2021 14:43:09 DiWa
NotSolved
29.07.2021 08:35:46 Gast70298
NotSolved
29.07.2021 10:51:47 Werner
NotSolved
29.07.2021 18:02:16 DiWa
Solved