Kalendersteuerelement
#1
Hallo,

hat sich bei diesem Element etwas über die lange Zeit geändert?

Ganz einfacher Code:

Option Explicit

Private Sub Calendar1_Click()
    datum = Calendar1
End Sub

Private Sub UserForm_Activate()
    Calendar1 = Date
End Sub

Private Sub CommandButton1_Click()
    For lngAnzahl = 2 To Worksheets.Count
        If Sheets(lngAnzahl).Name = datum Then
            Range("B1") = TextBox1
        Else
            MsgBox "Fehler!"
        End If
    Next
    Unload Me
End Sub

Gruß
Marcus

Wissen ist Macht - es ist aber nicht schlimm nicht alles zu wissen.
Man muss nicht alles wissen - man muss nur wissen wo es steht, oder wo man Hilfe bekommt.
Top
#2
Das gibt es schon 10 Jahre nicht mehr.
Zum übersetzen von Excel Formeln:

http://dolf.trieschnigg.nl/excel/index.p...gids=en+de
Top
#3
Hallo,

Dann haben wir schon mal eingegrenzt wie lange ich nicht mehr mit Excel arbeite. Brauche ich mich nicht zu wundern, dass alles auf einen Fehler raus läuft. Excel 365 kennt das Element komischer weise noch. Angezeigt wird es. Gibt es dafür einen Ersatz`?
Danke!!!

Gruß
Marcus

Wissen ist Macht - es ist aber nicht schlimm nicht alles zu wissen.
Man muss nicht alles wissen - man muss nur wissen wo es steht, oder wo man Hilfe bekommt.
Top
#4
(02.01.2020, 16:23)marose67 schrieb: Gibt es dafür einen Ersatz`?

Hallo, :19:

hier mal ein möglicher Ersatz... :21:
[-] Folgende(r) 1 Nutzer sagt Danke an Gast für diesen Beitrag:
  • marose67
Top
#5
Hallo,
danke für den Link.
Ich kann aber nur deutsch ... Konntest du nicht wissen.

Gruß
Marcus

Wissen ist Macht - es ist aber nicht schlimm nicht alles zu wissen.
Man muss nicht alles wissen - man muss nur wissen wo es steht, oder wo man Hilfe bekommt.
Top
#6
reicht schon:


Angehängte Dateien
.xlsb   __calendar_snb_UF.xlsb (Größe: 25,29 KB / Downloads: 14)
Zum übersetzen von Excel Formeln:

http://dolf.trieschnigg.nl/excel/index.p...gids=en+de
Top
#7
Hallo Marcos,

oder so was

DatePicker
.      \\\|///      Hoffe, geholfen zu haben.
       ( ô ô )      Grüße, André aus G in T  
  ooO-(_)-Ooo    (Excel 97-2019+365)
Top
#8
Hallo André,

Danke - das habe ich mir direkt mal abgelegt.

Gruß
Marcus

Wissen ist Macht - es ist aber nicht schlimm nicht alles zu wissen.
Man muss nicht alles wissen - man muss nur wissen wo es steht, oder wo man Hilfe bekommt.
Top
#9
Hallo,

mir fiel gestern auf, das Excel noch immer ein Kalendersteuerelement anbietet. Wie spreche ich es an?
   

Habe folgenden Code geschrieben:

Zitat:
Option Explicit
Dim datum As Date
Dim lngAnzahl As Long
Private Sub Calendar1_Click()
    datum = Calendar1
End Sub

Private Sub UserForm_Activate()
    Calendar1 = Date
End Sub

Private Sub CommandButton1_Click()
    For lngAnzahl = 2 To Worksheets.Count
        If Sheets(lngAnzahl).Name = datum Then
            Range("B1") = TextBox1
        Else
            MsgBox "Fehler!"
        End If
    Next
    Unload Me
End Sub

Es läuft immer auf einen Fehler raus.

Gruß
Marcus

Wissen ist Macht - es ist aber nicht schlimm nicht alles zu wissen.
Man muss nicht alles wissen - man muss nur wissen wo es steht, oder wo man Hilfe bekommt.
Top
#10
(05.01.2020, 11:24)marose67 schrieb: … das Excel noch immer ein Kalendersteuerelement anbietet.

Moin!
Wäre mir neu, Marcus!
Wo sollte es bei den "weiteren Steuerelementen" zu finden sein?

Meines Wissens nach ist es immer noch so, dass sich dieses Steuerelement in einer .ocx-Datei befindet, die nicht mitgeliefert wird.
Entweder MSCOMCTL.ocx oder MSCOMCT2.ocx, die dann als Administrator im Betriebssystem registriert werden muss.

Es gibt (natürlich) Fundstellen im Netz, aber imo ist das nicht ganz legal (Urheberrecht MS).

Gruß Ralf
Gib einem Mann einen Fisch und du ernährst ihn für einen Tag. 
Lehre einen Mann zu fischen und du ernährst ihn für sein Leben. (Konfuzius)
Top


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste