Kalender

Forumthread: Kalender

Kalender

08.09.2020 12:39:18

sigrid

Hallo zusammen,
ich habe diesen Kalender erhalten und etwas für mich angepasst.
Soweit wird auch in der Zelle A5 das Datum eingesetzt.
Jetzt möchte ich gern, wenn man im Kalender das Datum auswählt,
das dieses ausgewählte Datum z.b. GELB makiert wird.
Würde mich freuen wenn es klappt.
https://www.herber.de/bbs/user/140121.xlsm
mfg sigrid

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Kalender

08.09.2020 13:01:34

ChrisL
AW: Kalender

08.09.2020 14:00:33

volti
Klappt bei mir nicht...

08.09.2020 14:43:42

sigrid
AW: Klappt bei mir nicht...Zusatz...

08.09.2020 14:45:31

sigrid
AW: Klappt bei mir nicht...

08.09.2020 14:56:57

ChrisL
Supi Chris... Danke

08.09.2020 15:38:34

sigrid
Hallo Chris hier der 2. Kalender

08.09.2020 15:57:49

sigrid
AW: Hallo Chris hier der 2. Kalender

08.09.2020 16:40:54

ChrisL
Chris !!! Super DANKE -)

08.09.2020 17:28:50

sigrid

AW: Kalender

08.09.2020 13:01:34

ChrisL

Hi
Im Modul MouseActions(...)

...
Call FrameFuellen                'Hintergrundfarben wiederherstellen
.BackStyle = 1: .BackColor = RGB(255, 255, 0)
Set Label2 = Nothing
End Select
...

cu
Chris

AW: Kalender

08.09.2020 14:00:33

volti

Hallo Sigrid, hallo Chris,
eine gute Idee und sinnvolle (optionale) Ergänzung.
Werde das auch gleich bei mir als individuelle Option mit einbauen. :-)
viele Grüße
Karl-Heinz

Klappt bei mir nicht...

08.09.2020 14:43:42

sigrid

Hallo Chris,
vielleicht habe Falsch eingesetzt.
Könntest Du mir das in mein Muster mal einsetzen,
herzlichen Dank im Voraus.
mfg sigrid

AW: Klappt bei mir nicht...Zusatz...

08.09.2020 14:45:31

sigrid

Hallo Chris,
die Farbe sollte solange drin bleiben bis anderes Datum
gewählt wurde und später nach verlassen, die Farbe löschen.
danke mfg
sigrid

AW: Klappt bei mir nicht...

08.09.2020 14:56:57

ChrisL


Sub MouseActions(Label As MSForms.Label, bArt As Byte, Optional iButton As Integer)
Static Label2 As Object
With Label
If .Tag Like "##.##.20##" Or .Tag Like "KW #*" Then
Select Case bArt
Case 0: Me.TB_Datum1.Value = .Tag 'DoubleClick
Case 1: .BackStyle = 1
.BackColor = &HD0D0D0     'MouseDown =>Hintergrundfarbe setzen
Case 2                            'MouseUp   =>Hintergrundfarbe setzen
If iButton = 1 Then
Me.TB_Datum1.Value = .Tag     'Sofortübernahme
Me.TB_Datum2.Value = ""
Me.TB_Datum1.ControlTipText = .ControlTipText
Me.TB_Datum2.ControlTipText = ""
ElseIf iButton = 2 Then
If Label2 Is Nothing Then
Me.TB_Datum1.Value = .Tag  'Erster Klick
Me.TB_Datum2.Value = .Tag
Me.TB_Datum1.ControlTipText = .ControlTipText
Me.TB_Datum2.ControlTipText = .ControlTipText
Set Label2 = Label: Exit Sub
Else
Me.TB_Datum2.Value = .Tag     'Zweiter Klick
Me.TB_Datum2.ControlTipText = .ControlTipText
End If
End If
Call FrameFuellen                'Hintergrundfarben wiederherstellen
    .BackStyle = 1: .BackColor = RGB(255, 255, 0)
Set Label2 = Nothing
End Select
End If
End With
End Sub

Supi Chris... Danke

08.09.2020 15:38:34

sigrid

Hallo Chris,
danke klappt einwandfrei !
Ich habe noch einen Kalender in einer anderen Datei,
sende gleich mal zu, ob es da auch funktioniert.
DANKE sigrid

Hallo Chris hier der 2. Kalender

08.09.2020 15:57:49

sigrid

Hallo Chris,
würde mich freuen, wenn es hier auch klappen würde.
https://www.herber.de/bbs/user/140129.xlsm
mfg
sigrid

AW: Hallo Chris hier der 2. Kalender

08.09.2020 16:40:54

ChrisL

Hi
Modul cls_Tag:

Public WithEvents Label As MSForms.Label
Private Sub Label_Click()
Dim Ob_St As Object
If Month(Label.Tag) = Month(DaDatumKa) Then
ActiveSheet.Cells(ActiveCell.Row, 10) = DateValue(Label.Tag)
For Each Ob_St In frm_Kalender.Controls
If TypeName(Ob_St) = "Label" Then
If Left(Ob_St.Name, 5) = "Label" Then Ob_St.BackColor = -2147483633
End If
Next Ob_St
Label.BackColor = RGB(255, 255, 0)
Else
Erstellen Label.Tag                         ' ausgewählten Monat anzeigen
ActiveCell.NumberFormat = "dd.mm.yy"
End If
End Sub

cu
Chris

Chris !!! Super DANKE -)

08.09.2020 17:28:50

sigrid

Beliebteste Forumthreads (12 Monate)

Forumthread: Kalender

9 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread