Hallo zusammen,

Ich bin ein VBA-Neuling und habe folgendes Problem:

In meiner Excel Datei (die leider jemand anderes erstellt hat) werden aus verschiedenen Worksheets die vorhandenen Daten in ein "Summary" Worksheet zusammengefasst. Dabei werden die Werte aus den unterschiedlichen Worksheets teilweise in die gleiche Zeile gespeichert, wenn sie das gleiche Attribut "Position" haben.

Nun ist folgendes Problem aufgetreten, dass in einem Worksheet (Worksheet2) mehrere Werte zur gleichen Position gehören. Das Makro kopiert aber nur den ersten Wert und verliert die anderen. Es müsste denke ich eine neue Zeile unter die zuletzt beschriebene Zeile eingefügt werden mit der gleichen Position.

Ich hoffe das war einigermaßen verständlich.

Der Code ist aktuell folgender:

Private Sub Populate_TestReduction_Click()

Dim Orig_Zeile As Integer
Dim Orig_Spalte As Integer

Dim aktuelle_Spalte As Integer
Dim aktuelle_Zeile As Integer
Dim end_Zeile As Integer
Dim count As Integer

'Kopieren des Worksheets 1:

Application.ScreenUpdating = False

    Orig_Zeile = 13
    Orig_Spalte = 5
    
    aktuelle_Zeile = 11

    Do While Worksheets("Sheet1").Cells(Orig_Zeile, Orig_Spalte).Value <> ""
    
        Worksheets("Summary").Cells(aktuelle_Zeile, 157).Value = Worksheets("Sheet1").Cells(Orig_Zeile, Orig_Spalte).Value
        
            Orig_Zeile = Orig_Zeile + 1
            aktuelle_Zeile = aktuelle_Zeile + 1
    Loop


'Kopieren des Worksheets 2:

    Orig_Zeile = 13
    Orig_Spalte = 5
    

    Do While Worksheets("Sheet2").Cells(Orig_Zeile, Orig_Spalte).Value <> ""
    
        Worksheets("Summary").Cells(aktuelle_Zeile, 157).Value = Worksheets("Sheet2").Cells(Orig_Zeile, Orig_Spalte).Value
        
            Orig_Zeile = Orig_Zeile + 1
            aktuelle_Zeile = aktuelle_Zeile + 1
            
    Loop
    Application.ScreenUpdating = True

End Sub

Kann mir dabei jemand helfen, oder geht das vielleicht einfacher zu coden?

Vielen Dank im voraus!!!

Grüße,

Max