Willkommen

Pivottabelle

Spezialfilter

Formeln

Zellformate

Bedingte Formate

Gültigkeit

Programmierung

UDF - Funktionen

Tipps & Tricks

Webabfrage

Fehlersuche

Farbindex

Shortcuts

Limitationen

Downloads

Links

Kontakt

Disclaimer

Impressum

Addition von Zahlen mit Buchstaben in Zelle
Benutzerdefinierte Funktion
 
Mittels benutzerdefinierter Funktion sollen mehrere ganzzahlige Werte, welche mit Text verbunden und durch ein Komma getrennt sind, addiert werden. Die Zahlenwerte müssen jedoch vor dem Text stehen.
 
 
Tabelle1
 ABCD
11A, 2B Summe der Zahlenwerte:15
23C, 4D, 5D   
3    
Formeln der Tabelle
D1 : =addition(A1:A2)
 
Diagramm - Grafik - Excel Tabellen einfach im Web darstellen    Excel Jeanie HTML  3.0    Download  
 
 
Der Code für ein allgemeines Modul:
 
Public Function Addition(ByVal rngBereich As Range) As Long
Dim Zelle As Range
Dim SPL
Dim lngX As Long
For Each Zelle In rngBereich
SPL = Split(Zelle, ",")
  For lngX = 0 To UBound(SPL)
    Addition = Addition + Val(SPL(lngX))
  Next
Next
End Function