Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
18.04.2024 19:30:20
VBA - Tabelle mit Mannschaftsergebnissen sortieren
18.04.2024 18:04:29
Formel fehler Wert#
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
316to320
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
316to320
316to320
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

UserForm immer eigeblendet lassen

UserForm immer eigeblendet lassen
02.10.2003 07:27:54
Marion
Hallo liebe Excelfreunde.
Ich habe eine Userform mit zahlreichen Schaltflächen bestückt.
Diese soll nun immer eingeblendet bleiben. Der Tabellenbenutzer soll
in der Tabelle Änderungen vornehmen können und bei Bedarf soll er die
sichtbare Userform aktivieren und die Schaltflächen nutzen können.

Im Moment muss ich leider immer wieder die UserForm ganz schließen, wenn ich
in der Tabelle arbeiten will. Wie kann ich das verhindern?

Viele Grüße / Marion

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: UserForm immer eigeblendet lassen
02.10.2003 08:45:10
Matthias G
Hallo Marion,
In den Eigenschaften des UserForms "ShowModal" auf "False" stellen. Ich weiß aber nicht ob Office 97 das schon kann.

Gruß,
Matthias
AW: UserForm immer eigeblendet lassen
02.10.2003 08:46:21
Hajo_Zi
Hallo Marion

das ist erst ab Version 2000 von MS vorgesehen.
Schreibe in die Usercform folgenden Code

Option Explicit
' von Michael Schwimmer

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 Sub UserForm_Activate()
Dim hwndXL&
hwndXL = FindWindow("XLMAIN", Application.Caption)
If hwndXL <> 0 Then
EnableWindow hwndXL, 1
Application.CellDragAndDrop = False
End If
End Sub




Private Sub UserForm_QueryClose(Cancel As Integer, _
CloseMode As Integer)
Application.CellDragAndDrop = True
End Sub



Falls Code vorhanden wurde dieser getestet unter Betriebssystem XP Pro und Excel Version XP SBE.
Bitte kein Mail, Probleme sollen im Forum gelöst werden.

Microsoft MVP für Excel

Das Forum lebt auch von den Rückmeldungen.

http://home.media-n.de/ziplies/

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige