Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 10:08:11
Summieren von Zellen mit bedingter Formatierung
26.04.2024 09:08:00
Export alle Tabellenblätter als csv - in bestimmten Ordner
26.04.2024 08:56:40
Über alle Spalten nur €-Werte zählen
26.04.2024 08:08:24
Pivot Vormonatsveränderung
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1012to1016
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1012to1016
1012to1016
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

UDF - pos. oder neg. Wert in ausgeblendet. Bereich

UDF - pos. oder neg. Wert in ausgeblendet. Bereich
26.09.2008 21:20:00
Peter
Guten Abend
Ich möchte mit Hilfe einer Funktion (z.B. yWert) abfragen, ob innerhalb einem benannten Bereich (z.B. "Zahlenteil") positive oder negative Werte in ausgeblendeten Zeilen enthalten sind. Falls dies zutrifft, sollte die Rückgabe der Tabellenname sowie die betreffenden Zelladressen beinhalten.
Annahme Variante 1:
"Zahlenteil" bezieht sich auf Auswertung!B17:c40
Im ganzen Bereich ist keine Spalte / Zeile ausgeblendet
die Formel =yWert("Zahlenteil") ergibt den Wert 0
Annahme Variante 2:
"Zahlenteil" bezieht sich auf Auswertung!B17:c40
Im ganzen Bereich sind die Zeilen 20 und 21 ausgeblendet
In B20 und C21 ist eine positive oder negative Zahl enthalten
die Formel =yWert("Zahlenteil") ergibt als Rückgabe "Auswertung!B20;C21"
Kann mir jemand auf die Sprünge helfen?
Vielen Dank, Peter

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: UDF - pos. oder neg. Wert in ausgeblendet. Bereich
26.09.2008 23:14:06
Gerd
Hallo Peter !

Public Function yWert(Bereichsnamen As String) As String
Dim Wks As Worksheet, Zelle As Range, rng As Range, strVersteckte As Boolean
Set Wks = Worksheets(Range(Bereichsnamen).Parent.Name)
With Wks
For Each Zelle In .Range(Bereichsnamen)
If .Rows(Zelle.Row).Hidden = True Or .Columns(Zelle.Column).Hidden = True Then
strVersteckte = True
If IsNumeric(Zelle.Value) Then
If Zelle.Value  0 Then
If rng Is Nothing Then
Set rng = Zelle
Else
Set rng = Union(rng, Zelle)
End If
End If
End If
End If
Next
End With
yWert = IIf(strVersteckte = True, "keine Werte", "keine ausgeblendet")
If Not rng Is Nothing Then yWert = Split(rng.Address(False, False, xlA1, True), "]")(1)
End Function


Gruß Gerd

Anzeige
AW: Super, kleine Anschlussfrage
27.09.2008 15:02:33
Peter
Hallo Gerd
Vielen Dank - das funktioniert, wie gewünscht.
Damit bei Änderungen die Formel neu ausgewertet wird und ich nicht mit Application.Volatile arbeiten muss, habe ich noch ein weiteres Argument eingefügt, das ich jeweils mit HEUTE() übergebe.
Public Function yWert(Bereichsnamen As String, dummy As Date) As String
Interessanterweise habe ich festgestellt, dass die Formel automatisch neu berechnet wird, wenn ich Zeilen mit Zahlen aus- oder einblende; wenn ich jedoch Spalten mit Zahlen ein- oder ausblende erfolgt die Neuberechnung erst, wenn ich irgend eine Eingabe in der Tabelle vornehme. Die ein- resp. ausgeblendeten Zeilen, resp. Spalten betreffen immer auch den Bereich, den ich mit dem ersten Argument übergebe.
Gibt es dazu einen plausiblen Grund?
Vielen Dank für die Unterstützung.
Gruss, Peter
Anzeige
AW: Kleine Anschlussfrage - noch offen
27.09.2008 21:34:26
Gerd
Hallo Peter,
da muss ich leider passen. Dafür mache ich mit Formeln viel zu wenig.
Ich könnte allenfalls vermuten, dass deine Formeln "zeilenbezogen" sind.
Gruß Gerd

312 Forumthreads zu ähnlichen Themen

@ Tino - brauche Hilfe bei einer deiner Formeln
oblivion

Hallo, ich habe eine Frage an dich. Du hast mir die Formel erstellt in A16.
Ich habe die Datei mal hochgeladen und in Blatt "Beispiel" Spalte A etwas hereingeschrieben.
Danke für deine Hilfe.
Gruß Oblivion
https://www.herber.de/bbs/user/54685.zip
17.08.2008 21:06:00
Thread-ID: 1002466
4 Beiträge
Anzeige
In mehrspaltiger ListBox Einträge in Spalte zählen
Josef

Hallo!
Mit "Label140.Caption = ListBox9.ListCount" kann ich die eingetragenen Zeilen in einer Listbox zählen und in einem Label eintragen lassen.
Ist es möglich, in einer merhspaltigen ListBox Einträge in einer Spalte z.B. Spalte 8 zu zählen.?
Wenn ja, wie würde hier bitte eine VBA...
26.08.2008 12:10:10
Thread-ID: 1004750
4 Beiträge
Bestimmten Wert in einer Zelle finden
Olli

Hallo,
ich lauf gerade wieder mal mit einem Brett vorm Kopf rum und hoffe, mir kann einer hier helfen.
Ich habe in einer Zelle mehrere Werte stehen, die jeweils durch Semikolon getrennt sind (bis zu 15).
Wie kann ich per VBA eine Schleife erstellen, dass solange nach einem Wert gesu...
19.09.2008 08:54:00
Thread-ID: 1010897
5 Beiträge
Anzeige
Formel gesucht: Anzahl vesch. Werte in Zellbereich
Martin

Hallo liebe Excelianer,
gibt es eine Formel, die die Anzahl verschiedener Zelleninhalte für einen Bereich ermittelt? Zum Beispiel wenn ich 15 Zellen hätte, in denen 3mal die 5 steht und 12mal die 7 steht. Da ja nur 2 verschiedene Werte in den 15 Zellen stehen, müsste also 2 herauskommen. Nu...
19.09.2008 13:25:00
Thread-ID: 1011022
4 Beiträge
Vergleichen mit Funktion WENN
Uwe

Hallo liebe Forummitglieder,
ich habe ein Problem mit vergleichen von Zahlen.
Ich habe schon selbst probiert, aber das haut hinten und vorne nicht hin.
=WENN(ODER(B10=1;"100")WENN(B10=2;"200")WENN(B10=3;"300")WENN(B10=4;"400"))
Ich möchte wenn in B10 1 steht 100, bei 2 200, bei...
01.10.2008 08:25:00
Thread-ID: 1013514
9 Beiträge
Wert der letzten befüllten Zelle in Bereich
Bibo

Hallo EXCEL-Freunde,
ich habe bei excelformeln.de bei Beate Schmitz und Aladin Akyurek abgekupfert und ermittle mit der genauso kurzen wie eleganten Formel =VERWEIS(9^99;A1:F1) oder =VERWEIS(9^99;C1:C10) die letzten Zahlen in den angegebenen Bereichen.
Das klappt auch wunderbar, soweit...
12.10.2008 15:32:39
Thread-ID: 1015865
5 Beiträge
Such in Spalte Ergebnis in listbox
Markus

Hallo zusammen,
hab wieder mal ein Problem.
Hab ne Userform mit mehreren Textboxen und einer Listbox
In Textbox1 steht mein Suchtext das makro sucht nun im angegebenen Arbeitsblatt nach dem Text und
schreibt mir alle Daten aus der Gefundenen Zeile in Textboxen.
Hab nun fest...
14.10.2008 11:24:35
Thread-ID: 1016271
3 Beiträge
Wert der letzten Zeile in Bereich SVerweis
Elmar

Hallo,
vielleicht kann mir jemand helfen, wie ich in VBA dieser Formel ==ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[-2],Haupttabelle!R1C1:R65000C7,2,FALSE)"== beibringe, die 65000 durch die letzte belegte Zeile in einer Tabelle zu ersetzen. Die Abfrage mache ich mit ***iRow = Cells(Rows.Count, 3...
28.10.2008 20:45:00
Thread-ID: 1020084
5 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
3
4
3
4
4
3
8
4
2
4
4
3
2
5
3
2
8
13
10
4
5
4
2
3
3