Hi...
mit Excel geht fast alles...
also ich bin jetzt auch nicht der Super-Profi in Excel, aber der folgende Code funktioniert... es gibt sicherlich auch andere Wege, aber naja...
Ok... folgenden Code in deine Zusammenfassung (muss aber Blatt 1 sein)...
ich bin davon ausgegangen, dass überall in Zeile 1 Überschriften sind (deswegen im Code k=2) und es um die Werte in Spalte 5 (also Spalte E) geht.
Private Sub Worksheet_Activate()
Dim i, k, l
Range("A2:ZZ1000").ClearContents
l = 2
For i = 2 To Worksheets.Count
For k = 2 To Sheets(i).Cells(1000, 5).End(xlUp).Row
If Sheets(i).Cells(k, 5).Value <> "" Then
Cells(l, 1).Value = Sheets(i).Cells(k, 1).Value
Cells(l, 5).Value = Sheets(i).Cells(k, 5).Value
l = l + 1
End If
Next k
Next i
End Sub
Jedesmal wenn du nun Blatt 1 aktivierst, werden alle Werte neu eingelesen...