Trotz Userform weiterarbeiten

Informationen und Beispiele zu den hier genannten Dialog-Elementen:


Excel-Version: 8.0 (Office 97)
nach unten

Betrifft: Trotz Userform weiterarbeiten
von: Karin
Geschrieben am: 18.07.2002 - 19:25:19

Hallo ihr Spezialisten!
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

nach oben   nach unten

Re: Trotz Userform weiterarbeiten
von: L.Vira
Geschrieben am: 18.07.2002 - 19:59:57

Das geht uneingeschränkt erst ab Excel 2000. Mit Einschränkungen
kann man das unter E 97 mit API- Funktionen
FindWindow und EnableWindow machen. Musst du mal im Net suchen, ich hab sie nicht.

nach oben   nach unten

Re
von: Karin
Geschrieben am: 18.07.2002 - 20:02:10

Danke schön! Das ist mir wohl ein bisschen zu hohe Schule ;o)
Jedenfalls danke für die Bemühungen!
Gruss
Karin

PS: Bin übrigens immer wieder überrascht von Ihren Kenntnissen

nach oben   nach unten

Hab da derade mal ein Beispiel
von: L.Vira
Geschrieben am: 18.07.2002 - 21:24:28

ausgekramt, wenn du willst maile ich dir ein Beispiel.

nach oben   nach unten

Re: CodeBeispiel Modeless-Userform unter XL97
von: Karsten Brocksieper
Geschrieben am: 18.07.2002 - 21:48:56

Hallo,

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

nach oben   nach unten

Re: CodeBeispiel Modeless-Userform unter XL97
von: L.Vira
Geschrieben am: 18.07.2002 - 23:39:33

Das ist ein dünner Ast:

On Error Resume Next
m_lHWnd = FindWindow("XLMAIN", Application.Caption)

Application.Caption kann verändert werden!

nach oben   nach unten

Re: Hab da derade mal ein Beispiel
von: Karin
Geschrieben am: 19.07.2002 - 06:49:36

Vielen Dank für eure Bemühungen!
Ja, L.Vira, sehr gerne hätte ich, wenn du mir ein Beispiel mailen könntest. Das wäre wirklich lieb und würde mir eine Menge Zeit ersparen!
Hier meine Mail-Addy karin73@gmx.ch

Lieben Gruss
Karin


 nach oben

Beiträge aus den Excel-Beispielen zum Thema "Trotz Userform weiterarbeiten"