ich suche ein Makro wobei ich auf Druck in der activen Zelle RECHTS von der activen Zelle die nächsten 4 Zellen, jeweils mit Leerzeichen getrennt zusammensetzen kann.
mfg
kurt k
Public Sub Texte_rechts_zusammensetzen()
ActiveCell = ActiveCell.Offset(0, 1).FormulaR1C1 & " " & ActiveCell.Offset(0, 2) & " " & _
ActiveCell.Offset(0, 3) & " " & ActiveCell.Offset(0, 4)
End Sub
gruß With Application
ActiveCell = Join(.Transpose(.Transpose(ActiveCell.Offset(0, 1).Resize(1, 4).Value)), " ")
End With
LG UweDActiveCell.Resize(1, 4).Offset(0, 1).ClearContents