Private Function Zusammenstellen()
 
Dim R As Range
Dim i As Long
Dim Spalte As String
 
'Hier direkt die Datentabelle aktivieren
Workbooks(Daten_Tabelle).Activate
Worksheets(Daten_Blatt).Activate
 
For i = 2 To 50
 
    Spalte = Workbooks("Zusammen.xls").Worksheets("Temp").Cells(akt_dat_zeile, _
      i).Text
 
    If Spalte = "" Then Exit For
 
    Spalte = UCase(Spalte & ":" & Spalte)
 
    If R Is Nothing Then
        Set R = Range(Spalte)
    Else
        Set R = Union(R, Range(Spalte))
    End If
 
    'MsgBox R.Worksheet.Parent.FullName & vbLf & R.Worksheet.Name & vbLf & 
    ' R.Address
 
Next i
 
R.Copy Workbooks("Zusammen.xls").Worksheets("Tabelle1").Cells(1, 1)
 
 
'für weitere Aktionen die Zieltabelle aktivieren
    Windows("Zusammen.xls").Activate
    Worksheets("Tabelle1").Activate
 
 
End Function

Hier muss ich mir noch etwas schlaues f?r suchen