Columns(3) = Columns(3) & vbNewLine & Columns(4)
und alternativ mit:
Range("C:C") = Range("C:C") & vbNewLine & Range("D:D")
beidesmal bringt mir VBA: Laufzeitfehler 13, Typen unverträglich Wie kann ich mein Problem lösen?
Columns(3) = Columns(3) & vbNewLine & Columns(4)
und alternativ mit:
Range("C:C") = Range("C:C") & vbNewLine & Range("D:D")
beidesmal bringt mir VBA: Laufzeitfehler 13, Typen unverträglich Chr(10)
vbNewLine
Gruss TorstenvbLf
Sub jon()
Dim rngC As Range
Application.ScreenUpdating = False
With ActiveSheet
For Each rngC In .Range(.Cells(1, 3), .Cells(Rows.Count, 3).End(xlUp))
rngC = rngC & vbLf & rngC.Offset(, 1)
Next rngC
.Columns(3).WrapText = True
End With
End Sub