UDF, wenn x-te Stelle in Bereichen 0 u. eingeblen.

Guten Tag
Ich habe folgende Problemstellung, die ich gerne mit einem UDF lösten möchte:
- eine oder mehrere Spaltenbereiche mit gleichviel Zellen (im Beispiel benannt mit Bereich_A, Bereich_V, Bereich_X)
- wenn in der x-ten Zeile aller Bereiche ein Nullwert steht (oder eine der Wert der Formel Null ergibt), sollte diese Zeile ausgeblendet sein (manuell)
- ist eine solche Zeile nicht ausgeblendet (wie im Beispiel Zeile 3 und 21, dann sollte die UDF "Zeile 4;21" zurückgeben
- falls keine Zeile ausgeblendet werden muss, kann die Rückgabe "OK" sein.
Kann mir jemand da auf die Sprünge helfen?
Vielen Dank, Simon
Tabelle1

	A	B	C	D	E	F	G
2	0		1			1
3	444		444			444
4	0		0			0
5	41		15			15
6
7	485		460			460
8
9
10
11	13		39			39
12	0		444			444
13	15		0			0
14	41		15			15
15
16	69		498			498
17
18
19
20	0		1			1
21	0		0			0
22	0		13			13
23	41		15			15
24
25	41		29			29
26
27
28	gelb =		grün =			blau =
29	Bereich_A		Bereich_V			Bereich_X
30
31
32	Auswertung (UDF)
33	UDF_NUMM(Bereich_A;Bereich_V;Bereich_X)
34	4;21

Formeln der Tabelle

Zelle	Formel
A7	=SUMME(A2:A6)
C7	=SUMME(C2:C6)
F7	=SUMME(F2:F6)
A16	=SUMME(A11:A15)
C16	=SUMME(C11:C15)
F16	=SUMME(F11:F15)
A25	=SUMME(A20:A24)
C25	=SUMME(C20:C24)
F25	=SUMME(F20:F24)

Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Hi PS,
der erste Punkt ist leicht erledigt - mit einer leicht geänderten Zeile:
UDF_NUMM = UDF_NUMM & CStr(zz + rngA.Row - 1)
Der zweite Punkt ginge sicher auch. Aber hier stellt sich die Frage nach der Sinnhaftigkeit.
Wie wären die Parameter der UDF zu deklarieren? Wie viele Bereiche gibt es?
Man kann so eine Fkt. auch mit einer variablen Parameterzahl definieren.
Wenn 7 Parameter vorgegeben werden, sollen dann die ersten 5 (als Teilbereiche) zur 1. Spalte gehören,
der 6. und 7. Parameter dann die 2. und 3. Spalte festlegen?
Ist es da nicht viel einfacher, dir Fkt. mehrmals für die Teilbereiche aufzurufen, etwa so (für die Spalten A, B und D)?
Tabelle1

	F
2	4
3	OK
4	OK

Formeln der Tabelle

Zelle	Formel
F2	=UDF_NUMM(A2:A20;BEREICH.VERSCHIEBEN(A2:A20;0;1); BEREICH.VERSCHIEBEN(A2:A20;0;3))
F3	=UDF_NUMM(A25:A40;BEREICH.VERSCHIEBEN(A25:A40;0;1); BEREICH.VERSCHIEBEN(A25:A40;0;3))
F4	=UDF_NUMM(A45:A50;BEREICH.VERSCHIEBEN(A45:A50;0;1); BEREICH.VERSCHIEBEN(A45:A50;0;3))

Da siehst man auch sofort, in welchem Teilbereich es noch klemmt.
Zu Volatile ein Zitat aus der VBA-Hilfe:


Kennzeichnet eine benutzerdefinierte Funktion als veränderlich.
Solche Funktionen werden immer neu berechnet,
wenn in einer beliebigen Zelle des Arbeitsblattes eine Berechnung durchgeführt wird.
Nicht veränderliche Funktionen werden nur dann neu berechnet, wenn sich die Eingabevariablen ändern.

Die Eingabevariablen in UDF_NUMM sind Bereiche. Wenn sich in den Bereichen etwas ändert,
ändern sich die Eingabevariablen - und es wird auch ohne Volatile automatisch neu gerechnet.
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort

Function UDF_NUMM(rngA As Range, rngB As Range, rngC As Range) As String Dim zz As Long, mm As Long, rngT As Range, lngT As Long, lngB As Long, lngC As Long If rngA.Columns.Count * rngB.Columns.Count * rngC.Columns.Count 1 Then UDF_NUMM = "Jeder Bereich muss einspaltig sein." ElseIf rngA.Areas.Count rngB.Areas.Count Or _ rngB.Areas.Count rngC.Areas.Count Then UDF_NUMM = "Die Bereiche müssen gleich viele Teilbereiche haben." ElseIf rngA.Row rngB.Row Or rngB.Row rngC.Row Then UDF_NUMM = "Die Bereiche müssen in der selben Zeile beginnen." ElseIf rngA.Count = rngB.Count And rngA.Count = rngC.Count Then lngB = rngB.Column lngC = rngC.Column For Each rngT In rngA.Areas For zz = 1 To rngT.Count lngT = rngT.Rows(zz).Row If rngT(zz).EntireRow.Hidden Then ElseIf IsEmpty(rngT(zz)) Or _ IsEmpty(Cells(lngT, lngB)) Or IsEmpty(Cells(lngT, lngC)) Then ElseIf rngT(zz) = 0 And _ Cells(lngT, lngB) = 0 And Cells(lngT, lngC) = 0 Then If Len(UDF_NUMM) > 0 Then UDF_NUMM = UDF_NUMM & ";" UDF_NUMM = UDF_NUMM & CStr(zz + rngT.Row - 1) End If mm = rngA(zz).Row Next zz Next rngT If UDF_NUMM = "" Then UDF_NUMM = "OK" Else UDF_NUMM = "Alle Bereiche müssen gleiche Zeilenzahl haben." End If End Function

Function NULL2(rngA As Range, rngB As Range) As String Dim zz As Long, mm As Long, rngT As Range, lngT As Long, lngB As Long If rngA.Columns.Count * rngB.Columns.Count 1 Then NULL2 = "Jeder Bereich muss einspaltig sein." ElseIf rngA.Areas.Count rngB.Areas.Count Then NULL2 = "Die Bereiche müssen gleich viele Teilbereiche haben." ElseIf rngA.Row rngB.Row Then NULL2 = "Die Bereiche müssen in der selben Zeile beginnen." ElseIf rngA.Count = rngB.Count Then lngB = rngB.Column For Each rngT In rngA.Areas For zz = 1 To rngT.Count lngT = rngT.Rows(zz).Row If rngT(zz).EntireRow.Hidden Then ElseIf IsEmpty(rngT(zz)) Or _ IsEmpty(Cells(lngT, lngB)) Then ElseIf rngT(zz) = 0 And _ Cells(lngT, lngB) = 0 = 0 Then If Len(NULL2) > 0 Then NULL2 = NULL2 & ";" NULL2 = NULL2 & CStr(zz + rngT.Row - 1) End If mm = rngA(zz).Row Next zz Next rngT If NULL2 = "" Then NULL2 = "OK" Else NULL2 = "Alle Bereiche müssen gleiche Zeilenzahl haben." End If End Function

Beliebteste Forumthreads (12 Monate)

UDF, wenn x-te Stelle in Bereichen 0 u. eingeblen.

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

306 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

UDF, wenn x-te Stelle in Bereichen 0 u. eingeblen.

11 Beiträge zum Forumthread Beiträge zu diesem Forumthread

306 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread