Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 21:51:33
Idee für Grafik
26.04.2024 21:29:07
PQ zufällige Reihenfolge
26.04.2024 17:18:47
Große Datenmenge in komplexes Diagramm verpacken
26.04.2024 16:22:47
Aktualisierung Verknüpfung bei geschlossener Quelldatei
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
392to396
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
392to396
392to396
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Wie reaktiviere ich eine UserForm?

Wie reaktiviere ich eine UserForm?
05.03.2004 09:09:39
Alfred
Gibt es eine einfache Methode der Art Activate, mit der ich eine UserForm wieder aktiv machen kann, die während eines Makros inaktiv wurde?
Bitte beachten:
Die UserForm ist weder mit frm.Hide ausgeblendet noch mit frm.unload aus dem Speicher geschmissen. Während das Makro lief, wurde nur einfach das Excel-Sheet aktiv, die UserForm steht immer noch im Vordergrund, aber mit grauer Titelleiste für "nicht aktives Fenster".
Ich suche nicht Dialog.Hide ... Dialog.Show!
Auch SendKeys "%{TAB}" mit oder ohne Warten löst das Problem nicht.
Mehr zum Hintergrund und zu vergeblichen Lösungsansätzen unter
https://www.herber.de/forum/archiv/388to392/t391301.htm

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

Betreff
Datum
Anwender
Anzeige
AW: Wie reaktiviere ich eine UserForm?
05.03.2004 09:16:14
harry
hi alfred,
versuchs mit userform.setfocus
liebe grüße,
harry
AW: Wie reaktiviere ich eine UserForm?
05.03.2004 10:45:13
Alfred
War damals mein erster Gedanke, UserForms haben diese Methode (in Off97) aber offenbar nit.
AW: Wie reaktiviere ich eine UserForm?
05.03.2004 09:17:59
Franz W.
Hallo Alfred,
warum NICHT "Dialog.Show", "evtl. Dialog.Show: DoEvents" ?? Bringt's das wirklich nicht?
Grüße
Franz
AW: Wie reaktiviere ich eine UserForm?
05.03.2004 10:48:58
Alfred
Weiiiil Dialog schon geshowt ist, siehe verlinkte Diskussion zuvor.
Und da hilft auch kein DoEvents nich.
AW: Wie reaktiviere ich eine UserForm?
05.03.2004 09:51:12
Dieter Klemke
Hallo Alfred,
ich schlage dir eine API-Lösung vor.
Du hältst dir in der UserForm_Activate-Prozedur den Windows-Handle deiner UserForm fest und setzt mit seiner Hilfe deine UserForm im gewünschten Moment wieder in den Vordergrund.
Hier der Code zum Klassenmodul der UserForm:
Public hwnd As Long
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" ( _
ByVal lpClassName As String, _
ByVal lpWindowName As String) As Long
Private Declare Function SetForegroundWindow Lib "user32" ( _
ByVal hwnd As Long) As Long

Private Sub btnDrucken_Click()
Dim ws As Worksheet
Set ws = ThisWorkbook.Worksheets(1)
ws.PrintOut
SetForegroundWindow hwnd
End Sub



Private Sub btnSchließen_Click()
Me.Hide
End Sub



Private Sub UserForm_Activate()
hwnd = FindWindow(vbNullString, Me.Caption)
End Sub

MfG
Dieter
Anzeige
AW: Wie reaktiviere ich eine UserForm?
05.03.2004 11:11:12
ALfred
Oh, vielmals dankeschön, Dieter!
Genau das geht, habs soeben probiert.
Eine Frage hätt ich noch, die interessant werden könnte:
Da ich derzeit davon ausgehen muß, daß mehrere derartiger Workbooks gleichzeitig geöffnet sind, ist es ja zumindest denkbar, daß auch mehrere UserForms verschiedener Workbooks gleichzeitig offen sind.
Funkt Dein Algorithmus dann noch oder sollte ich mir Gedanken machen, die UserForms systemweit eindeutig zu betiteln?
AW: Wie reaktiviere ich eine UserForm?
05.03.2004 11:50:58
Dieter Klemke
Hallo Alfred,
FindWindow sucht wohl nur anhand der Fenster-Überschrift.
Um da eindeutiger zu sein, könntest du z.B. die folgende Initialize-Prozedur verwenden:

Private Sub UserForm_Initialize()
Me.Caption = Me.Caption & Format$(Time, "  hh:mm:ss")
End Sub

MfG
Dieter
Anzeige
AW: Wie reaktiviere ich eine UserForm?
05.03.2004 12:12:29
Alfred
Ok, das hatte ich vermutet, was mich bezüglich meines Einfühlungsvermögens in API-Rufe dann doch etwas beruhigt ;-)
Ja, nun habe ich <jubel>endlich eine funktionierende Lösung</jubel>, dafür danke ich Dir noch einmal ganz herzlich, Dieter!
Tschau
Alfred
PS:
Sieht so eigentlich auch viel professioneller aus als ein einfaches uform.SetFocus - letztlich ganz gut, daß uns die VBA-Entwickler diese Trivialität erspart haben <VEG>

302 Forumthreads zu ähnlichen Themen

Makro: Mail erzeugen funktioniert noch nicht
Ralf

Hallo,
folgendes Makro zur Erzeugung einer Mail funktioniert noch nicht.
Sub Mail_Stammdaten() Dim ob, mailitem As Object Set ob = CreateObject("outlook.application") Set mailitem = ob.CreateItem(0) On Error Resume Next With mailitem .Subject = "Neuanlage in Decalog" .To = "gerhard.ju...
18.09.2008 16:07:50
Thread-ID: 1010784
8 Beiträge
Anzeige
Filter-Makro funktioniert nicht
Wolfango

Hallo Experten,
die Spalte Q einer Datenbank enthält Datumswerte.
Wenn ich nun einen benutzerdefinierten Filter (vorher Autofilter aktiviert) setze mit den Kriterien "ist kleiner oder gleich" "31.12.2008" funktioniert das einwandfrei. Die gesuchten Werte werden wie gewünscht angezeigt...
04.11.2008 10:28:00
Thread-ID: 1021496
8 Beiträge
Makro funktioniert nicht richtig, Werte auslesen
Uwe

Hallo zusammen, habe folgendes Problem in dem beigefügtem Makro funktioniert es nicht das er die Werte 2 und 3 aus der Tabelle ausliest. Wert 1 geht wunderbar. Hat jemand eine Lösung?
Hallo Uwe,
unregelmäßig aufgebaute Tabellen per Makro abzuarbeiten ist immer ziemlich aufwendig zu prog...
07.11.2008 08:22:00
Thread-ID: 1022502
2 Beiträge
Anzeige
Makro funktioniert nicht
Diegel,

Hallo,
ich bin schon fast am verzweifeln.
Ein Makro funktioniert in der einen Datei und in der anderen Datei nicht. Obwohl ich genau dasselbe hinein kopiert habe.
Woran kann es liegen?
Viele Grüße von der Nordsee
Peter
12.03.2009 17:20:12
Thread-ID: 1059586
3 Beiträge
Makrorekorder funktioniert nicht richtig
peter

Hallo Profis,
hätte mal eine Frage zum Makrorekorder. Wenn ich es aufzeichne und dann abspiele funktionierts nicht.
Ich will einen Autofilter setzten, der diverse Zellen ausblendet, und die noch sichtbaren will ich in ein anderes Tabellenblatt kopieren...aber warum will er nicht?
'M...
22.03.2009 20:46:13
Thread-ID: 1062704
5 Beiträge
Makro funktioniert nicht
mike49

Hallo,
ich habe ein bestehendes Makro versucht zu erweitern, das aber misslungen ist.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Not Intersect(Target, Range("E8:E38")) Then Cancel = True If Target = "" Then Target = "9:15" Else Target = "...
29.03.2009 11:08:37
Thread-ID: 1065018
5 Beiträge
Makro aus Excel 2003 funktioniert nicht in Ex 2007
Lene

Hallo zusammen,
ich habe in 2003er Version ein kleines Makro, das in der 2007er Version einen Fehler verursacht.
Hat jemand einen Tipp, woran es liegt ich wie man das Makro so umschreiben kann, dass es in möglichst vielen Excel-Versionen läuft? Der künftige Benutzerkreis hat leider dive...
07.04.2009 19:27:56
Thread-ID: 1067511
9 Beiträge
Makro funktioniert nicht mehr
Wolfgang

Hallo,
obwohl ich leider keine Ahnung von VBA habe; Perl ist mir da lieber; konnte ich mir trotzdem vor längerer Zeit mit Hilfe verschiedenen Foren eine Makro zusammen bauen.
Dieses Makro macht folgendes unter Excel 2003.
In die erste Spalte "A" werden manuell Artikelnummern eingebe...
14.10.2009 20:56:20
Thread-ID: 1109687
3 Beiträge

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
7
2
7
1
2
2
4
4
8
2
2
2
22
2
22
2
9
8
6
10
5
3
7
1
1