Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 21:51:33
Idee für Grafik
26.04.2024 21:29:07
PQ zufällige Reihenfolge
26.04.2024 17:18:47
Große Datenmenge in komplexes Diagramm verpacken
26.04.2024 16:22:47
Aktualisierung Verknüpfung bei geschlossener Quelldatei
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1860to1864
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
1860to1864
1860to1864
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Formel für kleiner als vorhandener Wert

Formel für kleiner als vorhandener Wert
07.12.2021 11:23:47
Frank
Hallo, ich stehe vor einem Problem mit meiner Formel.
In dieser überprüfe ich ob das Datum aus der TextBox1 in der Tabelle bereits vorhanden ist.
Nun möchte ich aber zusätzlich, dass der Wert (Datum) auch nicht kleiner sein darf als der letzte Eintrag.

Dim rZelle As Range
Set rZelle = Sheets("TabStromEG").Columns(1).Find(What:=TextBox1.Value, LookAt:=xlWhole, LookIn:=xlValues)
If Not rZelle Is Nothing Then
TextBox1.Value = "Datensatz bereits vorhanden"
TextBox1.ForeColor = vbRed
Gibt es hierfür eine einfache Lösung?
Viele Grüße, Frank.

12
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Formel für kleiner als vorhandener Wert
07.12.2021 11:55:31
Pierre
Hallo Frank,
kannst du bitte eine Beispielmappe hochladen?
Ein paar Datensätze, die Textbox, damit man sieht, wo und wie die Einträge reinkommen.
Gruß Pierre
AW: Formel für kleiner als vorhandener Wert
07.12.2021 11:59:44
Yal
Hallo Frank,

Dim rZelle As Range
Dim MinVal As Double
MinVal = WorksheetFunction.Min(Sheets("TabStromEG").Columns(1))
If CDate(MinVal)
VG
Yal
Äh, zu kurz gedacht: zusätzlich zum Find! owT
07.12.2021 12:01:00
Yal
AW: Äh, zu kurz gedacht: zusätzlich zum Find! owT
07.12.2021 12:52:20
Frank
Vielen Dank,
aber leider funktioniert es noch nicht.
Die Datumseinträge stehen in der Spalte A ab Zeile 2 in der Tabelle.
Wenn nun z.B. noch gar kein Datum ab A2 steht erkennt der Code auch schon einen Fehler...
Anzeige
AW: Äh, zu kurz gedacht: zusätzlich zum Find! owT
07.12.2021 13:02:07
Yal
Hallo Frank,

Sub Vergleichen()
Dim Z As Range
Dim MinVal As Double
With Sheets("TabStromEG")
MinVal = WorksheetFunction.Min(.Columns(1).SpecialCells(xlCellTypeConstants, 23))
Set Z = .Columns(1).Find(What:=TextBox1.Value, LookAt:=xlWhole, LookIn:=xlValues)
If CDate(MinVal)
VG
Yal
AW: Äh, zu kurz gedacht: zusätzlich zum Find! owT
07.12.2021 13:55:55
Frank
leider funktioniert es so noch nicht richtig, anbei eine Beispielmappe (txt in xlsm umbenennnen)
https://www.herber.de/bbs/user/149641.txt
AW: Äh, zu kurz gedacht: zusätzlich zum Find! owT
07.12.2021 14:47:40
Frank
Wäre es möglich das es an folgender Zeile scheitert?

MinVal = WorksheetFunction.Min(.Columns(1).SpecialCells(xlCellTypeConstants, 23))

Anzeige
AW: Äh, zu kurz gedacht: zusätzlich zum Find! owT
07.12.2021 17:59:00
Yal
Hallo Frank,
doppelte Schwierigkeit:
_ bei Min muss man sicherstellen, dass die Nullen nicht dabei sind, und dass mindestens ein gültige Datum dabei ist (!)
_ entweder vergleciht man als Datum mit DateDiff oder als Zahl, dann muss man konvertieren

Private Sub CommandButton1_Click()
Dim Z As Range
Dim MinVal As Date
With Sheets("TabStromEG")
MinVal = kleinsteDatum(.Columns(1))
Set Z = .Columns(1).Find(What:=TextBox1.Value, LookAt:=xlWhole, LookIn:=xlValues)
If DateDiff("d", MinVal, CDate(TextBox1.Value))
Eine Alternative zu DateDiff wäre

If CLng(CDate(TextBox1.Value))
Ergebnis ist gleich.
VG
Yal
Anzeige
AW: Äh, zu kurz gedacht: zusätzlich zum Find! owT
07.12.2021 20:24:55
Frank
Code funktioniert super.
Allerdings habe ich gerade festgestellt das das nicht der kleinste Wert der gesamten Spalte gesucht werden muss sondern nur der letzte Wert in der Spalte.
Dieser letzte Eintrag darf für den neuen Datumseintrag nicht unterschritten werden.
Da müsste doch eigentlich auch der Code verkleinert werden können, oder?
AW: Äh, zu kurz gedacht: zusätzlich zum Find! owT
07.12.2021 20:27:05
Frank
...also neues Datum darf nicht schon vorhanden sein und darf nicht kleiner sein als der letzter Eintrag der Spalte A
AW: Äh, zu kurz gedacht: zusätzlich zum Find! owT
08.12.2021 08:43:11
Yal
Hallo Frank,
dann ist es einfacher. KleinsteDatum wird nicht mehr gebraucht.

Private Sub CommandButton1_Click()
Dim Z As Range
Dim LetzteVal As Date
With Sheets("TabStromEG")
LetzteVal = CDate(.Range("A99999").End(xlUp).Value)
Set Z = .Columns(1).Find(What:=TextBox1.Value, LookAt:=xlWhole, LookIn:=xlValues)
If DateDiff("d", LetzteVal, CDate(TextBox1.Value))
VG
Yal
Anzeige
Funktioniert, Herzlichen Dank!
08.12.2021 19:49:43
Frank

310 Forumthreads zu ähnlichen Themen

Formel "Text" ROTE Zahl bei Minuswert?
dieter(drummer)

Hi Formelspezialisten,
in Zelle B2 steht dise Formel (funktionert auc h):
=TEXT(I4-D4;"00.0")&" ("&TEXT(I4/D4-1;"0%")&")".
Mein Ziel, dass eine Minuszahl in ROT erscheint. Hab's mit bedingte Formatierung versucht und bekomme es nicht hin.
Gibt es eine Möglichkeit, a...
12.08.2008 10:59:29
Thread-ID: 1001135
7 Beiträge
Anzeige
Letzter Wert einer Spalte (Matrixformel)
{mskro}

Hallo Excelaner,
ich benötige mal wieder eine Hilfestellung.
Es soll der Wert in einer Spalte angezeigt werde, der in der untersten Zeile steht.
Mittels der Recherche habe ich nun folgende MatrixFormel erstellt:
=INDEX(Z1:Z5000;MAX(WENN(Z1:Z5000"";ZEILE(1:5000)));1)
Nur wird...
28.08.2008 09:59:21
Thread-ID: 1005303
9 Beiträge
Array-Formel in VBA-Code umwandeln?
Robert

Hallo,
ich bräuchte bitte eure Hilfe.
Hab folgende Formel...
Selection.FormulaArray = _
=IF(ROW(R[-107]C[-3])>COUNTA('1'!R5C[4]:R200C[4]),"""",INDEX('1'!R5C4:R200C4,SMALL(IF('1'!R5C[4]:R200C[4]<>"""",ROW(R1:R196),""""),ROW(R[-107]C[-3]))))"
Mein Problem ist, dass ic...
26.10.2008 10:56:28
Thread-ID: 1019326
13 Beiträge
Anzeige
Formel in Makro umwandeln?
Josef_T

Guten Abend zusammen.
Habe mal wieder ein Problem, dass ich alleine nicht gelöst bekomme.
Es geht darum, einen Ausdruck zu machen wobei nur Zeilen gedruckt werden sollen, die in C einen Wert haben, der grösser Null ist.
Habe mal ein Muster hochgeladen, weil meine Fragen und Erklärun...
29.11.2008 19:08:00
Thread-ID: 1028896
6 Beiträge
Formel einfügen wenn in A:A Werte stehen
Micha

Hallo zusammen,
ich bastle mal wieder an meinen Münzdateien und komme nicht so richtig weiter.
Mein Problem:
In Spalte A stehen Werte (z.B. 5 Pf), diese möchte ich nun trennen [in B2 soll per VBA die Funktion =Links(A2;1) / FormulaR1C1 = "=LEFT(RC[-53],1) ].
Diese Formel sollte...
14.01.2009 21:28:00
Thread-ID: 1039822
13 Beiträge
Formel wird nicht ausgeführt
Andy

Hallo Leute,
Guten Abend. Ich habe ein ganz großes Problem.
Ich habe eine Exceldatei mit vielen Datensätzen (ca. 8000). In Spalte C habe ich eine Formel, die auf Spalte A und B Bezug nimmt und aus einer Matrix den entsprechenden Wert sucht. Das ganze hat bis jetzt super funktioniert. W...
19.02.2009 16:47:00
Thread-ID: 1052226
8 Beiträge
Datum in Textbox in eine Zahl umwandeln
TCO99

Hallo zusammen,
ich habe folgendes Problem.
In einer Spalte einer Tabelle befinden sich Datumsangaben. Ich filtere diese Liste nach einem Datum. Dieses Datum wird vor der Filterung in eine Textbox eingegeben. Als richtiges Datum fuktioniert die Filterung aber nicht mehr. Da habe ich ei...
26.02.2009 23:31:12
Thread-ID: 1054555
15 Beiträge
Kann Formel nicht in Makro umwandeln. mit bsp xls
Julia


Gestern habe ich hier tolle Hilfe zu einer Berechnung bekommen. Dank der Tipps hab ich die Formeln bekommen
Jetzt hat sich die Ausgangstabelle geändert. Ich hab zwar die Formeln bekomme das aber nicht als Makro hin.
Habe eine Bsp.xls hochgeladen:
https://www.herber.de/bbs/user/...
13.03.2009 11:11:25
Thread-ID: 1059789
4 Beiträge
Anzeige

Links zu Excel-Dialogen

CommandButton TextBox

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
6
3
8
12
2
5
12
7
14
3
3
2
15
5
4
2
2
2
10
4
6
1
4
1
17