SummenFunktion Uhrzeitformat ausnehmen

Hallo,
ich habe für mein Anliegen (aufsummieren von Zahlenwerten in jeweils einer Spalte; Zahlen mit dem Format Uhrzeit ([hh]:mm) sollen nicht mitgezählt werden)
diesen Code gefunden:

Function MeineSumme(ByVal vBereich As Range) As Double
Dim lZeilen As Long
Dim lSpalten As Long
Dim lZaehlerZeilen As Long
Dim lZaehlerSpalten As Long
Dim dSumme As Double
lZeilen = vBereich.Rows.Count  ' Die Anzahl Zeilen werden bestimmt
lSpalten = vBereich.Columns.Count  ' Die Anzahl Spalten werden bestimmt
dSumme = 0  ' Wert Initialisieren, ist eigentlich in VBA bei erstmaliger Verwendung nicht  _
notwendig,
' aber eine alte Gewohnheit
For lZaehlerZeilen = 1 To lZeilen  ' Hier werden die Werte in den einzelnen Zellen  _
aufsummiert
For lZaehlerSpalten = 1 To lSpalten
If IsDate("07:00")(vBereich.Cells(lZaehlerZeilen, lZaehlerSpalten).Value) Then '  _
IsNumeric() prüft, ob es sich um eine
' Zahl handelt
dSumme = dSumme + vBereich.Cells(lZaehlerZeilen, lZaehlerSpalten).Value
End If
Next lZaehlerSpalten
Next lZaehlerZeilen
MeineSumme = dSumme ' Übergabe des Summenergebnisses an das Rückgabeergebnis von MeineSumme
End Function

Und hier ist dann mein Versuch die Funktion anzupassen, sodass Zahlen summiert werden und Uhrzeiten (sind ja auch Zahlenwerte) eben nicht.

Function MeineSumme(ByVal vBereich As Range) As Double
Dim lZeilen As Long
Dim lSpalten As Long
Dim lZaehlerZeilen As Long
Dim lZaehlerSpalten As Long
Dim dSumme As Double
lZeilen = vBereich.Rows.Count  ' Die Anzahl Zeilen werden bestimmt
lSpalten = vBereich.Columns.Count  ' Die Anzahl Spalten werden bestimmt
dSumme = 0  ' Wert Initialisieren, ist eigentlich in VBA bei erstmaliger Verwendung nicht  _
notwendig,
' aber eine alte Gewohnheit
For lZaehlerZeilen = 1 To lZeilen  ' Hier werden die Werte in den einzelnen Zellen  _
aufsummiert
For lZaehlerSpalten = 1 To lSpalten
If IsNumeric(vBereich.Cells(lZaehlerZeilen, lZaehlerSpalten).Value) And IsDate(vBereich. _
Cells(lZaehlerZeilen, lZaehlerSpalten).Value) Then ' IsNumeric() prüft, ob es sich um eine
dSumme = dSumme + 0
Else
If Not IsDate(vBereich.Cells(lZaehlerZeilen, lZaehlerSpalten).Value) And IsNumeric( _
vBereich.Cells(lZaehlerZeilen, lZaehlerSpalten).Value) Then                                                 ' Zahl handelt
dSumme = dSumme + vBereich.Cells(lZaehlerZeilen, lZaehlerSpalten).Value
End If
End If
Next lZaehlerSpalten
Next lZaehlerZeilen
MeineSumme = dSumme ' Übergabe des Summenergebnisses an das Rückgabeergebnis von MeineSumme
End Function

Soweit ich weiß, ist es möglich Zahlenformate auszulesen und dann wohl auch damit weiter zu arbeiten (außer Bedingte Formatierung).
Kann mir jemand helfen, die Funktion anzupassen?
Danke im Voraus
Alexander

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Function MeineSumme(ByVal vBereich As Range) As Double Dim lZeilen As Long Dim lSpalten As Long Dim lZaehlerZeilen As Long Dim lZaehlerSpalten As Long Dim dSumme As Double lZeilen = vBereich.Rows.Count lSpalten = vBereich.Columns.Count dSumme = 0 For lZaehlerZeilen = 1 To lZeilen For lZaehlerSpalten = 1 To lSpalten If NumberFormat "[hh]:mm" Then dSumme = dSumme + vBereich.Cells(lZaehlerZeilen, lZaehlerSpalten).Value End If Next lZaehlerSpalten Next lZaehlerZeilen MeineSumme = dSumme End Function

Function MeineSumme(ByVal vBereich As Range) As Double Application.Volatile Dim dSumme As Double Dim rg As Range dSumme = 0 For Each rg In vBereich Select Case LCase(rg.NumberFormat) Case "[hh]:mm", "[h]:mm", "hh:mm", "h:mm" 'nichts tun Case Else If IsNumeric(rg.Value) Then dSumme = dSumme + rg.Value End If End Select Next rg MeineSumme = dSumme End Function

...
"schau Dir doch mal mein Schleifenkonstrukt genauer an. Hiet wird ebenfalls jede Zelle im übergebenen Zellbereich durchlaufen, ohne das man Koordinaten wie Anzahl der Zeilen und Spalten im Bereich wissen muß."
o.k., das ist geschickt. Aber die Version, die ich gepostet habe hat im Original ja auch funktioniert.
...nur mit diesem Zahlenformat nicht. Komisch. Würdest du sagen, dass eine Anpassung auf meine Erfordernisse ("hh:mm" von der Berechnung ausnehmen) mit dieser Art des Codes nicht möglich wäre?
Warum muss man immer für Range irgendeine Variable (rg) verwenden und kann nicht einfach Range schreiben? Weil in diesem Code zum Beispiel in der 1. Zeile (überschrift) schon vBereich als Range deklariert ist?
Was bewirkt LCase? Müsste ja auch ein feststehender Ausdruck sein (weil du es nicht vorher deklariert hast).
Hätte ich im ersten Code Application.Volatile auch gebraucht?
Danke nochmal und Gruss
Alexander

Beliebteste Forumthreads (12 Monate)

SummenFunktion Uhrzeitformat ausnehmen

10 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread