Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Inhalt zu Zelle hinzufügen

Inhalt zu Zelle hinzufügen
20.05.2019 11:46:31
Jonathan
Ich würde gerne Die Werte aus allen Zellen der Spalte D in die entsprechende Zelle C einfügen (mit Zeilenumbruch). Versucht habe ich es mit:
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?
Anzeige

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Inhalt zu Zelle hinzufügen
20.05.2019 11:48:34
Torsten
Hallo,
versuch mal
Chr(10)

anstatt
vbNewLine
Gruss Torsten
AW: Inhalt zu Zelle hinzufügen
20.05.2019 11:49:31
Torsten
oder
vbLf

AW: Inhalt zu Zelle hinzufügen
20.05.2019 11:55:20
Jonathan
War leider beides erfolglos...
Anzeige
AW: Inhalt zu Zelle hinzufügen
20.05.2019 11:57:23
Rudi
Hallo,
das muss du für jede Zelle einzeln machen.
Gruß
Rudi
AW: Inhalt zu Zelle hinzufügen
20.05.2019 12:04:48
Jonathan
Gibts da irgendeine Möglichkeit mit einer Schleife? Ich hab 145 Zeilen und diese Zahl variiert
AW: Inhalt zu Zelle hinzufügen
20.05.2019 12:40:07
Rudi
Hallo,
sicher.
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

Gruß
Rudi
Anzeige
AW: Inhalt zu Zelle hinzufügen
20.05.2019 16:43:04
Jonathan
Danke Rudi, hat bestens funktioniert
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige