- #1
C
Ch.R
Bekanntes Mitglied
Themenersteller
- Dabei seit
- 11.11.2001
- Beiträge
- 66
- Reaktionspunkte
- 0
- Ort
- ??????????
Hallo Excel Gemeinde ;D
Ich hab im Microsoft Visual Basic folgende Funktion geschrieben:
Function GrünAddieren(r As Range)
For Each r In r.Cells
If IsNumeric(r) Then
If r.Interior.ColorIndex = 4 Then
GrünAddieren = _
GrünAddieren + r.Value
End If
End If
Next r
End Function
Damit sollen alle grün eingefärbte Zellen eines bestimmten (Excel-) Bereichs berechnet werden.
Die Funktion kann ich im Funktionsassistent aufrufen, was auch funktioniert.
Zum berechnen muss ich allerdings immer F2 und Return drücken. Aber es müsste doch auch automatisch gehen, wenn ich die Zellinhalte ändere !, bzw. grün einfärbe.
Leider kann ich den Fehler nicht finden. ??? Vielleicht kann mir geholfen werden. ;D
Ola ! Microsoft Visual Basic Vers. 6.0
Excel 2000
Ich hab im Microsoft Visual Basic folgende Funktion geschrieben:
Function GrünAddieren(r As Range)
For Each r In r.Cells
If IsNumeric(r) Then
If r.Interior.ColorIndex = 4 Then
GrünAddieren = _
GrünAddieren + r.Value
End If
End If
Next r
End Function
Damit sollen alle grün eingefärbte Zellen eines bestimmten (Excel-) Bereichs berechnet werden.
Die Funktion kann ich im Funktionsassistent aufrufen, was auch funktioniert.
Zum berechnen muss ich allerdings immer F2 und Return drücken. Aber es müsste doch auch automatisch gehen, wenn ich die Zellinhalte ändere !, bzw. grün einfärbe.
Leider kann ich den Fehler nicht finden. ??? Vielleicht kann mir geholfen werden. ;D
Ola ! Microsoft Visual Basic Vers. 6.0
Excel 2000