Ich hoffe, ihr könnt mir einen Tipp geben?!
Kann man eine Userform sichtbar machen und trotzdem auf einem Excelblatt weiterarbeiten?
Für eine Antwort wäre ich sehr dankbar!
Gruss
Karin
PS: Bin übrigens immer wieder überrascht von Ihren Kenntnissen
anbei das entsprechende Code-Beispiel für eine nicht-modale (sprich: man kann im Blatt weiterarbeiten) Userform
HTH, Karsten
Code:
Private Sub UserForm_Initialize()
Call Modeless(Me, True)
End Sub
Private Sub UserForm_Terminate()
Call Modeless(Me, False)
End Sub
Private Declare Function FindWindow Lib "user32"_ Alias "FindWindowA" (ByVal lpClassName As String, _
ByVal lpWindowName As String) As Long
Private Declare Function EnableWindow Lib "user32" _
(ByVal hWnd As Long, _
ByVal bEnable As Long) As Long
Private m_lHWnd As Long
Private m_bDragDrop As Boolean
Public Sub Modeless(obj As Variant, _
Optional bModeless As Boolean)
On Error Resume Next
m_lHWnd = FindWindow("XLMAIN", Application.Caption)
If bModeless Then
Call EnableWindow(m_lHWnd, 1)
m_bDragDrop = Application.CellDragAndDrop
Application.CellDragAndDrop = False
Else
Call EnableWindow(m_lHWnd, 0)
Application.CellDragAndDrop = m_bDragDrop
End If
End Sub
On Error Resume Next
m_lHWnd = FindWindow("XLMAIN", Application.Caption)
Application.Caption kann verändert werden!
Lieben Gruss
Karin