Function Fettsumme

Bild

Betrifft: Function Fettsumme
von: Alex
Geschrieben am: 02.04.2005 15:06:29
Hallo,
ich habe mal wieder ein Problem!?!
Ich habe im Microsoft Visual Basic Editor ein Modul das es ermöglicht die Fettgeschriebenen Zahlen zu addieren.
Da ich Laie auf diesem Gebiet bin, habe ich jetzt ein neues Modul erstellt, daß alle Kursivgeschriebenen Zahlen addiert.
Nun das Problem, ich benutze zum einem einen normalen, einen fetten, einen kursiven und ein fettkursiven Schriftstil um die Zuordnung einer Zahlen optisch zu differenzieren.
Nun habe ich das Problem das mit dem Modul Fettsumme, er auch fettkursive mitaddiert, oder auch fettkursive zu den kursiven addiert. Darf aber nicht sein!
Mein Modul hatte ich hier vom Forum bekommen, aber ich drucke es zur Verdeutlichung noch einmal ab:


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

Meine Änderung, Modul 2:

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


Wie kann ich nun das Modul ändern bzw. zwei neue hinzufügen, damit er ganz klar nur die wirklich richtig formatierten Schriften addiert?
Danke schon im voraus.
Alexander
Bild

Betrifft: AW: Function Fettsumme
von: K.Rola
Geschrieben am: 02.04.2005 15:34:15
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

Gruß K.Rola

Der Fleiß ist die Wurzel aller Häßlichkeit.

Oscar Wilde


Bild

Betrifft: Oscar Wilde
von: Sonnenpeter
Geschrieben am: 02.04.2005 17:32:52
Langeweile ist eine Sünde, für die es keine Absolution gibt.
Oscar Wilde
Gruß Sonnenpeter
Bild

Betrifft: AW: Oscar Wilde
von: K.Rola
Geschrieben am: 02.04.2005 17:52:34

Gruß K.Rola

Es gibt keine Sünde außer der Dummheit.

Oscar Wilde


Bild

Betrifft: AW: Oscar Wilde
von: Sonnenpeter
Geschrieben am: 02.04.2005 20:32:15
Nachahmung ist die höchste Form der Anerkennung.
Lachen ist nicht der schlechteste Anfang einer Freundschaft und bei weitem das beste Ende.
Oscar Wilde
Lach, Sonnenpeter
Bild

Betrifft: AW: Oscar Wilde
von: K.Rola
Geschrieben am: 02.04.2005 21:20:13

Gruß K.Rola

Wer Oscar Wilde zitiert muss kein toller Typ sein, aber die Wahrscheinlichkeit ist groß.

K.Rola


Bild

Betrifft: AW: Function Fettsumme
von: WernerB.
Geschrieben am: 02.04.2005 15:51:53
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 !
Bild

Betrifft: AW: Function Fettsumme
von: Alex
Geschrieben am: 02.04.2005 17:35:46
Vielen Dank für beide Beiträge. Sie haben mir sehr geholfen. Jedoch kann ich es nicht verstehen, wie man sowas überhaupt verstehen kann. Ich bin nur User, kein Programmierer.
Danke
Alex
 Bild

Beiträge aus den Excel-Beispielen zum Thema "bild in userform"