Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1692to1696
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

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?

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...
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

300 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige