Positionierung

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
Bild

Betrifft: Positionierung
von: Raphi
Geschrieben am: 31.08.2015 08:31:32

Guten Morgen Excelianer,
gibt es eine Möglichkeit einen Pop-Up-Kalender zu positionieren ?
Leider öffnet sich das Fenster immer irgendwo im nirgendwo ;)
Option Explicit


Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
 If Not Intersect(Target, Range("E15:F95")) Is Nothing Then 'startet innerhalb
   OpenCalendar
'Positionierung ???
 End If
End Sub

Bild

Betrifft: probiers mit .Left und .Top ... kwT
von: Matthias L
Geschrieben am: 31.08.2015 08:38:46


Bild

Betrifft: AW: probiers mit .Left und .Top ... kwT
von: Raphi
Geschrieben am: 31.08.2015 08:54:24
Hi Mathias,
vielen Dank für deine schnelle Antwort.
.Left und .Top ist mir bekannt, jedoch nicht bei einer so "allgemeinen" Anwendung.
Ich möchte den Kalender immer bei/an der aktiven Zelle erscheinen lassen.
Mir ist es nur möglich eine feste Range festzulegen (.Top=.cell.Range("B2").Top) was aber nicht den gewünschten Zweck erfüllt ;)
Mit folgendem Code klappt es leider nicht...
Option Explicit

Private Sub MonthView1_DateClick(ByVal DateClicked As Date)
    On Error Resume Next
    Dim cell As Object
    For Each cell In Selection.Cells
        cell.Value = Me.MonthView1.Value
        .Top = .cell.ActiveCell.Top
        .Left = .cell.ActiveCell.Left
        
        
    Next cell
    
    Unload Me
    
End Sub


Bild

Betrifft: AW: probiers mit .Left und .Top ... kwT
von: Matthias L
Geschrieben am: 31.08.2015 09:22:54
Hallo
Hast Du schon mal die "Recherche" bemüht?
Eingabe: MonthView
Da wirst Du sicher fündig.
Ich habe MonthView bei mir nicht aufm Schirm, kann also nichts Testen.
Gruß Matthias

Bild

Betrifft: Code OpenCalendar? owT
von: Rudi Maintaire
Geschrieben am: 31.08.2015 09:32:36


 Bild

Beiträge aus den Excel-Beispielen zum Thema "Code anpassen (Original von fcs)"