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