ich habe eine längere Excel Liste mit Daten dort stehen in den Zellen "D" und "I" Werte. Diese möchte ich das das Macro durläuft und die Zellen D mit I verkettet.
Also sollte dann in der Zelle "D" der Wert aus der Zelle "I" eingefügt werden am besten aber mit einem Komma ","
Bei mir bleibt das Macro hier Zeile = Zeile + 1 stehen warum auch immer
Sub ZellenvenTest1()
Dim Zeile As Integer
Zeile = 2
While Not (IsEmpty(Cells(Zeile, 1)))
Cells(Zeile, 4) = Cells(Zeile, 4) & " " & Cells(Zeile, 9)
Cells(Zeile, 9).ClearContents
Zeile = Zeile + 1
Wend
Columns(1).AutoFit
Next
|