Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1680to1684
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Zwei Functionen verbinden

Zwei Functionen verbinden
14.03.2019 20:05:09
Burghard
Hallo,
ich habe zwei Functionen, die beide für sich einzeln richtig rechnen:
a) =ohne_strich($J$10:$J$350)
b) FarbsummeJ(J10:J350;40)
Ich würde diese beiden Functionen gerne verbinden,d.h. es sollen alle Zahlen mit der Hintergrundfarbe 40 und die nicht durchgestrichen sind, addiert werden. So in etwa:
=ohne_strich($J$10:$J$350) und FarbsummeJ(J10:J350;40)
Ich weiß nicht, ob das überhaupt möglich ist.
Hilfe wäre nett.
Viele Grüße
Burghard

9
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zwei Functionen verbinden
14.03.2019 20:09:56
Hajo_Zi
Hallo Burghard,
ich konnte nicht sehen was Deine Funktionen macht, was wohl daran liegt das ich nicht auf fremde Rechner schaue.
=ohne_strich($J$10:$J$350) + FarbsummeJ(J10:J350;40)

Beiträge von Werner, Luc, robert, J.O.Maximo und folgende lese ich nicht.
Die Beiträge werden auch ignoriert, es erfolgt keine Antwort.
AW: Zwei Functionen verbinden
14.03.2019 20:34:13
Burghard
Hallo Hajo,
anbei die beiden Functionen. Hilft das weiter?
Function FarbsummeJ(Bereich As Range, Farbe As Integer)
Dim Zelle As Object
Application.Volatile
For Each Zelle In Bereich
If Zelle.Interior.ColorIndex = 40 Then
FarbsummeJ = FarbsummeJ + Zelle
End If
Next
End Function ===================================
Public Function ohne_strich(Bereich As Range)
Dim rngC As Range, dblZ As Double
Application.Volatile
For Each rngC In Bereich
If rngC.Font.Strikethrough = False Then
dblZ = dblZ + Abs(rngC)
End If
Next
ohne_strich = dblZ
ActiveSheet.Calculate
End Function

Anzeige
AW: Zwei Functionen verbinden
15.03.2019 05:39:18
Hajo_Zi
Gut ich hatte schon geschrieben das ich nicht auf fremde schaue. Fehler möchtst Du also selber beseitigen.
Viel Erfoilg.
Option Explicit
Function FarbsummeJ(Bereich As Range, Farbe As Integer)
Dim Zelle As Object
Dim rngC As Range, dblZ As Double
Application.Volatile
For Each Zelle In Bereich
If Zelle.Interior.ColorIndex = 40 Then
FarbsummeJ = FarbsummeJ + Zelle
End If
Next
For Each rngC In Bereich
If rngC.Font.Strikethrough = False Then
FarbsummeJ = FarbsummeJZ + Abs(rngC)
End If
Next
ActiveSheet.Calculate
End Function
Gruß Hajo
Anzeige
AW: Zwei Functionen verbinden
14.03.2019 20:10:47
SF
Hola,
das sind keine Standardfuntktionen von Excel und daher weißt nur du was sie machen. Und daher kannst auch nur du sie verbinden.
Gruß,
steve1da
AW: Zwei Functionen verbinden
14.03.2019 20:37:38
Burghard
Hallo Steve1da,
anbei die beiden Functionen. Hilft das weiter?
Function FarbsummeJ(Bereich As Range, Farbe As Integer)
Dim Zelle As Object
Application.Volatile
For Each Zelle In Bereich
If Zelle.Interior.ColorIndex = 40 Then
FarbsummeJ = FarbsummeJ + Zelle
End If
Next
End Function und
Public Function ohne_strich(Bereich As Range)
Dim rngC As Range, dblZ As Double
Application.Volatile
For Each rngC In Bereich
If rngC.Font.Strikethrough = False Then
dblZ = dblZ + Abs(rngC)
End If
Next
ohne_strich = dblZ
ActiveSheet.Calculate
End Function

Anzeige
AW: Lösung gefunden
14.03.2019 23:34:16
Burghard
Hier die Lösung:
Function FarbsummeJ(Bereich As Range, Farbe As Integer)
Dim Zelle As Object
Application.Volatile
For Each Zelle In Bereich
If Zelle.Interior.ColorIndex = 40 And Zelle.Font.Strikethrough = False Then
FarbsummeJ = FarbsummeJ + Zelle
End If
Next
End Function

1 UDF wird nicht anders benutzt als 1 Xl-Fkt! owT
15.03.2019 05:01:55
Luc:-?
:-?
AW: Lösung gefunden
15.03.2019 08:29:04
Luschi
Hallo Burghard,
- wozu übergibst Du der UDF einen Parameter (Farbe As Integer) und benutzt ihn dann gar nicht?
- Dim Zelle As Object sollte so definiert werden: Dim Zelle As Range
Gruß von Luschi
aus klein-Paris
Richtig, deshalb hatt'ich d.Obige geschrieben! orT
15.03.2019 12:16:42
Luc:-?
;-]
Gruß, Luc :-?

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige