Office: "Eigener" PopUp Kalender in Excel

Hallo,

ich kann die if's aus posting #26 nicht zusammen bekommen.
***

End SubBegrenzen kannst Du das jetzt, in dem Du die Variable TARGET überprüfst:

z.B.


Code:
Code:

Hope that helps...

Wo setze ich die:
Code:

jetzt hin.??? wenn ich nur Reihe 2 und 3 mit Kalender nutzen möchte... *rolleyes.gif*

DANKE

 

Code:

 

Hallo Scorefun,

herzlichen Dank.

Jetzt wollte ich die Zeitmaschine auch noch benutzen.
Mit folgendem Code:
Code:

 

Wenn man die If's richtig einrückst, würde Dir auffallen, daß am Ende eines fehlt

Code:

 

DANKE

(einrücken, ja , habe ich auch schon mal was von gehört..........)

 

Hallo Scorefun,

warum lässt sich diese Datei nicht laden?



Gruß vom Doc

 

Aber Excel rechnet ab und zu mit Zeiten 00:00 ~ 24:00 = 24h

Das geht mit 2x 00:00 nicht.

 

Weil ein gewisser Thomas (Nickname DerEgoist) aus Post #72 nach dieser Ansicht gefragt hatte, und nachdem da keine Reaktion mehr von ihm kam, habe ich den Download wieder entfernt. Der Name 'Egoist' sagt wahrscheinlich alles...

Sorry für Dich, Doc

 

24h ist was anderes als 24:00h
Wenn Du Zeiten errechnen willst, muß IMO das Datum mit dabei
06.07.2013 00:00h ~ 07.07.2013 00:00h = 24h
*biggrin.gif*

 

Klappt mal gar nicht. Ich habe z.B. im frmZeiten (code)
Code:

Code:

auskommentiert und die entsprechende Schaltfläche gelöscht.
Ergebnis:
frmZeiten.Show vbModal (modKalender / Allgemein / PopUpTime) *frown.gif*
wird mir beim debuggen gelb unterlegt.

Das zu fixen ist aber nicht wichtig.... Ich kann die Zeitmaschine auch so benutzen......
Danke noch mal für Deine Hilfe.!! *biggrin.gif*

 

Hallo Scorefun,

vielen Dank für die Info. Schade ...
Aber dennoch eine super Arbeit *Smilie

Gruß vom Doc

 

Hallo Scorefun,

super Time Userform.

Nun würde ich das ganze gerne aus einer Textbox (Active X Steuerelement) benutzen können. Also der Benutzer klickt z.b. in eine Textbox die im Tabellenblatt 1 positioniert ist. Dann geht die Time Userform auf und er wählt etwas aus und dann wird die Uhrzeit in das Textfeld geschrieben (was ich mit einer Zelle in einem andern Tabellenblatt verknüpft habe, was via veryhidden ausgeblendet ist)

Bekomme es leider nicht hin.

Hier das is der Anfang wenn man in das Textfeld klickt aba deinen Code da rein zu bekommen klappt net.

Private Sub TextBox2_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)

End Sub


If Target.Column = 26 And Target.Row < 34 Then
PopUpTime Target.Address
Else
If Len(Target.Value) > 0 And Not IsDate(Target.Value) Then Cancel = True: Exit Sub
PopupCalendar_Cell Target.Address
End If

Cancel = True

Oder muss ich einen andern Verwenden?


Danke & Gruß

Michi

 

Hallo Ralf,

wie kann ich diese Datei nutzen? Wenn ich die Zip entpacke und öffne, kann ich zwar den Button anklicken aber passieren tut nichts.... kann ihn nur verschieben etc....

Sorry, aber kenne mich noch nicht so gut in Excel aus; benötige ich da irgendwelche Tools oder Einstellungen im/für Excel 2010?
Danke im voraus

 

Hi, hab geholfen bekommen, Danke *Smilie

 

Wahrscheinlich ist der Entwurfsmodus der Entwicklungsumgebung noch aktiviert
Siehst Du einen Reiter "Entwicklertools" in den Ribbons ?
Dort mal auf den Button "Entwurfsmodus" klicken zum Deaktibieren