Schönheitsfehler beim Zellenverbinden
Stefan
ich hab ein Makro, das glaub ich hier aus dem Forum war ?!?!? Es hat nur einen kleinen Schönheitsfehler.
Wenn ich z.B. drei Zellen mit Inhalten verbinde, macht es das wunderbar. Aber es fügt am Beginn immer eine Leerzeile ein. Wie kann ich das verhindern?
Sub Zellen_vereinen()
For i = 1 To Selection.Cells.Count
wert = wert & Chr(10) & Selection.Cells(i).Value
Next i
Application.DisplayAlerts = False
Selection.Merge
Selection.Value = wert
Application.DisplayAlerts = True
End Sub
GrußStefan