Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema Frame
Screenshot zu Frame	Frame-Seite mit Beispielarbeitsmappe aufrufen

Informationen und Beispiele zum Thema Label
Screenshot zu Label	Label-Seite mit Beispielarbeitsmappe aufrufen

Kalender

• Kalender von sigrid vom 08.09.2020 12:39:18
• AW: Kalender - von ChrisL am 08.09.2020 13:01:34
  • AW: Kalender - von volti am 08.09.2020 14:00:33
  • Klappt bei mir nicht... - von sigrid am 08.09.2020 14:43:42
    • AW: Klappt bei mir nicht...Zusatz... - von sigrid am 08.09.2020 14:45:31
    • AW: Klappt bei mir nicht... - von ChrisL am 08.09.2020 14:56:57
      • Supi Chris... Danke - von sigrid am 08.09.2020 15:38:34
        • Hallo Chris hier der 2. Kalender - von sigrid am 08.09.2020 15:57:49
          • AW: Hallo Chris hier der 2. Kalender - von ChrisL am 08.09.2020 16:40:54
            • Chris !!! Super DANKE -) - von sigrid am 08.09.2020 17:28:50

Betrifft: Kalender von: sigrid
Geschrieben am: 08.09.2020 12:39:18

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

  

Betrifft: AW: Kalender
von: ChrisL
Geschrieben am: 08.09.2020 13:01:34

Hi

Im Modul MouseActions(...)

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

cu
Chris

  

Betrifft: AW: Kalender
von: volti
Geschrieben am: 08.09.2020 14:00:33

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

  

Betrifft: Klappt bei mir nicht...
von: sigrid
Geschrieben am: 08.09.2020 14:43:42

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

mfg sigrid

  

Betrifft: AW: Klappt bei mir nicht...Zusatz...
von: sigrid
Geschrieben am: 08.09.2020 14:45:31

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

  

Betrifft: AW: Klappt bei mir nicht...
von: ChrisL
Geschrieben am: 08.09.2020 14:56:57

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

  

Betrifft: Supi Chris... Danke
von: sigrid
Geschrieben am: 08.09.2020 15:38:34

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

  

Betrifft: Hallo Chris hier der 2. Kalender
von: sigrid
Geschrieben am: 08.09.2020 15:57:49

Hallo Chris,
würde mich freuen, wenn es hier auch klappen würde.

https://www.herber.de/bbs/user/140129.xlsm

mfg
sigrid

  

Betrifft: AW: Hallo Chris hier der 2. Kalender
von: ChrisL
Geschrieben am: 08.09.2020 16:40:54

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

  

Betrifft: Chris !!! Super DANKE -)
von: sigrid
Geschrieben am: 08.09.2020 17:28:50

Beiträge aus dem Excel-Forum zum Thema "Kalender"