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
|