Range in einer Excel/VBA-Function

Das geht mit VBA sehr einfach.

A2: =Test(A1;",")

Andreas.

Function Test(Zelle As Range, Trenner) As Double

Dim Arr

Arr = Split(Zelle.Value, Trenner)

Test = UBound(Arr) + 1

End Function

Hallo Sebsatian ich bin ein unabhängiger Office Experte, das geht nur mit VBA, man kann keine Formatierung verknüpfen.

Die Funktion dazu könnte etwa so aussehen

Function CellColour(InRange As Range)

Application.Volatile True

CellColour = InRange(1, 1).Interior.ColorIndex

End Function

Das gibt Dir eine Zahl für die Farbe, welche Du dann weiter verarbeiten kannst um in der anderen Zelle die gleiche Frabe zu setzen.

Du must aber noch recalc machen F9 oder auch das in VBA lösen

Hallo Karsten,

da du nicht weißt in welcher Spalte der Suchbegriff vorkommen kann, verwende besser VBA.

Füge folgenden Code in ein Standardmodul ein und rufe dann die Funktion im Blatt auf mit:

=myMin(Stock!$A$1:$B$9999;Stock!$C$1:$C$9999;A3)

Function myMin(Bereich1 As Range, Bereich2 As Range, strCheck As Range) As Double

Dim rngC As Range

Dim varVal() As Variant

Dim i As Long

For Each rngC In Bereich1

    If rngC = strCheck Then

        ReDim Preserve varVal(i)

        varVal(i) = Bereich2.Cells(rngC.Row)

        i = i + 1

    End If

Next

myMin = Application.Min(varVal)

End Function

Claus

Hallo zusammen,



habe die Beispielfunktionen noch mal ergänzt.

Mit diesen vier Varianten kann man zählen oder summieren. Jeweils nach Hintergrund- oder Schriftfarbe.

Außerdem kann man die jeweilige Farbe als Zellbezug angeben. Dann braucht man nicht die Farbwerte zu wissen, man formatiert einfach eine Bezugszelle gleich, oder verwendet eine der zu prüfenden Zellen als Bezug. Natürlich kann man auch die Zelle in der die
Funktion steht als Bezug verwenden, kann man dann aber teilweise schlecht lesen, daher eher einen externen Bezug wählen.

Durch das Application.volatile werden die Funktionen auch bei F9 oder einer anderen Berechnungsfunktion im Blatt ausgelöst.



Function Anzahl_Text_Farbe(Bereich As Range, Quelle As Range)

Application.Volatile

x = 0

For Each Zelle In Bereich

If Zelle.Font.ColorIndex = Quelle.Font.ColorIndex Then

x = x + 1

End If

Next

Anzahl_Text_Farbe = x

End Function



Function Summe_Text_Farbe(Bereich As Range, Quelle As Range)

Application.Volatile

x = 0

For Each Zelle In Bereich

If Zelle.Font.ColorIndex = Quelle.Font.ColorIndex Then

x = x + Zelle.Value

End If

Next

Summe_Text_Farbe = x

End Function



Function Anzahl_Hintergrund_Farbe(Bereich As Range, Quelle As Range)

Application.Volatile

x = 0

For Each Zelle In Bereich

If Zelle.Interior.ColorIndex = Quelle.Interior.ColorIndex Then

x = x + 1

End If

Next

Anzahl_Hintergrund_Farbe = x

End Function



Function Summe_Hintergrund_Farbe(Bereich As Range, Quelle As Range)

Application.Volatile

x = 0

For Each Zelle In Bereich

If Zelle.Interior.ColorIndex = Quelle.Interior.ColorIndex Then

x = x + Zelle.Value

End If

Next

Summe_Hintergrund_Farbe = x

End Function

Eine Formel kenne ich nicht. Es geht mit einer VBA-Function:

=Erstellungsdatum()

Function Erstellungsdatum() As Date

Erstellungsdatum = ActiveWorkbook.BuiltinDocumentProperties(11)

End Function

Peter