Thema Datum  Von Nutzer Rating
Antwort
03.01.2023 09:28:19 FK
NotSolved
03.01.2023 15:49:11 Gast24969
NotSolved
03.01.2023 16:29:38 Gast40002
NotSolved
04.01.2023 12:32:50 ralf_b
NotSolved
04.01.2023 12:37:56 Gast90766
*****
Solved
Blau Kopieren in mehrere WB nach Kriterium sehr langsam
04.01.2023 13:55:59 Gast19053
Solved
04.01.2023 00:45:51 Gast2234
NotSolved

Ansicht des Beitrags:
Von:
Gast19053
Datum:
04.01.2023 13:55:59
Views:
231
Rating: Antwort:
 Nein
Thema:
Kopieren in mehrere WB nach Kriterium sehr langsam

Hallo,

danke hierfür, der Tip mit dem vorsortieren war der notwendige Input.

Ich habe das mitlerweile für beliebig viele Kriterien aufgesetzt und lasse meinen Ansatz mal folgen, sollte jemand mit ähnlichem Problem auf diesen Thread stoßen:

Dim wb As Workbook

Dim Zelle1 As Range
Dim Zelle2 As Range

With ActiveSheet
    .UsedRange.Sort key1:=.Cells(1, 1), order1:=xlAscending, Header:=xlYes       'Vorstortieren
    Set Zelle2 = .Cells(2, 1)
    Set wb = Workbooks.Add(xlWBATWorksheet)
    .Rows(1).Copy wb.Sheets(1).Cells(1, 1)                                       'Überschrift kopieren
    
    Do
        Set Zelle1 = Zelle2.Offset(1, 0)                                          
        If Zelle1.Text = "" Then Exit Do
        Set Zelle2 = .Columns(1).Find(what:=Zelle1.Value, lookat:=xlWhole, LookIn:=xlValues, searchdirection:=xlPrevious)
        Range(Zelle1, Zelle2).Resize(, 13).Copy wb.Sheets(1).Cells(2, 1)         'Daten kopieren, resize nach rechts
        Application.DisplayAlerts = False                              'überschreibt bestehende Dateien ohne Rückfrage
        wb.SaveAs ThisWorkbook.Path & "\out\" & Zelle1.Value , FileFormat:=xlOpenXMLWorkbook
        Application.DisplayAlerts = True
        wb.Sheets(1).UsedRange.Offset(1, 0).Clear
    Loop
    wb.Close False
End With
 

MFG


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
03.01.2023 09:28:19 FK
NotSolved
03.01.2023 15:49:11 Gast24969
NotSolved
03.01.2023 16:29:38 Gast40002
NotSolved
04.01.2023 12:32:50 ralf_b
NotSolved
04.01.2023 12:37:56 Gast90766
*****
Solved
Blau Kopieren in mehrere WB nach Kriterium sehr langsam
04.01.2023 13:55:59 Gast19053
Solved
04.01.2023 00:45:51 Gast2234
NotSolved