Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.10.2025 18:38:17
Zusammenfassung nach Personalnummer
16.10.2025 17:40:39
Rabattstafel
16.10.2025 17:25:38
bedingte Formatierung
16.10.2025 16:39:53
Ergebnisse nach rechts ausgeben
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1008to1012
1008to1012
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Das kleinste Datum auswählen

Forumthread: Das kleinste Datum auswählen

Das kleinste Datum auswählen
17.09.2008 23:38:00
Julia
Hallo liebes Forum,
Ich wende mich wieder an Euch mit der Frage:
Wie lautet der VBA-Code bei der folgenden Aufgabe:
Ich habe 2 Excel-Sheets: "Aufträge" und "Umsätze"
ich wähle eine Auftragsnummer im Sheet "Aufträge", gehe in das Sheet "Umsätze", suche sie dort und schaue, welches Datum bei dieser Auftragsnummer das kleinste ist und gebe es mit eine Meldung aus.
Die Datei:
https://www.herber.de/bbs/user/55483.xls
Könnte mir bitte jemnd helfen?
Vielen lieben Dank m Voraus!
Julia
Anzeige

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Das kleinste Datum auswählen
18.09.2008 09:44:57
Julia
Hat jemand vielleicht eine Idee?
Wäre echt lieb, wenn mir jemand einen Anstoss geben könnte...
Danke!
AW: Das kleinste Datum auswählen
18.09.2008 10:12:00
Rudi
Hallo,
in 'Aufträge' eine Nummer auswählen und starten:

Sub tt()
Dim ANr As Long, dteMin As Date, vntDaten, i As Long
dteMin = CDate("31.12.2999")
vntDaten = Sheets("Umsätze").Range("A1").CurrentRegion
ANr = Replace(Selection, ".", "") * 1
For i = 2 To UBound(vntDaten)
If vntDaten(i, 1) = ANr Then
dteMin = Application.Min(dteMin, vntDaten(i, 2))
End If
Next
MsgBox IIf(dteMin


Gruß
Rudi

Anzeige
AW: Das kleinste Datum auswählen
18.09.2008 11:39:17
Julia
Super!
Vielen Dank! Es funkioniert einwandfrei!
Danke, danke, danke!
LG,
Julia
AW: Das kleinste Datum auswählen
18.09.2008 15:08:56
Julia
Vielen Dank, Rudi!
Eine kleine Frage hätte ich noch:
wie kann man es so machen, dass man nicht immer die Auftragsnummer anklicken muss, sondern dass eine Schleife läuft, die die Auftragsnummern eine nach der anderen automatisch abprüft und für jede Nummer die Meldung rausgibt?
Das, was Rudi vorgeschlagen hat, ist super, aber hat einen kleinen Nachteil, dass man immer die Auftragsnummer-Zelle wählen soll und die Prüfung nur für diese ausgewählte Nummer stattfindet.
Hätte jemand vielleicht eine Idee?
Vielen lieben Dank!
Julia
Anzeige
AW: Das kleinste Datum auswählen
18.09.2008 15:42:17
Rudi
Hallo,
sicher geht das auch.

Sub tt()
Dim ANr As Long, dteMin As Date, vntDaten, i, j As Long
Dim vntAuftrag
vntDaten = Sheets("Umsätze").Range("A1").CurrentRegion
With Sheets("Aufträge")
vntAuftrag = .Range(.Cells(2, 1), .Cells(Rows.Count, 1).End(xlUp))
End With
For Each i In vntAuftrag
ANr = Replace(i, ".", "") * 1
dteMin = CDate("31.12.2999")
For j = 2 To UBound(vntDaten)
If vntDaten(j, 1) = ANr Then
dteMin = Application.Min(dteMin, vntDaten(j, 2))
End If
Next j
MsgBox ANr & vbLf & IIf(dteMin


Gruß
Rudi

Anzeige
AW: Das kleinste Datum auswählen
18.09.2008 22:22:30
Julia
Rudi, Du bist ein Schatz!
Vielen Dank!
Liebe Grüße,
Julia
AW: Das kleinste Datum auswählen
22.09.2008 14:18:00
Julia
Hallo Rudi,
Eine kleine Frage hätte ich noch an Sie:
https://www.herber.de/bbs/user/55570.xls
Anbei ist meine Datei mit dem Code, mit dem ausgehend vom sheet "Aufträge" (Auftragsnummer) im sheet "Umsätze" nach dem kleinsten Datum von dieser Auftragsnummer gesucht wird.
Mein Problem: wie kann ich jetzt dieses kleinste Datum mit dem Datum (dieselbe Auftragsnummer) im sheet "Aufträge" vergleichen und eine Meldung rausgeben, ob das Datum gleich ist?
Also, ein Bespiel: Bei der Auftragsnummer 1.057.384 ist im sheet "Umsätze" das kleinste Datum der 15.09.2008. Dieses Datum vergleiche ich jetzt im sheet "Aufträge" mit dem zu dieser Auftragsnummer dazugehörigen Datum. Ist ebenfalls der 15.09.2008, also ist OK. Bei der Nummer 1.057.573
ist dies nicht der Fall.
Hätten Sie vielleicht eine Idee?
Vielen Dank!
LG,
Julia
P.S.: Ich bin Anfängerin, was VBA angeht, aber ich bin auch fleißig dabei, das zu lernen und bin wirklich am Anfang für jede Hilfe sehr dankbar!
Sicherlich werde ich auch später meine Hilfe zur Verfügung stellen, wenn ich genug Erfahrungen und Kenntnisse habe.
Vielen Dank!
Anzeige
;

Forumthreads zu verwandten Themen

@Hans W. Herber: 1 Million Beiträge - Glückwunsch
mpb

Hallo Hans,
wenn ich die URLs richtig interpretiere, haben wir im Forum soeben die Zahl von 1 Million Beiträgen überschritten.
Herzlichen Glückwunsch zu dem Erfolg Deines "Babys"!
Gruß
Martin
07.08.2008 16:23:47
Thread-ID: 1000004
3 Beiträge
Anzeige
Diagramm löschen
Bernd

Hallo Gemeinde,
ich wollte in einem Blatt ein Diagramm mitsamt den umgebenden Zeilen löschen.
Nun erscheint das Diagramm als schmaler, nicht anklickbarer Strich und es macht mir lauter Probleme - wie die Fehlermeldung "die Formel enthält einen ungültigen Bezug zu einer externen Tabell...
08.08.2008 15:06:00
Thread-ID: 1000313
6 Beiträge
Sudoku Kontexmenü-Rechts [evtl. Hajo]
Matthias

Hallo
(Level bitte nicht ganz so ernst nehmen)
Folgendes:
In Diese Arbeitsmappe
Option Explicit 'nach einer Idee von Hajo Ziplies 'https://www.herber.de/forum/ _ archiv/972to976/t972675.htm Private Sub Workbook_BeforeClose(Cancel As Boolean) KontextmenueZuruecksetzen End Sub P...
08.08.2008 21:58:35
Thread-ID: 1000418
10 Beiträge
Makro beenden bei Option "Schliessen"
Jürgen

Hallo Excel-Profis
ich habe folgenden Code in ein Makro eingebaut:
'Drucken mit Vorschau
Application.ActivePrinter = "\\dataserv\HP LaserJet 5L AV auf Ne05:"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Preview:=True, Collate:= _
True
Hier wird der Standard-Drucker an...
11.08.2008 12:39:00
Thread-ID: 1000811
9 Beiträge
Befehlsschaltfläche zum Versenden einer e-Mail
Roland

Hallo. Ich habe eine für mich sehr harte "Nuss" zu knacken. Ich habe über Excel ein Rechnungsprogramm erstellt. jetzt möchte ich diese Rechnung immer per e-mail versenden. Ich brauche eine Befehlsschaltföläche, die einen bestimmten Bereich als e_mail versendet. Also.... Die Schaltfläche sollte...
11.08.2008 13:17:00
Thread-ID: 1000827
2 Beiträge
Hilfe Kompatibilitätsproblem
christian

Hallo liebe Excel Gemeinde,
ich habe leider immer noch das Kompatibilitätsproblem!
Zum Verständnis nochmal die Anforderungen an den Code:
Importieren aller in einem Ordner befindlichen Textdateien (Messwerte) in neue Tabellenblätter
Das funktioniert auch alles super, da hat Rud...
11.08.2008 15:48:30
Thread-ID: 1000895
13 Beiträge
Anzeige
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
Makro läuft nicht
alifa

Hallo VBA Gemeinde,
obwohl nur zehn Ziffern, kommt die Meldung: Überlauf. Habe schon alles versucht, Currency, Double. Long hört bei mir bei 2147483467 auf. Decimal nimmt er irgendwie nicht an. Kann jemand helfen?
Sub Alifa() Dim a(0 To 9) As Byte, i As Byte, t As Single For i = 0 To...
11.08.2008 17:39:00
Thread-ID: 1000935
7 Beiträge
Anzeige
Kombinationen mit Zurücklegen ohne Reihenfolge
Christian

Hallo zusammen,
ich suche eine VBA Lösung für folgende Aufgabe:
Gezogen werden "k" Kugeln aus einer Los-Trommel. Die Trommel enthält "n" Kugeln. Die gezogenen Kugeln werden anschließend zurückgelegt. Gesucht sind die möglichen Kombinationen der Ziehungen. Dabei kommt es nicht auf die Re...
11.08.2008 22:53:00
Thread-ID: 1001022
10 Beiträge
Wie müsste die Schleife aussehen?
Captain

Hi,
habe folgenden Code:
Private Sub lst_Gruppe_Detail_AfterUpdate() With Me .lst_Monate.AddItem "Januar" .lst_Monate.AddItem "Februar" .lst_Monate.AddItem "März" .lst_Monate.AddItem "April" .lst_Monate.AddItem "Mai" .lst_Monate.AddItem "Juni" .lst_Monate.AddItem "Juli" .lst_Monate.Ad...
12.08.2008 09:59:00
Thread-ID: 1001083
11 Beiträge
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
Erweiterung der Schleife für mehrere Spalten
Fred


Hallo zusammen
Ich habe eine Schleife gefunden, die für meine Zwecke fast perfekt ist. Leider führt sie Ihre Funktion nur in einer Spalte aus. Ich würde diese Funktion gerne auf andere Spalten erweiter.
Also ausgeführt wird die Such und auswertfunktion in Spalte D. Ich bräuchte die...
12.08.2008 13:57:31
Thread-ID: 1001195
3 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige