Profi-Excel.de

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

      • 5 user online
      • 48390 Besucher insgesamt

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 »