über eine UserForm füge ich automatisch neue Blätter in meine Mappe ein und
vergebe als Namen ein Datum z.B. „0103“ für Jan03, „0203“ für Feb03 usw. .
Das neue Blatt wird am Ende eingefügt und bekommt den Namen des bis dahin
Letzten Blattes +1 Monat.
z.B. bisheriges letztes Blatt: „0203“ , dann neues Blatt „0303“ .
In meiner UserForm habe ich TabStrip’s, die den gleichen Namen erhalten
wie die Tabellenblätter. Klickt man einen anderen TabStrip an, wird auch das
gleichnamige Tabellenblatt aktiviert.
In einer weiteren UserForm habe ich ein Kalendersteuerelement plaziert und
die Eingabe (MinDate / Maxdate) auf den aktuellen Monat (ActiveSheet.Name)
beschränkt.
Leider kriege ich immer nachfolgende Meldung:
Laufzeitfehler ‚35775‘:
A value was specified for the MinDate property that is higher than the
Current value of Maxdate.
Vielleicht kann mir ja jemand helfen.
Vielen Dank
MikeS
Sub AktuellenMonatEinstellen()
Dim Tag%, Monat%, Jahr%
With ActiveWorkbook.ActiveSheet
Tag = 1
Monat = Format(Val(Left(ActiveSheet.Name, 2)), "##")
Jahr = Format(Val(Right(ActiveSheet.Name, 2)), "##")
frmNeuerEintrag.Kalender.MinDate = DateSerial(Jahr, Monat, Tag)
frmNeuerEintrag.Kalender.MaxDate = DateSerial(Jahr, Monat + 1, Tag - 1)
frmNeuerEintrag.Kalender.Value = DateSerial(Jahr, Monat, Tag)
End With
End Sub
Code eingefügt mit Syntaxhighlighter 2.1