wie kann ich mit einem Makro 2 Zellen getrennt mit einem Punkt zusammen fügen. wenn ich einen
variablen Berechen über 2 Spalten markiere?
Vielen Dank die die Hilfe
Gruß Gerhard
Sub a()
Dim x As Range, y As Range
Set x = Intersect(Selection, Columns(Selection.Column))
x.NumberFormat = "@"
For Each y In x
If Len(y.Offset(0, 1)) > 0 Then
y.Value = y.Text & "." & y.Offset(0, 1).Text
y.Offset(0, 1).ClearContents
End If
Next
End Sub
Gerd