Wieso reagiert nachdem Taste ALT gedrückt/ Andre ?

Guten Morgen Zusammen,
mein Makro läuft alles bestens.
Nachdem ich gestern den ganzen Tag mit Unterstützung des Forums gebastelt habe,
ANDRE hatte mir maßgeblich die Unterstützung gewährleistet teste ich gerade
die Datei in meiner Fa. und stelle fest das, wenn ich den Dialog aufrufe
und Datei über mein Button "Daten in Datenbank speichern" anklicke tut sich im Moment nichts, wenn ich die TASTE ALT drücke kommt sofort meine weitere Abfrage
etc. das heißt es geht direkt weiter...
Anbei meine Datei: der Dateiname : 1. 1-nw-plk-.xls 2.1-nw-plk-Datenbank
Beide Dateien müssen in ein Verzeichnis: c:\1_PKW_Verkauf
Für:
1. https://www.herber.de/bbs/user/6675.xls
2.

Die Datei https://www.herber.de/bbs/user/6674.xls wurde aus Datenschutzgründen gelöscht

Vielleicht habe ich GLÜCK und Andre kann noch einmal schauen?
Gruß Walter

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Andre,
mir ist aufgefallen:
Wenn der Dialog erscheint, ist im Hintergrund nichts!!, da Excel etc. doch ausgeblendet habe.
Wenn ich jedoch "ALT" drücke und abgearbeitet wird, ist ja im Hintergrund die Datei zu sehen, wenn ich den Dialog verschiebe.
Habe mal einen Test-Dialog erstellt der nicht zu verschieben ist etc.Anbei das Makro:
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function GetSystemMenu Lib "user32" (ByVal hWnd As Long, ByVal bRevert As Long) As Long
Private Declare Function RemoveMenu Lib "user32" (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long) As Long


Private Sub FixWindow(hWnd As Long)
Dim SysMenu As Long, Ret As Long
SysMenu = GetSystemMenu(hWnd, False)
Ret = RemoveMenu(SysMenu, &HF010&, &H0&)
End Sub


Private Sub UserForm_Initialize()
Application.ScreenUpdating = False
On Error Resume Next
With UserForm
.Height = Application.Height
.Width = Application.Width
CommandButton1.Left = .Width / 2 - CommandButton1.Width - 200    'ganz links bei 200
CommandButton1.Top = .Height - CommandButton1.Height * 2         '1 ganz nach unten
End With
FixWindow FindWindow(vbNullString, Me.Caption)
End Sub

Hiermit kann man den Dialog nicht verschieben und schließen außer über Button, vielleicht kann ich das auch in Excel97 verwenden, nur weiß ich nicht wie das geht.
Der Dialog ist ja eine USERFORM und ich muß noch in Excel97 Dialog arbeiten, da die
Erneuerung bzw. Änderung noch dauert.
Gruß Walter

Beliebteste Forumthreads (12 Monate)

Wieso reagiert nachdem Taste ALT gedrückt/ Andre ?

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Wieso reagiert nachdem Taste ALT gedrückt/ Andre ?

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread