Ein paar konkrete Antworten

[frankx]

Hellihello Vinzenz,

so schauts bei mir jetzt aus:

  
Sub create_joined_delimited_table()  
  
Dim UrsprungsZeile, UrsprungsSpalte As Object  
Dim Spaltenanzahl, Zeilenanzahl As Integer  
Dim Spaltendelimiter, Zeilendelimiter As String  
  
Dim Zeilen() As String  
Dim Spalten() As String  
Dim Join_Tabelle As String  
  
Zeilenanzahl = ActiveWorkbook.ActiveSheet.UsedRange.Rows.Count  
Spaltenanzahl = ActiveWorkbook.ActiveSheet.UsedRange.Rows(1).Cells.Count  
  
ReDim Zeilen(Zeilenanzahl) As String  
ReDim Spalten(Spaltenanzahl) As String  
  
Spaltendelimiter = "§§§§§"  
Zeilendelimiter = "°°°°°"  
  
For Zeilennummer = 1 To Zeilenanzahl Step 1  
    For Spaltennummer = 1 To Spaltenanzahl Step 1  
        Spalten(Spaltennummer) = ActiveWorkbook.ActiveSheet.UsedRange.Rows(Zeilennummer).Cells(Spaltennummer).Value  
    Next  
    Zeilen(Zeilennummer) = Join(Spalten, Spaltendelimiter)  
Next  
    Join_Tabelle = Join(Zeilen, Zeilendelimiter)  
Debug.Print Join_Tabelle  
  
End Sub  

Dank soweit für deine Hilfe und Gruß aus Berlin,

frankx