VBA Funktionen "hängen sich auf"
10.10.2013 11:29:48
Fritz
ich habe mir 4 eigene Funktionen zur Berechnung in vba geschrieben und verwende sie in 2 Arbeitsblättern. Es funktioniert auch. Allerdings "hängen" sich die Funktionen anscheinend manchmal auf: Das zeigt sich dadurch, dass in den Zellen plötlich keine Ergebnisse mehr ausgegeben werden (oder nur vereinzelt) oder auch in manchen Zellen das Ergebnis aus einer der 3 anderen Funktionen steht. Wenn ich dann die Funktion in einem Feld neu berechne, aktualisieren sich auch alle anderen auf dem Arbeitsblatt. Dafür sind dann häufig die Ergebnisse der Funktionen auf dem anderen Arbeitsblatt weg.
Weiß jemand Rat?
Alle Funktionen sind in einem Modul. Hilfe wäre sehr willkommen. Besten Dank, Fritz.
Option Explicit
Function SUM_EG13Monatlich(Bereich As Range)
Dim i%, j%, Zelle As Range
For Each Zelle In Bereich
If Zelle.Value = 13 Then
i = Zelle.Row + 3
j = Zelle.Column
SUM_EG13Monatlich = SUM_EG13Monatlich + Cells(i, j).Value
End If
Next Zelle
End Function
Function SUM_EG11Monatlich(Bereich As Range)
Dim i%, j%, Zelle As Range
For Each Zelle In Bereich
If Zelle.Value = 11 Then
i = Zelle.Row + 3
j = Zelle.Column
SUM_EG11Monatlich = SUM_EG11Monatlich + Cells(i, j).Value
End If
Next Zelle
End Function
Function SUM_FreistellungMonatlich(Bereich As Range)
Dim i%, j%, Zelle As Range
For Each Zelle In Bereich
If Zelle.Value = "Freistellung" Then
i = Zelle.Row + 2
j = Zelle.Column
SUM_FreistellungMonatlich = SUM_FreistellungMonatlich + Cells(i, j).Value
End If
Next Zelle
End Function
Function SUM_HiwiMonatlich(Bereich As Range)
Dim i%, j%, Zelle As Range
For Each Zelle In Bereich
If Zelle.Value Like "*HK" Then
i = Zelle.Row + 2
j = Zelle.Column
SUM_HiwiMonatlich = SUM_HiwiMonatlich + Cells(i, j).Value
End If
Next Zelle
End Function
Anzeige