Hi,
habe folgenden Code:
With wks
strB = .Cells(1, 2).text
For Each rngB In .Range(.Cells(6, 2), .Cells(.Rows.Count, 2).End(xlUp)).Cells
If rngB.text "" Then
strB = strB & rngB.text & ";"
End If
Next
End With
Dadurch werden die Daten von Spalte B in eine Zeile geschrieben und mit ; getrennt.
Also so ist das Ergebnis Daten1;daten2;daten3;usw..;
Das ist so super nur das letzte - ; - muss weg, damit das Ergebnis
daten1;daten2;daten3;daten... ist. (Also nicht die Punkte, da die daten unterschiedlich viele sind.)
hab keinen Plan, bzw. alles was ich so ausprobiert habe funkt. nicht.
Wer kann mir helfen?