Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
28.04.2011 19:55:13 |
MIRELLY |
|
|
TAGES, WOCHEN UND MONATS MAXIMUM UND MINIMUM HERAUSFILTERN |
30.04.2011 15:15:28 |
Holger |
|
|
|
01.05.2011 12:58:09 |
Gast50615 |
|
|
|
01.05.2011 16:22:57 |
Holger |
|
|
Von:
Holger |
Datum:
30.04.2011 15:15:28 |
Views:
943 |
Rating:
|
Antwort:
|
Thema:
TAGES, WOCHEN UND MONATS MAXIMUM UND MINIMUM HERAUSFILTERN |
Hallo Mirelly,
Sub Kalender_Min_Max()
'Markiere vor Anwendung die Zellen mit den Datumsangaben
Set Db = Range(ActiveWindow.RangeSelection.Address)
Tag_min = 32: Woche_min = 55: Monat_min = 13
Tag_max = 0: Woche_max = 0: Monat_max = 0
For Each z In Db
If Day(z) < Tag_min Then Tag_min = Day(z)
If Day(z) > Tag_max Then Tag_max = Day(z)
If Val(Format(z, "ww")) < Woche_min Then Woche_min = Val(Format(z, "ww"))
If Val(Format(z, "ww")) > Woche_max Then Woche_max = Val(Format(z, "ww"))
If Month(z) < Monat_min Then Monat_min = Month(z)
If Month(z) > Monat_max Then Monat_max = Month(z)
Next
MsgBox "Tage von" + Str(Tag_min) + " bis" + Str(Tag_max) + vbCrLf + _
"Wochen von" + Str(Woche_min) + " bis" + Str(Woche_max) + vbCrLf + _
"Monate von" + Str(Monat_min) + " bis" + Str(Monat_max) + vbCrLf
End Sub
Wozu braucht man sowas?
Gruß
Holger
|
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
28.04.2011 19:55:13 |
MIRELLY |
|
|
TAGES, WOCHEN UND MONATS MAXIMUM UND MINIMUM HERAUSFILTERN |
30.04.2011 15:15:28 |
Holger |
|
|
|
01.05.2011 12:58:09 |
Gast50615 |
|
|
|
01.05.2011 16:22:57 |
Holger |
|
|