Private Function Zusammenstellen()
Dim R As Range
Dim i As Long
Dim adr As String ' Zwischenbspeicher, um den Code etwas lesbarer zu machen!
 
For i = 2 To 255 ' Mehr Spalten gibt es nicht ;-)
 
    adr = Workbooks("Zusammen.xls").Worksheets("Temp").Cells(akt_dat_zeile, _
      i).Text
    If adr = "" Then Exit For
 
    adr = UCase(adr & ":" & adr)    ' adr sollte jetzt z.B. so aussehen: "A:A"
 
' INFO: Range beinhaltet auch die Referrenz zur Mappe und zum Blatt.
'       Daher musst Du hier genau angeben, in welchem Blatt und in welcher Mappe
'       der Bereich liegt, sonst nimmt VBA immer die aktive Mappe, das aktive 
' Blatt.
'       Daher gebe ich Workbooks("Test.xls").Worksheets("Daten") mit.
'       Ganz grausam wird es, wenn jemand während der Verabeitung durch 
' Mausklick ein
'       anderes Blatt aktiviert.
 
    If R Is Nothing Then ' wenn R noch leer ist, kann man mit Union nichts 
    ' hinzufügen
        Set R = Range(Workbooks("Test.xls").Worksheets("Daten").Range(adr))
    Else
        Set R = Union(R, Workbooks("Test.xls").Worksheets("Daten").Range(adr))
    End If
 
    ' Nur zur Info während der Entwicklung
    MsgBox R.Worksheet.Parent.FullName & vbLf & R.Worksheet.Name & vbLf & _
      R.Address
 
Next i
 
R.Copy Workbooks("Zusammen.xls").Worksheets("Tabelle1").Cells(1)
 
End Function