Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 16:39:00
ältere VBA Codes automatisch neu strukturieren
20.04.2024 16:36:42
Arbeitsblatt Script auslagern in Modul
20.04.2024 16:28:25
zwei Makro in einem zusammenführen?
20.04.2024 15:30:14
Warum Verweis zeigt Falsch an
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1152to1156
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
1152to1156
1152to1156
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Makro: Datum anzeigen das Heute oder "kleiner" ist

Makro: Datum anzeigen das Heute oder "kleiner" ist
onkelbobby
Hallo,
ich habe in einer Tabelle in Spalte J Geburtsdaten.
Mit einem Button sortiere ich die Liste nach Geburtsdatum.
Ich möchte, dass nach der Sortierung das Feld das am nächsten zum heutigen Datum steht markiert wird.
(Also wenn Heute = Geburtstag, dann dieses Feld markieren - wenn keine Übereinstimmung dann das Feld das Datum, das am kürzesten vorüber ist, also eine Zeile vor dem nächstne Geburtstag).
Ist sicher kein großes Ding, ich bekomme das alleine aber nicht hin.
Danke,
Robert
AW: Makro: Datum anzeigen das Heute oder "kleiner" ist
26.04.2010 15:23:30
fcs
Hallo Robert,
in welcher Form hast du denn die Geburtstage in Spalte J eingetragen?
Gruß
Franz
AW: Makro: Datum anzeigen das Heute oder "kleiner" ist
26.04.2010 15:30:31
onkelbobby
Hallo Franz,
TT.MM.JJJJ
AW: Makro: Datum anzeigen das Heute oder "kleiner" ist
26.04.2010 15:54:01
onkelbobby
Ich hab das mit dem heutigen Datum schon selbst hingebracht:
Dim dHeute As Date
Dim i As Integer
dHeute = Date
For i = 1 To [J65000].End(xlUp).Row
If Left(dHeute, 5) = Left(Cells(i, 10), 5) Then
Cells(i, 10).Select
End If
Next i
Jetzt ist nur noch die Frage, wie ich die Zelle vor dem nächsten Geburtstag markiere, wenn heut kein Geburtstag vorliegt?
Ich probiers selbst noch mal, bin aber dankbar für Tips!
Robert
Anzeige
AW: Makro: Datum anzeigen das Heute oder "kleiner" ist
26.04.2010 16:12:43
Rudi
Hallo, 
Sub tt()
Dim i As Long
For i = 1 To Cells(Rows.Count, 10).End(xlUp).Row
If Cells(i, 10) > Date Then
Cells(i - 1, 10).Select
Exit Sub
End If
Next i
End Sub

Gruß
Rudi
AW: Makro: Datum anzeigen das Heute oder "kleiner" ist
26.04.2010 16:23:47
onkelbobby
Hallo Rudi,
das haut nicht ganz hin!
Die Daten sind ja nicht wirklich größer als das heutige Datum, sondern alle kleiner. Es geht um das Geburtsdatum. Es müssen also nur Monate und Tage verglichen werden.
Leider hab ichs auch noch nicht hingekriegt.
AW: Makro: Datum anzeigen das Heute oder "kleiner" ist
26.04.2010 16:28:29
fcs
Hallo Robert,
wenn du nach dem Geburtsdatum sortierst, dann entspricht das ja nicht der Reihenfolge der Geburtstage im aktuellen Jahr. Wenn 2 Personen am gleichen Tag aber unterschiedlichen jahren geboren wurden gibt es auch Probleme beim Suchen.
Besser/einfacher ist es, wenn du in einer weiteren Spalte per Formel den Geburtstag im laufenden Jahr berechnest und nach dieser Spalte sortierst. Dann kann man auch relativ einfach ein Datum relativ zum aktuellen Datum heraus suchen.
Gruß
Franz
Spalte J		Spalte K
Geburtstag	TT.MMM
01.01.1990	01.Jan
22.04.1998	22.Apr
25.04.1955	25.Apr
25.04.1990	25.Apr
25.04.1991	25.Apr
25.04.2001	25.Apr
30.04.2000	30.Apr
02.05.2000	02.Mai
Zelle	Formula-Local
$K$2	=DATUM(JAHR(HEUTE());MONAT(J2);TAG(J2))
$K$3	=DATUM(JAHR(HEUTE());MONAT(J3);TAG(J3))
usw.

Spalte K ist benutzerdefiniert formatiert als: TT.MMM
angepasstes Makro 
Sub atest()
Dim dHeute As Date
Dim i As Integer
dHeute = Date
For i = 2 To [J65000].End(xlUp).Row
If dHeute = Cells(i, 11) Then
Cells(i, 10).Select
Exit For
ElseIf dHeute

Anzeige
Datumsuche ohne Hilfsspalte
26.04.2010 16:41:05
Erich
Hi Robert,
probier mal 

Option Explicit
Sub tt2()
Dim zz As Long, lngH As Long, lngD As Long, lngT As Long, zMerk As Long
lngH = 1 * Format(Date, "mmdd")
For zz = 1 To Cells(Rows.Count, 10).End(xlUp).Row
lngT = 100 * Month(Cells(zz, 10)) + Day(Cells(zz, 10))
If lngT  lngD Then
lngD = lngT
zMerk = zz
End If
Next zz
If zMerk > 0 Then Cells(zMerk, 10).Select
End Sub
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort
AW: Datumsuche ohne Hilfsspalte
26.04.2010 16:49:23
onkelbobby
Hallo Erich!
Ohne Hilfsspalte wäre mir schon recht (trotzdem danke für die Lösung von anderen Usern).
Dein Makro verstehe ich zwar gar nicht, scheint aber in einer Testdatei zu funktionieren.
In meiner eigentlichen Datei kommt jedoch der Laufzeitfehler 13. Ich vermute das hängt damit zusammen, dass in einigen Zeilen kein Datum eingetragen ist.
Wie kann ich das Makro dazu bringen, diese Zeilen zu ignorieren?
Danke!
Anzeige
AW: Datumsuche ohne Hilfsspalte
26.04.2010 16:55:57
onkelbobby
Seltsam,
habe gerade mal alle Daten die ohne Geburtstag waren mit Daten gefüllt. Trotzdem kommt der Laufzeitfehler 13 "Typen unverträglich" und nach dem Debuggen springt der Cursor in diese Zeile:
lngT = 100 * Month(Cells(zz, 10)) + Day(Cells(zz, 10))
Ich habe den Code hinter den Code für die Sortierung gehänt.
Ausgelöst wird das Modul durch einen Button.
Hier mal der komplette Code:
Sub Geburtstage()
Rows("3:65536").Select
Selection.Sort Key1:=Range("AC3"), Order1:=xlAscending, Key2:= _
Range("AD3"), Order2:=xlAscending, Key3:=Range("A3"), Order3:=xlAscending _
, Header:=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:= _
xlTopToBottom, DataOption1:=xlSortNormal, DataOption2:=xlSortNormal, _
DataOption3:=xlSortNormal
Dim zz As Long, lngH As Long, lngD As Long, lngT As Long, zMerk As Long
lngH = 1 * Format(Date, "mmdd")
For zz = 1 To Cells(Rows.Count, 10).End(xlUp).Row
lngT = 100 * Month(Cells(zz, 10)) + Day(Cells(zz, 10))
If lngT  lngD Then
lngD = lngT
zMerk = zz
End If
Next zz
If zMerk > 0 Then Cells(zMerk, 10).Select
End Sub
Was mache ich falsch?
Anzeige
AW: Datumsuche ohne Hilfsspalte
26.04.2010 17:00:26
onkelbobby
Kommando zurück!
Ich habs.
Da die erste Zeile bei mir leer ist, habe ich die Zeile wie folgt abgeänert:
For zz = 3 To Cells(Rows.Count, 10).End(xlUp).Row
Jetzt klappts.
vielen Dank!
Datumsuche ohne Hilfsspalte robuster
26.04.2010 17:08:40
Erich
Hi Robert,
erst mal zwei Bemerkungen:
Dim-Anweisungen würde ich immer vor allen anderen Anweisungen am Anfange der Prozedur platzieren.
Für meine Prozedur zur Geburtstagssuche müssen die Datums nicht irgendwie sortiert sein.
So läuft sie auch, wenn es leere Zellen oder z. B. Zellen mit Texten in Spalte J gibt: 

Option Explicit
Sub tt2()
Dim zz As Long, lngH As Long, lngD As Long, lngT As Long, zMerk As Long
lngH = 1 * Format(Date, "mmdd")
For zz = 1 To Cells(Rows.Count, 10).End(xlUp).Row
If IsDate(Cells(zz, 10)) Then
lngT = 100 * Month(Cells(zz, 10)) + Day(Cells(zz, 10))
If lngT  lngD Then
lngD = lngT
zMerk = zz
End If
End If
Next zz
If zMerk > 0 Then Cells(zMerk, 10).Select
End Sub
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort
Anzeige

65 Forumthreads zu ähnlichen Themen

Wenn ijn Spalte Datum von Jänner dann Werte zählen
Jänner

Hallo!
Ich habe in der Spalte A ab der Zeile 3 Datumwerte aus den Wochenenden und den Feiertagen stehen.
In der spalte G, H, I stehen nun Werte.
Ich möchte nun alle Werte in Abhängigkeit des Datums zusammenzählen.
Ist in der Spalte A das Jänner Datum vorhanden dann sollen die We...
07.01.2009 08:42:00
Thread-ID: 1037440
4 Beiträge
Anzeige
Zeilen ausblenden wenn Datum in Spalte A kleiner h
Andreas
Hi Celina,folgendes müsste Dir helfen:kopiere das folgende makro in ein modul (mit alt+f11 kommst du in die VBA-Umgebung):Sub datum()
Dim lR%, i%
lR = Cells(Rows.Count, 1).End(xlUp).Row
Application.ScreenUpdating = False
For i = lR To 1 Step -1
dat = Date
If...
17.04.2002 00:02:24
Thread-ID: 113930
2 Beiträge
wenn Datum dann kopie
Sascha

Hallo Forum
schon wieder eine frage in meiner Exceldatei hab ich Tabellen
Wenn in Tabelle1 ein Datum gleich ist mit dem Datum in Tabelle 2
dann soll er die komplette Zelle von Tabelle1 und Tabelle2 kopieren und in Tabelle 3 einfügen.
Gruss Sascha
07.03.2010 22:09:55
Thread-ID: 1144205
12 Beiträge
Anzeige
Wenn kleiner als... dann Text + bedingte Format.
sjdelphin

- Wenn kleiner als, dann...Text und bedingte Formatierung Nach oben
Version: Office 2010
--------------------------------------------------------------------------------
Guten Abend,
da ich mich bisher immer über sehr gute Lösungen hier freuen durfte, habe ich mal wieder ein...
10.07.2012 20:07:14
Thread-ID: 1270510
6 Beiträge
TextBox Datum kleiner als falsch
Frank

Hallo Zusammen!
Wie kann ich eine TextBox - Eingabe begrenzen? Das Datum welches eingegeben werden darf, darf nicht vor dem 01.01.2013 liegen.
Wie muss der Code beim Verlassen der TextBox8 aussehen?
Danke und 'nen schönen Tag!!!
L.G. Frank H.
05.10.2012 08:24:31
Thread-ID: 1280609
6 Beiträge
Wenn Datum kleiner ist als Datum, dann lösche Zeil
Justin

Guten Abend liebes Forum,
in meiner Spalte H sitzen angaben wie z.B 02.2010
mit dem Code:
For i = Cells(Rows.Count, 8).End(xlUp).Row To 9 Step -1 On Error Resume Next If Cells(i, 8).Date will ich erreichen das alles was kleiner als 03.2010 gelöscht wird. Es entsteht jedoch eine...
23.10.2012 18:48:23
Thread-ID: 1283518
6 Beiträge
Datum hochzählen, wenn älter als heute
Wolfgang

Hallo,
mein Problem liegt darin, dass ich in einer Liste das Datum um einen Monat hochzählen soll, wenn das Datum älter als heute ist ( = Zelle B3). Es sollte also erst dann das Datum in der Spalte A erscheinen und um einen Monat hochzählen, wenn das Datum in B3 älter ist.
Wenn dann das...
01.03.2013 21:09:38
Thread-ID: 1301840
17 Beiträge
Wenn ein Datum 2tes mal vorkommt dann verweisen
matin

Hallo Allerseits,
Ich habe eine Datumsspalte A in Tabelle1
Ich habe eine Datumsspalte B in Tabelle2
ich möchte jetzt in Tabelle2 suchen ob das Datum (zB A1) irgendwo in Tabelle2 vorkommt.
Wenn Ja möchte ich "X" ausgegeben haben UND die Zellen der Tabelle2 Zeile 1B bis 1J auf Tab...
13.06.2013 10:33:51
Thread-ID: 1317473
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
2
1
11
7
5
5
5
16
4
6
5
2
6
2
2
12
5
3
4
1
2
7
4
8