Zellen zusammenfassen
12.05.2015 14:07:15
Ünal
das Ziel ist es die Inhalte der Zellen zusammenzufassen die in der spalte A identisch sind.
Ausgangssituatuion.
********A*******B*******C*******D*******E*******F*******G
1********************************************************
2*******1*******3*******a******7*******1****************8
3*******1*******2*******c******f*******7****************5
4*******1*******6*******2******4*******2****************9
5*******2*******c*******5******3*******a****************7
6*******2*******7*******7******8*******b****************3
7*******4*******k*******p******9*******5****************1
8*******4*******5*******7******5*******3****************4
Ergebniss:
********A*******B********C*********D********E********F***
1
2*******1*****3&2&6*****a&c&2****7&f&4*****1&7&2****8&5&9
3
4
5*******2******c&7*******5&7*******3&8******a&b*******7&3
6
7*******4******k&5*******p&7*******9&5******5&3*******1&4
8
Zum zusammenfassen könnte man vielleicht das nehmen :
Sub Markierte_Z_zusammenf()
Dim temp As String
Dim Zelle As Range
If Selection.Rows.Count > 1 Then
For Each Zelle In Selection
temp = temp & Zelle.Text & "& "
Zelle.Value = ""
Next Zelle
Selection.Cells(1, 1).Value = VBA.Left(temp, Len(temp) - 2)
Selection.Offset(0, 1).Select
End If
End Sub
Vielen dank im voraus.