Sub So()
Dim Sh As Excel.Worksheet, arr() As Variant, x As Long
For Each Sh In ThisWorkbook.Worksheets
If InStr(Sh.Name, "Prozess") Then
x = x + 1
ReDim Preserve arr(1 To x)
arr(x) = Sh.Range("B3").Value
End If
Next Sh
With Worksheets("Tabelle1")
Range(.Range("B3"), .Range("B3").End(xlDown)).ClearContents
.Range("B3").Resize(UBound(arr)).Value = Application.Transpose(arr)
End With
End Sub