Thema Datum  Von Nutzer Rating
Antwort
16.04.2021 10:22:38 Max
NotSolved
Blau Daten aus vielen Worksheets in neues Worksheet zusammenfassen
 16.04.2021 20:05:53 ralf_b
NotSolved

Ansicht des Beitrags:
Von:
ralf_b		 Datum:
16.04.2021 20:05:53		 Views:
467		 Rating:
     
Antwort:
  Ja
Thema:
Daten aus vielen Worksheets in neues Worksheet zusammenfassen		 
Hier mal eine Idee, ungetestet. Falls du tatsächlich ganze Werteblöcke lückenlos übertragen möchtest, könnte man von der Einzeilenlösung auf eine Bereichslösung wechseln. Das würde die Sache sicher auch beschleunigen.  


Private Sub Populate_TestReduction_Click()
 
    Dim Orig_Zeile As Long
    Dim Orig_Spalte As Integer
    Dim startZeile As Long
    Dim aktuelle_Zeile As Long
    Dim end_Zeile As Long
    Dim count As Long
    Dim ws As Worksheet
    
    Application.ScreenUpdating = False
 
    startZeile = 13
    Orig_Zeile = startZeile
    Orig_Spalte = 5
     
    aktuelle_Zeile = 11

    For count = 1 To 2
        Set ws = Worksheets("Sheet" & count)
        Do While ws.Cells(Orig_Zeile, Orig_Spalte).Value <> ""
            Worksheets("Summary").Cells(aktuelle_Zeile, 157).Value = ws.Cells(Orig_Zeile, 5).Value
            Orig_Zeile = Orig_Zeile + 1
            aktuelle_Zeile = aktuelle_Zeile + 1
        Loop    
        Orig_Zeile = startZeile
    Next
   Application.ScreenUpdating = True
End Sub

 

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
16.04.2021 10:22:38 Max
NotSolved
Blau Daten aus vielen Worksheets in neues Worksheet zusammenfassen
 16.04.2021 20:05:53 ralf_b
NotSolved