Sub Mergen()
Dim strInhalt As String
Dim rngZelle As Range
Application.DisplayAlerts = False
For Each rngZelle In Selection
strInhalt = strInhalt & rngZelle
Next
Selection.Merge
ActiveCell.Value = strInhalt
Application.DisplayAlerts = True
End Sub
Anmerkung: Bei der Markierung darf es sich nur um einen Einfachbereich
handeln!
MfG Frank
_____________________________________________________
Frank Arendt-Theilen, Microsoft MVP für Excel, Hameln
eMail: Thei...@t-online.de, Homepage: http://www.xl-faq.de
Hallo Frank,
diese Funktion kannte ich bisher noch nicht. Was heisst Einfachbereich?
Danke Manni
Mit Hilfe der Strg-Taste können mehrere oben genannte Bereiche als
Mehrfachbereich markiert werden.
Frank Arendt-Theilen schrieb: