nochmal zu meinem Eintrag von vorhin.
Dieses Makro:
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