Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema ListBox
BildScreenshot zu ListBox ListBox-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema SpinButton
BildScreenshot zu SpinButton SpinButton-Seite mit Beispielarbeitsmappe aufrufen

Suchfenster in VBA Umgebung verschieben

Betrifft: Suchfenster in VBA Umgebung verschieben von: Peter
Geschrieben am: 06.11.2012 15:35:16

Guten Tag

Ich arbeite mit zwei Bildschirmen, links auf dem grösseren ist das Excel offen, rechts das VBA-Fenster.
Wenn ich im VBA Projekt etwas suchen will, klebt das Suchmenue so weit oben am Bildschirmrand, dass nicht ersichtlich ist, was ich eingebe und ich das Suchfenster oben nicht mit der Maus packen und verschieben kann.

Wenn ich das VBA-Fenster in den grösseren Bildschirm ziehe, besteht das Problem nicht mehr, doch wenn ich es wieder verschiebe, ist das Problem unverändert.

Gibt es eine andere Möglichkeit, das Suchfenster zu verschieben, z.B. mit einer Tastenkombination (und ohne Hilfe der Maus)?
Vielleicht kann ich mittels VBA-Code die Position des Suchfensters (nachhaltig) beeinflussen?

Gruss, Peter

  

Betrifft: AW: Suchfenster in VBA Umgebung verschieben von: ChrisL
Geschrieben am: 06.11.2012 15:43:11

Hi Peter

Mit VBA sehe ich keine Möglichkeit.

Wie wärs mit

Alt + Leertaste
Pfeil eins runter
Enter
--> dann mit der Maus positionieren

Gruss
Chris


  

Betrifft: AW: Suchfenster in VBA Umgebung verschieben von: ChrisL
Geschrieben am: 06.11.2012 15:44:36

Korrektur (ohne Maus)

Alt + Leertaste
V-Taste
mit Pfeiltasten positionieren

cu


  

Betrifft: AW: Suchfenster in VBA Umgebung verschieben von: Peter
Geschrieben am: 06.11.2012 16:12:24

Hallo Chris

Vielen Dank. Das hilft auf's erste, das Fenster zu verschieben.

Ich lasse den Beitrag noch offen, da ich auch noch an einer definitiven Lösung interessiert bin. Eigentlich sollte das Suchfenster ja irgendwo innerhalb des VBA-Fensters erscheinen.

Gruss, Peter


  

Betrifft: AW: Suchfenster in VBA Umgebung verschieben von: Peter
Geschrieben am: 06.11.2012 16:12:35

Hallo Chris

Vielen Dank. Das hilft auf's erste, das Fenster zu verschieben.

Ich lasse den Beitrag noch offen, da ich auch noch an einer definitiven Lösung interessiert bin. Eigentlich sollte das Suchfenster ja irgendwo innerhalb des VBA-Fensters erscheinen.

Gruss, Peter


  

Betrifft: AW: Suchfenster in VBA Umgebung verschieben von: Peter
Geschrieben am: 06.11.2012 22:01:50

Noch offen ...
Danke, Peter


  

Betrifft: AW: Suchfenster in VBA Umgebung verschieben von: Nepumuk
Geschrieben am: 06.11.2012 23:58:34

Hallo,

meinst du so?

Option Explicit

Private Declare Function FindWindow Lib "user32.dll" Alias "FindWindowA" ( _
    ByVal lpClassName As String, _
    ByVal lpWindowName As String) As Long
Private Declare Function SetWindowPos Lib "user32.dll" ( _
    ByVal hwnd As Long, _
    ByVal hWndInsertAfter As Long, _
    ByVal x As Long, _
    ByVal y As Long, _
    ByVal cx As Long, _
    ByVal cy As Long, _
    ByVal wFlags As Long) As Long

Private Const GC_CLASSNAME_MSDIALOG = "#32770"

Private Const SWP_NOSIZE = &H1&
Private Const SWP_NOZORDER = &H4&
Private Const SWP_NOACTIVATE = &H10&
Private Const SWP_SHOWWINDOW = &H40&

Public Sub SetDialogPos()
    Const posX = 0& 'Position link
    Const posY = 0& 'Position oben
    Dim lngDialoghWnd As Long
    lngDialoghWnd = FindWindow(GC_CLASSNAME_MSDIALOG, "Suchen")
    If lngDialoghWnd <> 0 Then
        Call SetWindowPos(lngDialoghWnd, 0&, posX, posY, 0&, 0&, _
            SWP_NOSIZE Or SWP_NOZORDER Or SWP_NOACTIVATE Or SWP_SHOWWINDOW)
    End If
End Sub

Gruß
Nepumuk


 

Beiträge aus den Excel-Beispielen zum Thema "Suchfenster in VBA Umgebung verschieben"