kann mir einer von euch vielleicht sagen, wie ich zwei Zellen vereinen kann?
Bsp.:
Spalte1 Spalte2
1 234
Ergebnis:
Spalte1
1234
also die Werte nicht zusammenrechnen, sondern einfach hintereinander schreiben. Vielen Dank für eure Hilfe, Gruß, Franz
Sub zusammen()
Dim tbl
Range("A1").Select
Set tbl = ActiveCell.CurrentRegion
tbl.Offset(0, 2).Resize(tbl.Rows.Count, 1).FormulaR1C1 = "=RC[-2]&RC[-1]"
End Sub
Sub Verketten()
Dim Wks As Worksheet
Dim letzteZeile As Integer
Set Wks = Worksheets("Tabelle1")
letzteZeile = Wks.Range("A1").End(xlDown).Row
For i = 1 To letzteZeile
With Wks
.Range("C" & i) = Range("A" & i) & Range("B" & i)
End With
Next i
End Sub