leider brauch ich mal wieder EURE Hilfe.
Ich habe eine Tabelle D5:D16, darin sind 3 Zellen mit
roter Schriftfarbe. Jeweils ein X.
Ich möchte gern in der Zelle D4 eine Formel eingeben, die
mir die Anzahl also jetzt eine 3 reinsetzt.
mfg
kurt k
' **********************************************************************
' Modul: Modul1 Typ: Allgemeines Modul
' **********************************************************************
Option Explicit
Public Function getColor(Target As Variant, Optional BackColor As Boolean = False, Optional ColorIndex As Boolean = True) As Variant
Dim vntI As Variant, vntOut() As Long, lngI As Long
On Error GoTo ErrExit
Application.Volatile
Redim vntOut(Target.Count - 1)
For Each vntI In Target
If BackColor Then
If ColorIndex Then
vntOut(lngI) = vntI.Interior.ColorIndex
Else
vntOut(lngI) = vntI.Interior.Color
End If
Else
If ColorIndex Then
vntOut(lngI) = vntI.Font.ColorIndex
Else
vntOut(lngI) = vntI.Font.Color
End If
End If
lngI = lngI + 1
Next
getColor = vntOut
Exit Function
ErrExit:
getColor = xlErrValue
End Function
A | B | C | D | E | F | |
1 | x | 3 | ||||
2 | x | |||||
3 | x | |||||
4 | x | |||||
5 | x | |||||
6 | x | |||||
7 | x | |||||
8 | x | |||||
9 | ||||||
10 |
Formeln der Tabelle | ||||
| ||||
Enthält Matrixformel: Umrandende { } nicht miteingeben, sondern Formel mit STRG+SHIFT+RETURN abschließen! | ||||
Matrix verstehen |
A | B | C | D | E | |
1 | x | 0 | 2 | ||
2 | x | 3 | |||
3 | x | 6 | |||
4 | x | 55 | |||
5 | a | 3 | |||
6 | x | 6 | |||
7 | x | 3 | |||
8 | x | 0 |
Formeln der Tabelle | |||||||||
| |||||||||
|