Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 21:51:33
Idee für Grafik
26.04.2024 21:29:07
PQ zufällige Reihenfolge
26.04.2024 17:18:47
Große Datenmenge in komplexes Diagramm verpacken
26.04.2024 16:22:47
Aktualisierung Verknüpfung bei geschlossener Quelldatei
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1780to1784
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1780to1784
1780to1784
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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
Anzeige
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
Anzeige
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

Anzeige
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
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
Anzeige
Chris !!! Super DANKE -)
08.09.2020 17:28:50
sigrid

Links zu Excel-Dialogen

Frame Label

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige