Hab hier folgenden Code:
Dim strB As String
Dim rngB As Range
Dim wks As Worksheet
Set wks = ActiveSheet
With wks
strB = .Cells(1, 2).Text
For Each rngB In .Range(.Cells(2, 2), .Cells(.Rows.Count, 2).End(xlUp)).Cells
strB = strB & ";" & rngB.Text
Next
End With
MsgBox strB, vbOKOnly, "Werte in Spalte B"
Das Ergebnis sollte aus Spalte B alle Daten in eine Zeile mit ; getrennt sein.
D.h. Daten1;Daten2;Daten3
Mein Ergebnis ist ;Daten1;;Daten2;;Daten3;;usw.
Ich habe schon hin und her getestet, aber ich weiss nix