Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1416to1420
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
Mit DTPicker Datum in Tabelle suchen
27.03.2015 13:39:36
Tobi
Hallo zusammen,
ich möchte in meiner Excel-Tabelle das gewünschte Datum (steht von J4:NJ4) suchen.
Idee ist, dass über einen CommandButton der DTPicker1 geöffnet wird und der User hier das Datum auswählt. So weit komm ich schon mal ;-)
Allerdings fehlt mir jetzt der gewünschte Code:
Sobald auf das Datum geklickt wird soll sich die UserForm wieder schließen und automatisch in die Zelle mit dem ausgewählten Datum gesprungen werden.
Hat hier vielleicht jemand so etwas schon gelöst oder hat mir einen entsprechenden Tipp?
Danke im Voraus!

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Kanns auch Calendar sein statt DTPicker ?
27.03.2015 16:21:49
Matthias
Hallo
Meinst Du sowas?
Userbild
Also beim Klick auf den 26.03.2015 im Kalender soll der entsprechende Tag der Tabelle markiert werden?
Ich kann Dir das Bsp mit dem Calendar-Steuerelement hochladen
Würde das helfen?
Gruß Matthias

AW: Kanns auch Calendar sein statt DTPicker ?
27.03.2015 22:26:23
Tobi
Kann auch Calender sein, hab ich mir zwar noch nicht angeschaut scheint aber auch zu gehen.
Könnte wegen mir auch ein einfaches Textfeld sein, in das ein Datum getippt wird.
Das Datum soll dann nicht markiert sondern der curser soll in die gefundene Zelle springen.
möglichst ohne klick auf einen weiteren button (Datum anklicken, Calender schließt sich von selbst und die Zelle mit dem gewünschten Datum wird angesteuert).

Anzeige
AW: Calendar ...
30.03.2015 10:05:23
Tobi
Hallo Matthias,
ich habe deinen Code übernommen und auf meinen Kalender abgeändert. Leider funktioniert die Suche nicht, auch nicht, wenn ich deine Version versuche (hier "meckert" Excel, dass der Kalender nicht gefunden wird. Denke es ist der "alte", den es jetzt nicht mehr gibt, oder?):
Option Explicit
Private Sub wsKalender1_Click()
On Error Resume Next
Cells.Find(What:=wsKalender1, After:=ActiveCell, LookIn:=xlValues, LookAt:=xlPart, SearchOrder:= _
xlByRows, MatchCase:=False).Activate
Unload wsKalender1
End Sub
Hast vielleicht spontan ne Idee, was hier noch fehlt?
Grüße,
Tobi

Anzeige
AW: Calendar ...
31.03.2015 10:12:52
Tobi
Hallo Matthias,
ich hab das jetzt so gelöst (mit dem dtpicker):
Private Sub UserForm_Activate()
End Sub
Private Sub DTPicker1_Change()
Call DatumFinden
'Unload Me
End Sub
Sub DatumFinden()
Dim rng As Range
Dim lngDatum As Long
lngDatum = Me.DTPicker1.Value
For Each rng In Range("J4:NJ4")
If IsDate(rng) Then
If CLng(rng) = lngDatum Then
rng.Select
Exit Sub
Else
End If
End If
Next
End Sub
Die Suche funktioniert schön. Allerdings muss ich das "Unload Me" rausnehmen, da der Kalender sonst schon geschlossen wird, sobald der Monat gewechselt wird. Jetzt müssen wir nach erfolgreicher Suche eben mit "x" beenden.
Anzeige

300 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige