Function automatisch wie ?
25.01.2009 15:07:00
Johann
wie stelle ich es an , dass folgende Function automatisch in dem betreffenden Tabellblatt ausgeführt wird.
Im Moment sieht es so aus, das das gewünschte Ergebnis erst aktuell ist wenn die entsprechende
Zelle angewählt ist und die Zelleingabe erneut bestätigt wird. Zelleingabe in diesem Bsp. ist = ferientage()
Ziel ist es, wenn die entsprechende Farbe für die auszuwertenden Zellen vorhanden ist das Gesamtergebnis in der entsprechenden Zelle anzuzeigen .
Als Procedur klappt das alles gut, aber bei der Automatik haperts...
__________
Function ferientage() As Integer Dim Spalte As Integer, reihe As Integer For Spalte = 2 To 36 Step 3 For reihe = 4 To 34 If Cells(reihe, Spalte).Interior.ColorIndex = 50 Then ferientage = ferientage + 1 End If Next Next End Function
___________
Für Antworten bedanke ich mich bereits jetzt :)