Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema MsgBox
BildScreenshot zu MsgBox MsgBox-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema Image
BildScreenshot zu Image Image-Seite mit Beispielarbeitsmappe aufrufen

Kalender: Wahl-Datum aus Popup-Fenster einlesen

Betrifft: Kalender: Wahl-Datum aus Popup-Fenster einlesen von: Axel Meyer
Geschrieben am: 20.06.2006 17:08:36

hallo ihr könner!

für terminvergaben hätte ich gerne ein pop-up-fenster-(ewigen)-kalender, der mir ermöglicht, ein datum per mausklick einzulesen. dabei stelle ich mir sozusagen eine symbiose aus meinen beiden unten angegebenen beispielen vor.

ich hoffe, ihr könnt mir helfen und freue mich über rückmeldungen!
gruß aus dem süden,
axel

PS:das runde muß in das eckige!

•bsp1: in office-outlook-calender-tagesansicht (oder auch wochenansicht) gibt es einen kalender in der rechten fensterhälfte, in dem man auf einen tag klicken kann und die termine des tages angezeigt bekommt

•bsp2: über diesen code könnte man in einem explorer-fenster einen pfad zu einer datei bestimmen

Option Explicit
Public Type BROWSEINFO
hOwner As Long
pidlRoot As Long
pszDisplayName As String
lpszTitle As String
ulFlags As Long
lpfn As Long
lParam As Long
iImage As Long
End Type

Declare

Function SHGetPathFromIDList Lib "shell32.dll" Alias "SHGetPathFromIDListA" (ByVal pidl As Long, ByVal pszPath As String) As Long

Declare 
Function SHBrowseForFolder Lib "shell32.dll" Alias "SHBrowseForFolderA" (lpBrowseInfo As BROWSEINFO) As Long

Function GetDirectory(Optional Msg As String) As String
    Dim bInfo As BROWSEINFO
    Dim Path As String
    Dim r As Long, x As Long, pos As Integer
    bInfo.pidlRoot = 0&
    If IsMissing(Msg) Then
        bInfo.lpszTitle = "Wählen Sie bitte einen Ordner aus."
    Else
        bInfo.lpszTitle = Msg
    End If
    bInfo.ulFlags = &H1
    x = SHBrowseForFolder(bInfo)
    Path = Space$(512)
    r = SHGetPathFromIDList(ByVal x, ByVal Path)
    If r Then
        pos = InStr(Path, Chr$(0))
        GetDirectory = Left(Path, pos - 1)
    Else
        GetDirectory = ""
    End If
End Function


Sub FileNamePath()
    Dim strAdr As String
    strAdr = GetDirectory
    MsgBox strAdr
    Range("a1") = strAdr
End Sub

  


Betrifft: AW: Kalender: Wahl-Datum aus Popup-Fenster einlesen von: Ralf Anton
Geschrieben am: 21.06.2006 12:51:11

Hi Axel,

http://vb-anton.de/index.php?action=show&cat=353484

Hier findest Du einen Kalender.

Ciao, Ralf


  


Betrifft: AW: Kalender: Wahl-Datum aus Popup-Fenster einlesen von: Axel Meyer
Geschrieben am: 23.06.2006 11:12:45

hallo ralf,

dein makro ist ein vorgezogenes weihnachten für mich: ein echtes geschenk!

herzlichen dank!!!

gruß, axel


 

Beiträge aus den Excel-Beispielen zum Thema "Kalender: Wahl-Datum aus Popup-Fenster einlesen"