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
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen