Microsoft Excel

Herbers Excel/VBA-Archiv

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

Kalender

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"