Ein paar konkrete Antworten

[frankx]

Hellihello Vinzenz,

heute etwas später mal kurz nur - Dank für Deine Antwort.

Hallo Frank,

Zeilenanzahl = ActiveWorkbook.ActiveSheet.UsedRange.Rows.Count
Spaltenanzahl = ActiveWorkbook.ActiveSheet.UsedRange.Rows(1).Cells.Count

Es gibt nicht nur Rows, es gibt auch Columns :-)

Spaltendelimiter = "§§§§§"

Deklariere diesen als Konstante außerhalb der Prozedur.

Zeilendelimiter = "°°°°°"

Warum eigentlich außerhalb der Prozeder? Prozedur = Sub? Und was ist dann eine "Property"?

' ---------------------------------------
' Beginn des Moduls
' ---------------------------------------
' Indiziere Arrays von 1 an, weil weiß ich auch grad nicht, wegen des Zeilen und Spaltenzählers von 1 TO Zeilen/Spaltenzahl
 Option Base 1

' Viel wichtiger
' Variablen müssen deklariert werden
Option Explicit

' Deklariere diesen als Konstante außerhalb der Prozedur
Const Spaltendelimiter = "§§§§§"
Const Zeilendelimiter = "°°°°°"

Sub create_joined_delimited_table()

Dim UrsprungsZeile, UrsprungsSpalte As Object
Dim Spaltenanzahl, Zeilenanzahl, Zeilennummer, Spaltennummer 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.Columns.Count

ReDim Zeilen(Zeilenanzahl) As String
ReDim Spalten(Spaltenanzahl) As String

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
Debug.Print ("fertisch")
End Sub

Derzeit maskierst Du ja überhaupt nicht und verläßt Dich auf die Wahl Deiner Delimiter.

Ehrlichgesagt kapier ich die Maskerade nicht. Was hab ich davon, dass ich mit

Const Delimiter="°°°"
Const Maske="§"

bei
Zelle irgendwo aaaa°°°aaa dann §aaa°°°aaa§ draus mache. ich möchte ja das dingens mit PHPs explode zerlegen am Delimiter.

Ich weiß zwar, dass man möglichst 100% Lösungen anstreben sollte, aber es erscheint mir fast möglich, Delimiter zu finden, die nicht im Text auftauchen wie [°°°°°°] und [#§#] zum Beispiel. Möglichkeit wäre noch, die kompletten Zellen Sicherheitshalber daraufhin zu durchsuchen, und dann entweder den Delimiter anpassen/ergänzen oder den Vorgang abbrechen und auf die dann sowieso mit Fehlerhaftem Inhalt behaftete Zelle hinzuweisen.

Dank und Gruß,

frankx