Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 19:29:30
Formel filter
24.04.2024 18:49:56
merge & select
24.04.2024 17:19:09
Formel mit Index-Funktion
24.04.2024 16:19:42
SummeWenn / SummeWenns mit Bedingung wenn kleiner als dann
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
384to388
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
384to388
384to388
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Userform kurz einblenden

Userform kurz einblenden
19.02.2004 09:05:16
xaverl
Hi,
habe gestern in einem Beitrag gesehen wie das mit einer userform kurz einblenden und dann wieder ausblenden funktionieren soll, bei mir geht´s nicht.
weiss einer wieso?
Hier mein code:

Private Sub Workbook_Open()
FrmInfo.Show        'Zeigt kurz die Userform und blendet diese dann wieder aus!
Application.Wait (Now + TimeValue("00:00:03"))
Unload FrmInfo
End Sub

Er entlädt das fenster einfach nicht, da kann ich warten bis ich schwarz bin!
Danke schonmal...

11
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Userform kurz einblenden
19.02.2004 09:11:07
Jonathan
probiers mal mit
FrmInfo.hide
das show blendet die nur ein, nicht aus.......
Jonathan
AW: Userform kurz einblenden
19.02.2004 09:14:33
Galenzo
Hallo xaverl,
der zweite Teil deiner Prozedur gehört in das Userform_Activate-Ereignis.
Mach's mal so, dann sollte es gehn:
------------------

Private Sub Workbook_Open()
FrmInfo.Show        'Zeigt kurz die Userform und blendet diese dann wieder aus!
End Sub


--------- Modul der Userform -------

Private Sub UserForm_Activate()
Application.Wait (Now + TimeValue("00:00:03"))
Unload Me
End Sub

mfg
Anzeige
Das wars ;-)
19.02.2004 09:20:22
xaverl
Danke Galenzo,
dein Tip brachte die Erlösung, ganz kapieren tu ich´s noch nicht wieso der im code nicht einfach weitermacht´, aber gut, wieder was gelernt.
Danke jedenfalls...
AW: Das wars ;-)
19.02.2004 09:54:04
Galenzo
Schuld daran ist das WAIT,
das WARTET wirklich - und macht währenddessen nicht im Code weiter
)außer Drucken oder Berechnungen)!
mfg
AW: Userform kurz einblenden
19.02.2004 09:21:00
Michael S.
Wisst Ihr zufällig, wie man die UserForm ohne den blauen obigen Blaken anzeigen lassen kann? Dann wirkt das ganze noch "echter"! (Bsp.: Wenn Excel gestartet wird...)
Habt Ihr eine Idee?
Gruß,
Michael S.
AW: Userform kurz einblenden
19.02.2004 09:32:04
xaverl
Hi Michael S.,
die Frage hast du ja gestern schon mal gestellt und keine Antwort bekommen, hab ich heut früh gesehen. Fänd ich auch cool, hab da auch irgendwo bei Herber mal was gesehen, ist nur schon ne Zeit her, werd auch mal suchen. Ich glaube das war in Zusammenhang mit forms die man auch rund darstellen kann oder so...
Vielleicht findet ja einer von uns was, dann sag ich auch Bescheid, ok?
also ich such mal...
Anzeige
AW: Userform kurz einblenden
19.02.2004 09:32:21
Hajo_Zi
Hallo Michael
schaue mal auf meine Homepage da ist ein Beispiel, auf der Seite Fremde Dateien.
Falls Code vorhanden wurde dieser getestet unter Betriebssystem XP Pro und Excel Version XP SBE.
Bitte keine Mail, Probleme sollten im Forum gelöst werden.
Microsoft MVP für Excel
Das Forum lebt auch von den Rückmeldungen.
Betriebssystem XP Pro und Excel Version XP Pro


AW: Userform kurz einblenden
19.02.2004 09:36:42
Michael S.
PRIMA! DANKE, Hajo!
Danke Hajo o.T.
19.02.2004 09:41:53
xaverl
.
AW: Userform ohne blaue Titelleiste
19.02.2004 09:51:16
Galenzo
Hallo Michael S.,
das hier sollte dir weiterhelfen.
Füge diesen Code in das Modul der Userform ein:


Option Explicit
Private Declare Function FindWindow Lib "user32" Alias _
      "FindWindowA" (ByVal lpClassName As String, ByVal _
      lpWindowName As String) As Long
Private Declare Function GetWindowLong Lib "user32" Alias _
      "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex _
      As Long) As Long
Private Declare Function SetWindowLong Lib "user32" Alias _
      "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex _
      As Long, ByVal dwNewLong As Long) As Long
Private Declare Function DrawMenuBar Lib "user32" (ByVal _
      hwnd As Long) As Long
Private Const GWL_STYLE As Long = -16
Private Const WS_CAPTION As Long = &HC00000
Private Sub UserForm_Activate()
    Application.Wait (Now + TimeValue("00:00:03"))
    Unload Me
End Sub
Private Sub UserForm_Initialize()
    Dim hWndForm As Long
    If Val(Application.Version) >= 9 Then
        hWndForm = FindWindow("ThunderDFrame", Me.Caption)
    Else
        hWndForm = FindWindow("ThunderXFrame", Me.Caption)
    End If
    SetUserFormStyle hWndForm, False
End Sub
Private Sub SetUserFormStyle(hWndForm As Long, bCaption As Boolean)
    Dim frmStyle As Long
    If hWndForm = 0 Then Exit Sub
    frmStyle = GetWindowLong(hWndForm, GWL_STYLE)
    frmStyle = IIf(bCaption, frmStyle Or WS_CAPTION, frmStyle And Not WS_CAPTION)
    SetWindowLong hWndForm, GWL_STYLE, frmStyle
    DrawMenuBar hWndForm
End Sub

Viel Erfolg!
Anzeige
AW: Userform ohne blaue Titelleiste
19.02.2004 10:14:55
Michael S.
Klappt bei mir! PRIMA!
ms

300 Forumthreads zu ähnlichen Themen

Kann Fehler in Formel nicht finden. :(
Alex

Hallo Forum!
Ich habe eine Formel, die ein Moment für eine Schraubverbindung berechnet. Eigentlich ist die Eingabe von Formeln kein Problem für mich, aber irgendwie habe ich in der aktuellen Formel einen Fehler reingepackt, den ich nicht finden kann.
Hier erstmal die Formel:

Hi...
20.08.2008 09:09:00
Thread-ID: 1003086
5 Beiträge
Anzeige
Hintergrundfärbung in UserForm Textbox in Zelle...
Josef

Guten Morgen!
wie ich Daten über Userform TextBoxen in die Zellen zurückschreibe, dafür habe ich bereits eine Lösung.
Is es jedoch möglich einen gefärbten Hintergrund einer TextBox in die dafür vorgesehene Zelle zu übertragen?
Wenn ja, wie würde dann bitte eine VBA Lösung lauten?
28.08.2008 06:57:47
Thread-ID: 1005257
10 Beiträge
Zellenformatierung testen - .InsertIndent
Tom

Guten Morgen,
mittels diesem kleinen VBA möchte ich erreichen, dass in Spalte "D" nach "Teilprojekt" gesucht wird.
Wird dieses gefunden, so wird der Text in der Spalte "F" um 2 Einzüge nach rechts verschoben.
Das funktioniert auch soweit.
Private Sub CommandButton2_Click() For...
01.09.2008 10:56:47
Thread-ID: 1006352
3 Beiträge
Anzeige
MultiPage und ImageCombo - Bilder verschwinden
Alfons

Hallo,
ich habe eine UserForm mit einer MultiPage.
In der ersten Registerkarte ist eine ImageCombo.
Die Bilder für die ImageCombo sind in einer ImageList.
Beim starten der UserForm sind die Bilder in der ImageCombo auch zu sehen.
Wird aber zwischendurch ein anderes Register...
15.10.2008 19:38:13
Thread-ID: 1016667
9 Beiträge
Mit LoadPicture Bild aus dem Internet laden
Tobias

Hallo zusammen,
hab mal wieder ein Frage an das Kompetenzteam :).
Möchte in einer Userform ein Firmenlogo anzeigen lassen aber ich will keine Daten irgendwo ablegen. Sollte die Exeldatei mal irgenwo anderst landen ohne zugehöriges IMG wird das Logo nicht mehr angezeigt das will ich verm...
29.10.2008 09:09:00
Thread-ID: 1020141
4 Beiträge
Formel verbinden
Malivendi

Guten Abend,
habe gerade ein problem und komme nicht weiter. Ich gabe eine formel mit der kann ich in einer Tabelle 2 suchen und vergleichen, jetzt müsste ich die formel so erweitern, dass ich in Tabelle 3 , Tabelle 4 usw. suchen und vergleichen kann. In der ersten Tabelle gebe ich die Bez...
04.11.2008 21:31:00
Thread-ID: 1021733
4 Beiträge
Bild in Userform laden
Toby


hallo zusammen
Die aufgabe ist es, mit einer auswahl liste verschiedene Bilder in eine userform zu laden!
die Bilder sollte mit dem Excelfile gespeichert werden können
Zur Zeit mache ich das so, ich lade ein bild mit folgender Funktion in eine Userform
Public Function Bil...
15.12.2008 12:57:09
Thread-ID: 1033005
4 Beiträge
Bild einblenden
Stefan

Hallo Forum,
habe beim suchen im Forum folgenden Code gefunden:
Dim HWH As Object
Sub CommandButton1_Click() CommandButton1.Caption = "Bild" [A300].Activate Set HWH = ActiveSheet.Pictures.Insert("G:\...\....gif") End Sub
Sub CommandButton2_Click() ActiveSheet.Shapes("Pictur...
07.01.2009 13:19:00
Thread-ID: 1037518
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
4
6
9
2
1
8
3
3
3
2
4
4
10
1
5
5
1
1
3
2
6
8
4
7
1