Verketten mit Format
20. September 2006
Mit Hilfe der For Each-Schleife werden alle Zellen des Bereichs durchlaufen. Über die .Text-Eigenschaft werden die angezeigten Zelleninhalte ermittelt, wobei das Zahlenformat übernommen wird.
Der Aufruf im Tabellenblatt sieht wie folgt aus: = VerkettenMitFormat(A1:A5)
VBA:
-
-
-
Function VerkettenMitFormat(a As Range) As String
-
'verkettet die Zellen des Bereichs unter
-
'Beruecksichtigung der Formatierung
-
'09-2006 E.Bimczok
-
'http://www.profi-excel.de
-
Dim myCell As Range
-
-
For Each myCell In a
-
VerkettenMitFormat = _
-
VerkettenMitFormat & myCell.Text
-
Next myCell
-
-
End Function
-
-
Freitag 27. Oktober 2006 um 11:30 am
Klasse Lösung! Da kommt keine Formel mit.
Bemerkung: Jemand, der eine Excel-Datei nur gefahrlos öffnen möchte, kann diesen (wie auch sonst jeden) Code einfach aus einem Blatt, wo er hinterlegt ist (als Text in Spalte A), in ein Modul kopieren – mit Hinweis im Blatt natürlich. Der Funktionsaufruf im Blatt hingegen kann vorher schon sein, mit Fehlermeldung, die dann verschwindet.