Function Fettsumme

Function Fettsumme(Bereich As Range) 'Quelle: Alois Eckl Application.Volatile Fettsumme = 0 For Each zelle In Bereich If zelle.Font.Bold = True Then Fettsumme = Fettsumme + zelle.Value End If Next End Function

Function Kursivsumme(Bereich As Range) 'Quelle: Alois Eckl Application.Volatile Kursivsumme = 0 For Each zelle In Bereich If zelle.Font.Italic = True Then Kursivsumme = Kursivsumme + zelle.Value End If Next End Function

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Function Fettsumme

02.04.2005 15:34:15

K.Rola

Oscar Wilde

02.04.2005 17:32:52

Sonnenpeter

AW: Oscar Wilde

02.04.2005 17:52:34

K.Rola

AW: Oscar Wilde

02.04.2005 20:32:15

Sonnenpeter

AW: Oscar Wilde

02.04.2005 21:20:13

K.Rola

AW: Function Fettsumme

02.04.2005 15:51:53

WernerB.

AW: Function Fettsumme

02.04.2005 17:35:46

Alex

Hallo, Function Kursivsumme(Bereich As Range) As Double Dim Zelle As Range Application.Volatile For Each Zelle In Bereich If Not IsEmpty(Zelle) And IsNumeric(Zelle) Then If Zelle.Font.Italic And Not Zelle.Font.Bold Then Kursivsumme = Kursivsumme + CDbl(Zelle.Value) End If End If Next End Function

Hallo Alexander,
wie gefällt Dir das?


Function NormalSumme(Bereich As Range) As Double
'Quelle: Alois Eckl
Dim zelle As Range
Application.Volatile
For Each zelle In Bereich
If zelle.Font.Bold = False And _
zelle.Font.Italic = False Then
NormalSumme = NormalSumme + zelle.Value
End If
Next zelle
End Function


Function FettSumme(Bereich As Range) As Double
'Quelle: Alois Eckl
Dim zelle As Range
Application.Volatile
For Each zelle In Bereich
If zelle.Font.Bold = True And _
zelle.Font.Italic = False Then
FettSumme = FettSumme + zelle.Value
End If
Next zelle
End Function


Function KursivSumme(Bereich As Range) As Double
'Quelle: Alois Eckl
Dim zelle As Range
Application.Volatile
For Each zelle In Bereich
If zelle.Font.Bold = False And _
zelle.Font.Italic = True Then
KursivSumme = KursivSumme + zelle.Value
End If
Next zelle
End Function


Function FettKursivSumme(Bereich As Range) As Double
'Quelle: Alois Eckl
Dim zelle As Range
Application.Volatile
For Each zelle In Bereich
If zelle.Font.Bold = True And _
zelle.Font.Italic = True Then
FettKursivSumme = FettKursivSumme + zelle.Value
End If
Next zelle
End Function

Viel Erfolg wünscht
WernerB.
P.S.: Dieses Forum lebt auch von den Rückmeldungen der Fragesteller an die Antworter !

Beliebteste Forumthreads (12 Monate)

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread