Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
584to588
584to588
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Fokus von UserForm nehmen und auf Workbook setzen

Forumthread: Fokus von UserForm nehmen und auf Workbook setzen

Fokus von UserForm nehmen und auf Workbook setzen
18.03.2005 15:16:50
Stefan Bregy
Hallo zusammen
Ich hab folgendes Problem: Ich hab ein Excel-Workbook und ein paar UserForms, welche darin enthalten sind. Jetzt öffne ich von einer dieser UserForms aus per VBA ein anderes Workbook mit "Workbooks.Open", dass funktioniert tip top. Das einzige Problem ist, dass die UserForms trotz allem im Vordergrund bleiben. Kann ich das irgendwie umgehen? Ich möchte nämlich nicht die UserForms nur aus diesem Grund schliessen, damit das Workbook im Vordergrund angezeigt wird. Wie kann ich also den Fokus von den UserForms nehmen und auf das Workbook setzen?
Bin dankbar für jeden Tipp
Gruss Stefan
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Fokus von UserForm nehmen und auf Workbook setzen
18.03.2005 15:39:34
K.Rola 
Hallo,
das geht mit API-Funktionen:
Private Declare Function SetActiveWindow Lib "user32.dll" (ByVal hwnd As Long) As Long
Private Declare Function GetActiveWindow Lib "user32.dll" () As Long
Dim mWnd As Long
Private Sub UserForm_Activate()
SetActiveWindow mWnd
End Sub
Private Sub UserForm_Initialize()
mWnd = GetActiveWindow
End Sub

Gruß K.Rola

Der Fleiß ist die Wurzel aller Häßlichkeit.

Oscar Wilde


Anzeige
AW: Fokus von UserForm nehmen und auf Workbook setzen
21.03.2005 11:14:29
Stefan Bregy
Herzlichen Dank für die Info, funktioniert super!!
Gruss
Stefan
;

Forumthreads zu verwandten Themen

Outlook Express statt Outlook mit Code ansprechen?
greenhorn

Hallo,
zum automatsichen Versand von E-Mails mit Outlook aus Excel heraus habe ich folgenden Code:
Sub sende_stoermeldung(mld As String) Dim MyMessage As Object, MyOutApp As Object 'InitializeOutlook = True Set MyOutApp = CreateObject("Outlook.Application") 'Nachrichtenobject erstelle...
19.08.2008 13:13:21
Thread-ID: 1002911
7 Beiträge
Set objWorkbook = Application.Workbooks.Open(Activ
Hugo

Hallo Zusammen
Nachfolgender Code läuft auf Excel 2000 und 2007
Im 2000 egal ob ich die Datei lokal oder über ein Netzlaufwerk gestartet wird.
Im 2007 nur wenn ich die Datei lokal starte.
Wenn ich im 20007 die Datei über ein Netz-LW starte entsteht ein Error bei
Set objWor...
31.10.2010 21:53:57
Thread-ID: 1184589
3 Beiträge
If ActiveWorkbook.Name <> ThisWorkbook.Name Then E
Heinz

Hallo Leute
Hatte im Jänner im Forum angefragt.
Habe einen Schichtplan mit vielen Makros, und Protect mit Passort.
Wenn ich in der Firma den Schichtplan öffne UND eine andere Exceltabelle öffne,das dort auch der Blattschutz reinkommt.
Warum ?
Nun hatte ich einen Lösungsvorsc...
10.03.2011 12:48:10
Thread-ID: 1205143
6 Beiträge
aus WorkBook1 ein WorkBook2 speichern ?
rieckmann

Hallo,
gibt eine Möglichkeit aus WorkBook1 per VBA ein geöffnetes WorkBook2 abzuspeichern und gleichzeitig zu beenden, ohne das WorkBook1 beendet wird ?
Gruß
Fred
08.04.2012 15:43:06
Thread-ID: 1258373
13 Beiträge
range.copy workbook - workbook
robert

Hallo liebe Community,
ich möchte Zellinhalt aus einem workbook in ein anderes kopieren.
Dabei wird zunächst die Hauptdatei geöffnet.
Dann soll bevor das userform initialisiert wird eine 2. Exceldatei geöffnet werden aus der dann rauskopiert werden soll; dannach soll diese wieder ge...
26.11.2012 08:29:16
Thread-ID: 1288028
4 Beiträge
Nach Workbook.close zu Aktivem Workbook springen
TOM

Guten Morgen zusammen
Stehe auf dem Schlauch und wäre um ein Tipp für folgendes Problem dankbar:
Ich habe zwei Workbooks offen. Per VBA schliesse ich das Workbook1 und möchte dann
ins Workbook2 erstes Blatt springen.
Besten Dank und Gruss
TOM
11.06.2013 11:27:09
Thread-ID: 1317071
17 Beiträge
Wert aus Combobox von Workbook zu Workbook
Workbook

Erstmal Hallo an die Excel-Profis :)
mein Problem ist folgendes und ich bin schon durch dutzende Foren gescrollt:
Ich habe zwei verscheidene Excel Workbooks. Im Ersten stehen Informationen drin die ich in das Zweite übertrage mit Macros. Das klappt auch wunderbar. Jetzt befindet sich im...
16.07.2015 08:25:41
Thread-ID: 1436649
3 Beiträge
Wert aus Combobox von Workbook zu Workbook
Workbook

Erstmal Hallo an die Excel-Profis :)
mein Problem ist folgendes und ich bin schon durch dutzende Foren gescrollt:
Ich habe zwei verscheidene Excel Workbooks. Im Ersten stehen Informationen drin die ich in das Zweite übertrage mit Macros. Das klappt auch wunderbar. Jetzt befindet sich im...
16.07.2015 08:26:45
Thread-ID: 1436650
2 Beiträge
Anzeige
VBA: Mehrere Doks in einem neuen Dok vergleichen..
Andreas

Ein freundliches "Hallo" in die Runde und vielen Dank im Voraus an alle die sich diesen Post durchlesen und Zeit für mich opfern.. :)
Ich suche eine VBA-Lösung für den folgenden Sachverhalt:
Durch meine Arbeit generiere ich in regelmässigen Zeitabständen Prüfberichte in Excel.
Dies...
13.11.2015 09:35:48
Thread-ID: 1458091
3 Beiträge
Jede zweite Zeile aus Wookbook A in ein anderes WB
linda

Hallo Leute!
Ich habe eine Frage, und hoffe ihr könnt mir helfen.
Und zwar habe ich zwei Workbooks A (.csv Datei mit einem Sheet "Referenz") und B (normale Excel mit mehreren Sheets). In Workbook B wird das Makro quasi gestartet werden, da mit der Excel-Tabelle gearbeitet wird.
Ich...
20.09.2016 10:59:42
Thread-ID: 1515303
6 Beiträge
Mit variablen Wokbook.Name zw.Dateien wechseln
Schmidti

Hallo da draussen,
über
Dim Dateiname
Dateiname = Application.ActiveWorkbook.name
erfrage ich mir den Dateinamen und suche mir dann über Application.Dialogs(xlsDialogOpen).Show eine Datei aus, aus der ich Werte mittels Inputbox (Bereich) auslese. Nun soll das Makro automatisch in d...
02.09.2002 15:42:43
Thread-ID: 155444
3 Beiträge
VLookUp Workbook übergreifend
Sergej

Hallo liebe Excel Freunde,
bin gerade am verzweifeln.
Ich möchte mit einem SVerweis(VLookUp) etwas finden.
Ich gebe z.B. "Apfel" in Textbox1 ein. Danach soll das Wort "Apfel" in einem anderen
Workbook in Spalte A gesucht werden und der Inhalt der 2. Spalte(also rechts neben Apfe...
27.01.2017 15:21:13
Thread-ID: 1537853
2 Beiträge

Beliebteste Forumthreads (12 Monate)

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