Profi-Excel.de

Die Seite für den professionellen Umgang mit Excel und VBA

Archiv für die 'UDF' Kategorie

User Defined Functions (benutzerdefinierte Funktionen)

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)

PLAIN TEXT
VBA:
  1.  
  2.  
  3. Function VerkettenMitFormat(a As Range) As String
  4. 'verkettet die Zellen des Bereichs unter
  5. 'Beruecksichtigung der Formatierung
  6. '09-2006 E.Bimczok
  7. 'http://www.profi-excel.de
  8. Dim myCell As Range
  9.  
  10. For Each myCell In a
  11.   VerkettenMitFormat = _
  12.    VerkettenMitFormat & myCell.Text
  13. Next myCell
  14.  
  15. End Function
  16.  
  17.  

Abgelegt unter UDF | 1 Kommentar »