Thema Datum  Von Nutzer Rating
Antwort
28.04.2011 19:55:13 MIRELLY
NotSolved
Blau TAGES, WOCHEN UND MONATS MAXIMUM UND MINIMUM HERAUSFILTERN
30.04.2011 15:15:28 Holger
NotSolved
01.05.2011 12:58:09 Gast50615
NotSolved
01.05.2011 16:22:57 Holger
NotSolved

Ansicht des Beitrags:
Von:
Holger		 Datum:
30.04.2011 15:15:28		 Views:
931		 Rating:
     
Antwort:
  Ja
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

Ihre Antwort
  • 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: Name: Email:



  • 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
NotSolved
Blau TAGES, WOCHEN UND MONATS MAXIMUM UND MINIMUM HERAUSFILTERN
30.04.2011 15:15:28 Holger
NotSolved
01.05.2011 12:58:09 Gast50615
NotSolved
01.05.2011 16:22:57 Holger
NotSolved