Nochmal: Verbinden von 2 Zellen in 1 3.

Sub MergeCells()
Dim intRow As Integer
Dim txt As String
intRow = 1
Do Until IsEmpty(Cells(intRow, 1))
Cells(intRow, 3) = Cells(intRow, 1) & " " & Cells(intRow, 2)
intRow = intRow + 1
Loop
Columns(3).AutoFit
End Sub

funktioniert super!

Wie schaffe ich es, dass in Zeile 3 die umgekehrte Reihenfolge ausgegeben wird?

Beispiel:

Beispiel:

A1: haus
B1: tür

nach Ausführen des Makros soll folgendes dastehen:

A1: haus
B1: tür
C1: haus tür
D1: tür haus

und zwar für eine lange, lange liste an Worten in den ersten beiden Spalten...

Sorry für diesen Nachklapp, ich hoffe, jemand kann mir helfen!!

Heike