Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 08:08:24
Pivot Vormonatsveränderung
26.04.2024 07:54:11
nur den ersten Eintrag in spalte zählen
25.04.2024 23:47:55
Datum ausweisen, wenn definierte Summe erreicht ist
25.04.2024 21:40:53
Excel Datenquelle aus dem Web mit Anmeldung?
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
572to576
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
572to576
572to576
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Kalender

Kalender
20.02.2005 12:29:10
Tanja
Einen schönen Sonntag allen zusammen..
ich bin auf der Suche nach einem Kalender-Steuerelement, sprich ich möchte gern erreichen, dass wenn ein User auf einen bestimmten Button oder eine bestimmte Zelle klickt ein Kalender aufgeht. Wenn dort der User ein Datum anklickt sollte dieses Datum dann sofort in eine bestimmte Zelle eingetragen werden...und das alles ohne irgendwelche Button wie eintragen, also nur durch den Klick auf das Datum im Kalender.
Kann mir da jemand helfen? Hab nämlich nicht soviel Ahnung davon...:-(
Liebe Grüsse und allen weiterhin einen schönen Sonntag
Tanja

13
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Kalender
Tanja
Vielen lieben Dank, aber den Kalender hab ich auch schon gesehen. Funktioniert mir aber zu umständlich über ein Menü..
Eben, schöner wäre es wenn über ein Klick auf einen Button oder auf eine Zelle nur der Kalender-Dialog aufgehen würde ohne zusätlichen Buttons wie übernehmen etc. Eben einfach mit einem Klick auf das entsprechende Datum dieses sofort übernehmen in eine bestimmte Zelle...
Hast Du sonst noch einen Tip für mich?
Danke
Tanja
Anzeige
AW: Kalender
Tanja
Hui...super!! :-) Vielen lieben Dank! Genau so hab ich mir das vorgestellt. Kann man das jetzt noch irgendwie einstellen, das wenn man das Datum angeklickt hat, sofort auch die Übernahme in die Zelle vollzogen wird und die User-Form automatisch geschlossen wird? Jetzt muss man ja noch manuell das "X" der User-Form anklicken um die User-Form zu schliessen...
Also am besten ein Klick auf das gewünschte Datum und schwups ist die User-Form dann auch schon wieder weg und das Datum ist eingetragen.. :-) Geht das irgendwie?
Aber vielen lieben Dank für Deine Hilfe...bist ein Schatz!
Danke
Tanja
Anzeige
AW: Kalender
20.02.2005 13:04:11
Thom@sCH
Ja so macht doch das Helfen gleich doppelt Spass....!!
Denke, dass du das auch hinbekommst.
Mit Alt + F11 wechselst du in die Entwicklungsumgebung. Unter Formulare Doppelklick auf UserForm1. Doppelklick auf die geöffnete UserForm.
Code anpassen (Unload Me einfügen):

Private Sub Calendar1_Click()
On Error Resume Next
ActiveCell = Calendar1
ActiveCell.NumberFormatLocal = "TT.MM.JJJJ"
Unload Me
End Sub

Wenn nicht geht, meld dich nochmal.
Gruss Thomas
Heinrich
20.02.2005 13:18:14
Wera
ich liebe dich
AW: Heinrich
Tanja
Viiiiellen lieben Dank Thomas! Genau das war meine Wunschvorstellung! Jetzt kann ich nämlich weiterbasteln! :-) Hast mir arg geholfen! :-) Vielen lieben Dank und Dir noch einen schönen Sonntag!
Liebe Grüsse
Tanja
PS: noch ne Frage: Makros kann man ja auf Ereignisse ansprechen lassen. Würde das mit dem Kalender auch funktionieren, wenn man beipspielsweise die Zelle D4 anspringen/ aktivieren würde? Also wenn man auf D4 klickt und dann automatisch die User-Form aufgeht und man nach dem Klick dann gleich in D4 das Datum reingeschrieben bekommt?
Anzeige
AW: Heinrich
20.02.2005 13:56:02
Thom@sCH
War ein bisschen am probiern. Funktioniert aber noch nicht so wie gewünscht.
Gut geht mit der RECHTEN Maustaste.
Vorgehen:
Klicke mit der rechten Maustaste auf die Registerlasche / Code anzeigen
Gib den Code ein:

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
If Target.Address = "$D$4" Then starten
End Sub

mit Doppelklick müsste es auch gehen "Worksheet_BeforeDoubleClick", hängt sich aber irgendwie noch auf
Ich düftle noch ein bisschen
Gruss Thomas
AW:Th Heinrich du bist aber gut
20.02.2005 14:06:35
Wera
?
AW: AW:Th Heinrich du bist aber gut
20.02.2005 14:11:08
Thom@sCH
Sorry, aber ich bin nicht Th. Heinirch!
Wenn du ein Problem mit ihm hast, trage es an einem anderen Ort aus und nicht hier. Das Forum ist da, um anderen Hilfe zu leisten.
Und im übrigen, du nervst!!!!!
Anzeige
AW: AW:Th Heinrich du bist aber gut
20.02.2005 14:43:30
Horst
Baldrian ist gut für Nerven ein Packung 1,99 Euro
Ereignisprozedur
20.02.2005 19:37:33
Thom@sCH
Hallo Tanja
Mit diesem Code wird nicht auch noch das Kontexmenüe angezeigt, wenn du mit der rechten Maustaste in das Feld D4 klickst.
Code einfügen:
1. Rechtsklick auf den Blattnamen (Lasche unten).
2. Code anzeigen.
3. Das Klassenmodul des Arbeitsblattes öffnet sich.
4. Kopiere den nachstehenden Code in die große weiße Fläche auf der rechten Seite.
5. Zurück zum "normalen" Excel gehts mit Alt+Q.

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
Dim KontextmenüNichtAufklappen As Range
Set KontextmenüNichtAufklappen = Range("D4")
If Intersect(Target, KontextmenüNichtAufklappen) Is Nothing Then Exit Sub
Cancel = True
If Target.Address = "$D$4" Then starten
End Sub

Liebi Grüess
Thomas
Anzeige
AW: Ereignissprozedur mit Doppelklick
20.02.2005 19:48:05
Thom@sCH
Geht ja cuch mit Doppelklick

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim KontextmenüNichtAufklappen As Range
Set KontextmenüNichtAufklappen = Range("D4")
If Intersect(Target, KontextmenüNichtAufklappen) Is Nothing Then Exit Sub
Cancel = True
If Target.Address = "$D$4" Then UserForm1.Show
End Sub

Und Tschüss....

Links zu Excel-Dialogen

UserForm

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige