Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1560to1564
1560to1564
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Array auf positive/negative Zahlen prüfen

Forumthread: Array auf positive/negative Zahlen prüfen

Array auf positive/negative Zahlen prüfen
06.06.2017 14:23:58
Peter
Hallo,
ich habe versucht ein Makro zu erstellen, dessen Teilaufgabe es wäre aus einem variablem Array herauszulesen, ob alle Werte darin positiv oder negativ sind. Leider scheitert es bei meinen VBA-Kenntnissen, weshalb mir ja vielleicht hier jemand weiterhelfen kann.
Konkret würde ich gerne folgendes umsetzen:
If Array(0 to N) < 0 Then
...
End If
Ist das überhaupt möglich? Wenn ja dann wie?
Danke!
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Array auf positive/negative Zahlen prüfen
06.06.2017 14:37:29
Nepumuk
Hallo,
das kannst du einfacher haben:
MsgBox Application.Min(Array)

Gruß
Nepumuk
AW: Array auf positive/negative Zahlen prüfen
06.06.2017 14:38:48
Sepp
Hallo Peter,
als Ansatz.
Sub test2()
Dim varArray() As Variant

varArray = Array(5, 9, 7, -2, 3, 2, 5, 0, 1)

If allPositive(varArray) Then
  MsgBox "OK"
Else
  MsgBox "Nicht OK"
End If
End Sub

Private Function allPositive(ByRef varrArray() As Variant) As Boolean
Dim lngI As Long

For lngI = LBound(varrArray) To UBound(varrArray)
  If varrArray(lngI) < 0 Then Exit Function
Next

allPositive = True
End Function

Gruß Sepp

Anzeige
AW: Array auf positive/negative Zahlen prüfen
07.06.2017 11:21:17
Peter
Hallo Sepp,
danke für deine Antwort! Mit der selbstdefinierten Funktion und dem Array als dynamisches Array funktioniert es genau so wie es soll! Danke!
LG Peter
;

Forumthreads zu verwandten Themen

Formel für nur Zahlen addieren?
Tom

Hi,
ich schreib mir gerade ein kleines Kostenformular. Dazu schreib ich in Zeile 5 das Datum und in Zeile 6 den Betrag.
5: 6.7.2008
6: 300€
Gibt es jetzt eine Möglichkeit mit VBA oder lieber ohne, nur die Eurobeträge zu addieren ohne die Datums Zahlen? Also das € Zeichen kann re...
11.08.2008 16:29:04
Thread-ID: 1000906
5 Beiträge
Anzeige
Leere zellen nicht leer und Zahlen keine Zahlen
P.Mackes

Per google bin ich zwar auf einige themen gestoßen, die sich mit diesen oder ähnlichen Probleme beschäftigen, aber so richtig gepasst hat für mich nichts oder die lösungen waren vba basiert und das kann ja nicht der stein der Weisen sein.
https://www.herber.de/bbs/user/56887.xls
es tre...
18.11.2008 11:08:00
Thread-ID: 1025551
10 Beiträge
Summer positiver Werte
Urs

Hallo zusammen
Möchte aus einer Liste mit positiven und negativen Werten, nur die Addieren, die positive sind.
-5;-2;9;12 = 21 Summe der positiven Werte
Kann mir vorstellen, dies über eine Hilfsspalte zu machen, wäre auch kein Problem. Mit interessiert aber, ob Ihr eine Funktion ken...
26.01.2009 15:26:00
Thread-ID: 1043915
3 Beiträge
Spalte nur die negativen Werte zusammenzählen
Jessi

Hallo zusammen,
ich möchte ich einer Spalte ab Zeile 6 alle negativen Werte zusammenzählen und alle positiven Werte, gibt es hierfür eine gesonderte Formel? Über Rückmeldung wäre ich dankbar.
LG
Jessi
07.03.2009 10:33:26
Thread-ID: 1057539
4 Beiträge
Anzeige
Summewenn über mehrere Werte
Jim

Hallo,
Ich bin neu hier :)
Sonntag Abend arbeiten zu müssen ist doch ziemlich anstregend, und ich komme einfach nicht weiter.
Es gibt 3 Spalten, eine mit Artikelnummern (A), eine mit Farben (B) und eine mit Mengen (C).
mit Hilfe von Summewenn bekomme ich in einer vierten Spalte...
15.11.2009 19:26:36
Thread-ID: 1117416
8 Beiträge
Summe nur der unterschiedlichen Werte
Nico

Hallo Ihr und schon mal vorab - es ist bald Wochenende...
ich bräuchte eine Summenformel, die mir nur die unterschiedlichen Zahlen summiert. Hintergrund ist eine Teilnehmerliste, bei der natürlich auch einmal zwei oder drei Personen eines Unternehmens anwesend sind. Die Summe der Umsätze d...
05.02.2010 11:43:26
Thread-ID: 1136098
3 Beiträge
Formel: Negative Werte aus einer Liste summieren
Gordon

Moin,
mal eine Frage: Ich habe eine Liste mit Zuschlägen...diese können positiv und negativ sein....wie kann ich jetzt aus der diese Liste mir nur die Gesamtsumme der negativen Zahlen anzeigen lassen? Ich hatte es mit folgender Formal versucht, aber da bekam ich beim nachrechnen einen fal...
07.05.2010 13:50:15
Thread-ID: 1156075
4 Beiträge
Anzeige
Nur in 2 Zellen Nullwerte anzeigen
Heinz

Hallo Leute
Ich habe in einer Tabelle die Nullwerte ausgeblendet.
Nun möchte ich aber in J5 und in J36 die Nullwerte "0,00" angezeigt haben.
Gibt es dazu bitte eine Möglichkeit ?
Gruß Heinz
06.07.2010 18:02:45
Thread-ID: 1165742
3 Beiträge
Anzeige
Anzahl positiver Werte zählen
DirkR

Hallo zusammen,
ich habe ein kleines Problem in Excel, evtl. hat jemand von euch dafür eine Lösung. In meinem Excelsheet habe ich mehrere Datenreihen die alle ungefähr so aussehen:
108.01
105.02
106.04
103.45
98.70
100
D.h. die Datenreihen starten alle unten bei...
05.08.2011 11:20:39
Thread-ID: 1225022
3 Beiträge
positive und negative Zeiten
mike49

Hallo zusammen,
in einer Zelle habe ich diese Formel stehen: =WENN(J44<J46;J46-J44;J44-J46). Die Differenz J44-J46 gibt die negative Zeit(Fehlzeit) und die Differenz J46-J44 die positive Zeit(Überzeit) an. Richtig gerechnet und angezeigt wird es. Aber wie kann man erreichen, dass beim Er...
16.03.2012 17:50:29
Thread-ID: 1255331
4 Beiträge
Zeit bei positiver und negativer Flanke speichern
Michel

Hi Leute,
habe ein Problem.
Ich habe eine Zelle, die einen Boolwert anzeigt. Nun möchte ich die aktuelle Uhrzeit in einer anderen Zelle speichern, wenn die Zelle von false auf True wechselt und dann wieder, wenn sie von True auf false springt.
Ich habe bisher die positive Flanke abg...
23.04.2012 11:09:23
Thread-ID: 1260593
7 Beiträge
positive und negative separat zusammenfassen?
buliwyf

Hallo Nochmal,
von Peter Feustel habe ich ja folgendes was auch super fuktioniert ! Danke nochmal Peter.
Public Sub Zusammenfassen() Dim lZeile As Long With ThisWorkbook.Worksheets("Tabelle1") ' den Tabellenblattnamen ggf. anpassen For lZeile = .Cells(Rows.Count, 1).End(xlUp).Row To...
29.05.2012 10:28:23
Thread-ID: 1265212
6 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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