Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 00:42:03
Listbox mit gefilterten Daten füllen
24.04.2024 20:38:58
Summe mit Bedingung, nur letzte Ergebnisse anzeigen
24.04.2024 19:29:30
Formel filter
24.04.2024 18:49:56
merge & select
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
964to968
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
964to968
964to968
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Bei geöffneter Userform Excel weiter nutzen

Bei geöffneter Userform Excel weiter nutzen
08.04.2008 10:41:00
Hese
Guten Morgen zusammen,
ich habe folgendes Anliegen:
Ich habe in der Userform den folgenden Text hinterlegt:

Private Sub Workbook_open()
UserForm1.Show
End Sub


Das funktioniert auch alles wunderbar wenn ich die Datei öffne. Ich möchte aber, das ich die Userform weiterbenutzen kann und sichtbar bleibt und ich Excel auch ohne die Userform manuell schliessen zu müssen, weiter normal benutzen kann. Was fehlt meiner Userform noch ? :-)
Vielen Dank im voraus für eure Hilfe...
Gruss
Hese

17
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Bei geöffneter Userform Excel weiter nutzen
08.04.2008 10:45:00
Matthias
Hallo Hese,
so:

Private Sub Workbook_open()
UserForm1.Show vbModeless
End Sub


Gruß Matthias

AW: Bei geöffneter Userform Excel weiter nutzen
08.04.2008 10:57:00
Hese
Hallo Matthias,
erstmal Vielen Dank für die prompte Hilfe ! Doch leider funktioniert das nicht. Kann erst wieder Exel benutzen, wenn ich die Userform manuell mit dem X schliesse. Sprich, es ist alles so wie vorher. Oder habe ich was falsch gemacht ? :-(
Gruss
Hese

...das glaub ich nicht!
08.04.2008 11:11:00
Luschi
Hallo Hese,
vbModeless sorgt dafür, daß das Formular offen ist und der User in der Tabelle Veränderungen vornehmen kann - siehe Excel Vba-Hilfe.
Gruß von Luschi
aus klein-Paris

Anzeige
AW: ...das glaub ich nicht!
08.04.2008 11:23:00
Hese
Hallo Luschi,
klingt ja gut. ;-) Aber irgendwie klappt das bei mir nicht ! :-( Ich habe den Code so in die UserForm1 eingefügt, er macht aber das gleiche wie vorher. Habe den Code auch parallel in DieseArbeitsmappe eingefügt, da bringt er mir dann die Fehlermeldung 424 Objekt... Wie geschrieben, bin ich "Blutiger Anfänger" und kann auch leider nichts mit der VBA-Hilfe anfangen.
Gruss
Hese

AW: ...das glaub ich nicht!
08.04.2008 11:38:00
Uwe
Hi Hese,
der Code gehört auf keinen Fall in die Userform, die soll ja erst gezeigt werden. Er gehört so:

Private Sub Workbook_Open()
UserForm1.Show vbModeless
End Sub


in die Arbeitsmapp, wie Du schon richtig geschrieben hast. Wenn Du die dann schließt und wieder öffnest, sollte es klappen.
Oder schreib Dir in ein Allgemeines Modul:
Sub UF1Zeigen()
UserForm1.Show vbModeless
End Sub


und führ das dann aus.
Hilft Dir das weiter?
Gruß
Uwe
(:o)

Anzeige
AW: ...das glaub ich nicht!
08.04.2008 11:44:00
Hese
Hallo Uwe,
ja super ! Das funktioniert ! *freu* Vielen Dank auch die für deinen "Tipp". So habe ich mir das vorgestellt das es aussehen soll. Vielleicht könntest du mir auch sagen, wie ich die UserForm an die von mir gewünschte Position plazieren kann ?
Gruss
Hese

AW: ...das glaub ich nicht!
08.04.2008 12:14:00
Uwe
Hi,
das kanns Du entweder in den Eigenschaften der UF direkt einstellen (StartUpPositio = manuell), oder so im Code:

Private Sub Workbook_Open()
UserForm1.Show vbModeless
UserForm1.Height = 150
UserForm1.Top = 300
UserForm1.Left = 250
End Sub


Mit den Zahlen musst Du rumprobieren.
Gruß
Uwe
(:o)

Anzeige
AW: ...das glaub ich nicht!
08.04.2008 12:21:00
Hese
Hallo Uwe,
danke schön... Dann werde ich das mal "ausprobieren", wo ich die "hinsetzte" anhand deiner Erklärung. Jetzt ist mir nur noch aufgefallen, das ich die UserForm auf jedem Tabellenblatt sehe, wie kann ich denn festlegen, das diese nur auf der Tabelle5 erscheint ?
Gruss
Hese

AW: ...das glaub ich nicht!
08.04.2008 12:35:28
Uwe
Hi,
dann nimm den Code aus der Arbeitmappe wieder 'raus und fügen diesen hier in das Modul des Tabellenblattes ein:

Private Sub Worksheet_Activate()
UserForm1.Show vbModeless
UserForm1.Height = 150
UserForm1.Top = 300
UserForm1.Left = 250
End Sub




Private Sub Worksheet_Deactivate()
UserForm1.Hide
End Sub


Gruß
Uwe
(:o)

Anzeige
AW: ...das glaub ich nicht!
08.04.2008 13:39:01
Hese
Hallo Uwe,
danke schön. Das hat mir auf jeden Fall schon wieder mal weitergeholfen. Mir ist aber aufgefallen, das ich mich falsch ausgedrückt habe: Wollte wissen, wie man eine UserForm manuell plaziert, aber nicht anhand des Bildschirmes, sondern anhand der vorliegenden Tabelle. Sorry... ;-) Ist ja nicht dein Fehler !
Gruss
Hese

...durch Setzen ihrer dementsprechenden...
08.04.2008 12:17:00
Luc:-?
...Eigenschaften (glaube .Top und .Left o.ä.), Hese,
die aber hier auf den Bildschirm bezogen sind.
Gruß Luc :-?

AW: ...durch Setzen ihrer dementsprechenden...
08.04.2008 12:23:42
Hese
Hallo Luc,
achso... ;-) Ich danke dir dafür, dann werde ich das mal ausprobieren !
Gruss
Hese

Anzeige
Als wenn ich das geähnt hätte! Du willst...
08.04.2008 14:32:00
Luc:-?
...die UF am Blatt ausrichten, Hese!
Oh! Oh! Das hat Bill aber nicht so vorgesehen! Da musst du UF.Left & .Top mit .Left & .Top einer Referenzzelle oder eines Grafikobjekts des Blattes synchronisieren. Das ist nicht so ganz einfach, erfordert ziemlichen Aufwand, aber möglich. Außerdem ist das auch alles davon abhängig wie Excel individuell eingerichtet wurde. Und das könnte bei jedem Nutzer anders sein. Ich hatte deshalb mal eine manuelle Nachkorrektur für den UF-Standort vorgesehen, bei der die neuen Werte gemerkt wurden, so dass die UF beim nächsten Start genau an der gewünschten Stelle erschien.
Viel Spaß beim Knobeln!
Gruß Luc :-?

Anzeige
AW: Als wenn ich das geähnt hätte! Du willst...
10.04.2008 10:35:00
Hese
Guten Morgen Luc,
sorry, war die Tage unterwegs...
Achso ist das... Na dann werde ich mal mein Glück versuchen ! ;-) Aber vielen Dank für deinen "Tipp" !
Gruss
Hese

Viel Erfolg! Gruß owT
10.04.2008 13:52:00
Luc:-?
:-?

AW: ...das glaub ich nicht!
08.04.2008 11:46:00
Andi
Hi,
wie Uwe schon schreibt, gehört der Code-Schnipsel in DieseArbeitsmappe.
Der Laufzeitfehler 424 legt den Verdacht nahe, dass Dein UserForm evtl nicht UserForm1 heißt, sondern irgendwie anders...? (Evtl Tipfehler?)
Schönen Gruß,
Andi

AW: ...das glaub ich nicht!
08.04.2008 11:54:05
Hese
Hi Andi,
ja danke, das habe ich auch später gelesen. Jetzt funktioniert es auch so, wie ich es haben will ! Habe es ja dementsprechend geändert. Aber auch dir Vielen Dank für deinen "Tipp" ! :-)
Gruss
Hese
Anzeige

23 Forumthreads zu ähnlichen Themen

Makros bei geöffneter Mappe aktivieren
Joni

Hi,
gibt es einen Weg Makros in einer Mappe zu aktivieren wenn diese bereits geöffnet ist. Beim Öffnen habe ich die Makros nicht aktiviert, da diese sonst automatisch ausgeführt werden. Jetzt würde ich gerne einen Teil probieren. Wenn ich die Datei speichere und die Makros beim Öffnen aktiv...
29.10.2009 17:48:21
Thread-ID: 1113127
5 Beiträge
Anzeige
Aktualisierung von Zellen von geöffneter Arbeitsma
Zellen

Hallo,
vielleicht stehe ich auf dem Schlauch
Ichlasse jede Minute durch ein Makro Werte aktualisieren:
Sub Makro1() On Error Resume Next Application.OnTime EarliestTime:=datA, Procedure:="Makro2", Schedule:=False datA = Now + CDate("00:05:00") Application.OnTime datA, Procedure:="Ma...
02.02.2010 21:56:51
Thread-ID: 1135268
4 Beiträge
liste zuletzt geöffneter Dateien erhöhen
Reinhard

Hallo Wissende,
ich bin sicher, daß man da die Anzahl verändern kann oder auf andere Art, sagen wir mal die zuletzt 50 gespeicherten/bearbeiteten Datein aulisten kann um sie leicht aufrufen zu können.
Ich glaub ich sah auch schon Code dazu.
Jetzt bräuchte ich den. Diese maximal 9 si...
12.03.2011 22:32:24
Thread-ID: 1205465
6 Beiträge
Anzeige
Prüfen auf geöffneter Datei - advanced
Schmitty

Hallo zusammen,
da bin ich schon wieder:
Nächstes "Spezial-Problem". Ich nutze folgenden Code, um per Knopfdruck zu prüfen, ob eine andere Excel-Datei geöffnet ist. Ist das der Fall, wird eine Zelle gelb gefärbt ansonsten blau:
' Prüfen ob die "Kunden-Datenbank" geöffnet ist Functio...
02.10.2014 13:59:50
Thread-ID: 1384556
4 Beiträge
Bel. Bereiche aus neu geöffneter Datei importieren
Matthias

Guten Tag,
ich stehe vor folgendem Problem:
Ich öffne über ein Makro mittels Auswahlfenster eine andere Excel-Datei mit folgendem Code: Sub OeffneDatei() Dim Dateiauswahl As Variant Dateiauswahl = Application.GetOpenFilename If Dateiauswahl False Then Workbooks.Open Filename:=Dateiausw...
15.10.2016 12:35:14
Thread-ID: 1519803
5 Beiträge
Formatierung von VBA geöffneter CSV-Datei ändern
VBA

Hallo Zusammen,
ich versuche etliche csv-Dateien in ein Excelsheet zu kopieren. Dazu öffne ich per VBA die csv- _
Datei und kopiere den Inhalt. Soweit so gut. Jedoch zeigt es in der CSV die Werte nicht richtig _ an. Unten hab ich ein Beispiel der zu einlesenden Datei. Die Werte mit 0....
31.05.2017 09:03:55
Thread-ID: 1561304
2 Beiträge
Benutzernamen von bereits geöffneter Datei auslese
bereits

Hallo Zusammen,
mir stellt sich gerade folgendes Problem:
Aus einer freigegebenen Arbeitsmappe heraus werden in eine andere Mappe Daten verschoben. Ist die Mappe, in die verschoben werden soll, jedoch von jemand anderem geöffnet, dann wird sie logischerweise nur im Lesemodus geöffnet un...
20.06.2017 11:48:17
Thread-ID: 1564906
9 Beiträge
VBA Pfad aus geöffneter Adobe PDF Datei auslesen
Tom

Hallo Zusammen,
wie kann ich mittels VBA den Pfad der aktuell geöffneten/er PDF Daten in Adobe Reader auslesen?
Vielen Dank vorab.
Grüße
Tom
12.07.2017 17:07:55
Thread-ID: 1568836
13 Beiträge
Anzeige

Links zu Excel-Dialogen

UserForm

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
3
5
2
3
4
1
8
12
4
1
10
6
1
3
4
7
5
2
2
8
5