ich habe ein Problem. Ich habe 2 Makros (eines hier aus dem Forum), die beide in etwa das tun, was ich will, aber nicht so ganz.
Und zwar geht es darum, die Inhalte von 2 in einer Zeile (spalte 1 und 2) stehenden Zellen in Spalte 3 zu verbinden, mit einem Leerzeichen dazwischen. Ohne aber beide Zellen zu einer zu verbinden.
Beispiel:
A1: haus
B1: tür
nach Ausführen des Makros soll folgendes dastehen:
A1: haus
B1: tür
C1: haus tür
Hier sind die Makros die ich habe:
Sub findreplace()
Set currentCell = Worksheets("Sheet1").Range("A1")
Set saveCell = Worksheets("Sheet2").Range("A1")
Set keywordCell = Worksheets("Sheet1").Range("B1")
Do While Not IsEmpty(currentCell)
Do While Not IsEmpty(keywordCell)
saveCell.Value = currentCell.Value & " " & keywordCell.Value
Set saveCell = saveCell.Offset(1, 0)
Set keywordCell = keywordCell.Offset(1, 0)
Loop
Set currentCell = currentCell.Offset(1, 0)
Set keywordCell = Worksheets("Sheet1").Range("B1")
Loop
End Sub
Dieses hat den Nachteil, dass es die kombinierten Worte in Sheet 2 ausgibt. Ausserdem müssen die Tabs 1 und 2 immer "sheet1" und "sheet2" heissen und das Makro funktioniert nicht, sobald man die Tabs umbenannt hat.
Und hier das, das ich im Forum gefunden habe:
Option Explicit
Sub MergeCells()
Dim intRow As Integer
Dim txt As String
intRow = 1
Do Until IsEmpty(Cells(intRow, 1))
Cells(intRow, 1) = Cells(intRow, 1) & " " & Cells(intRow, 2)
Cells(intRow, 2).ClearContents
Range(Cells(intRow, 1), Cells(intRow, 2)).Merge
intRow = intRow + 1
Loop
Columns(1).AutoFit
End Sub
Leider behält es die Ursprungszellen nicht bei und mergt Zellen A1 mit Zelle A2. Ich hätte aber gerne, dass die Kombination in Spalte 3 erscheint.
Kann mir jemand helfen??
Vielen vielen Dank im voraus,
Heike