Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.04.2024 23:30:16
Anzahl Jahre Zählen aus Datumreihe
16.04.2024 19:22:16
Von exceltabelle in word per steuerelement temarker
16.04.2024 18:50:53
Fehlermeldung bei Code - Excel speichern mit Bez. aus Zelle
16.04.2024 17:18:01
Projektplan-Tabelle oder Gantt ohne Balken
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
376to380
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
376to380
376to380
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

PopUp Fenster beim Öffnen von Datei

PopUp Fenster beim Öffnen von Datei
04.02.2004 08:59:33
Hannes
Hallo Excel User: Habe folgendes Problem:
Beim Öffnen einer EXCEL Datei soll ein Dialogfenster kommen mit folgendem Inhalt:
„Beim Ändern der Datei „XXXX.xls“ ebenfalls öffnen!
Datei „XXXX.xls“ öffnen?
Dialogboxen: „Ja“ / „Nein“
Wenn auf „Ja“ geklickt wird, dann automatisch die Datei „XXX.xls“ aus dem bestimmten Verzeichnis öffen, wenn auf Nein geklickt wird, nichts machen
Danke für die Hilfe
Hannes

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: PopUp Fenster beim Öffnen von Datei
04.02.2004 09:13:53
Josef Ehrensberger
Hallo Hannes!
Diesen Code in das Modul "DieseArbeitsmappe".


Private Sub Workbook_Open()
Dim aktW As Window
Set aktW = ActiveWindow
If MsgBox("Zum Bearbeiten dieser Datei, muss die Datei" & vbLf & _
"XXXXXXX.xls" & vbLf & "geöffnet sein!" & vbLf & vbLf & _
" Datei XXXXXXX.xls öffnen?", vbYesNo, "Info") = vbYes Then
Application.ScreenUpdating = False
Workbooks.Open ("XXXXXXX.xls")
aktW.Activate
Application.ScreenUpdating = True
End If
End Sub

     Code eingefügt mit Syntaxhighlighter 2.5

Gruß Sepp
Anzeige
AW: PopUp Fenster beim Öffnen von Datei
04.02.2004 09:44:14
Hannes
Hallo Sepp!
funktioniert super! vielen Dank.
kann man das auch so gestalten, dass das Fenster nur dann kommt, wenn die Datei NICHT "Schreibgeschützt" geöffnet wird?
LG
hannes
AW: PopUp Fenster beim Öffnen von Datei
04.02.2004 11:58:04
Josef Ehrensberger
Hallo Hannes!
Das geht dann so.


Private Sub Workbook_Open()
Dim aktW As Window
If Not ThisWorkbook.ReadOnly Then
Set aktW = ActiveWindow
If MsgBox("Zum Bearbeiten dieser Datei, muss die Datei" & vbLf & _
"XXXXXXX.xls" & vbLf & "geöffnet sein!" & vbLf & vbLf & _
" Datei XXXXXXX.xls öffnen?", vbYesNo, "Info") = vbYes Then
Application.ScreenUpdating = False
Workbooks.Open ("XXXXXXX.xls")
aktW.Activate
Application.ScreenUpdating = True
End If
End If
End Sub

     Code eingefügt mit Syntaxhighlighter 2.5

Gruß Sepp
Anzeige
AW: PopUp Fenster beim Öffnen von Datei
04.02.2004 14:29:51
RolandS
Hallo,
ich habe bereits ein Workbook_Open, wie muß ich das dann einfügen ?
Mein String:
--------------------------

Private Sub Workbook_Open( )
Application.CommandBars("cell").Enabled = False
Sheets("Menü").Activate
Range("G17").Select
With ActiveWindow
.DisplayHeadings = False
.DisplayWorkbookTabs = False
End With
End Sub

---------------------
Danke
RolandS
AW: PopUp Fenster beim Öffnen von Datei
04.02.2004 14:45:00
Josef Ehrensberger
Hallo Roland!
Z.B. so.


Private Sub Workbook_Open()
Dim aktW As Window
Set aktW = ActiveWindow
Application.ScreenUpdating = False
If MsgBox("Zum Bearbeiten dieser Datei, muss die Datei" & vbLf & _
"XXXXXXX.xls" & vbLf & "geöffnet sein!" & vbLf & vbLf & _
" Datei XXXXXXX.xls öffnen?", vbYesNo, "Info") = vbYes Then
Workbooks.Open ("XXXXXXX.xls")
aktW.Activate
End If
Sheets("Menü").Range("G17").Activate
Application.CommandBars("cell").Enabled = False
With aktW
    .DisplayHeadings = False
    .DisplayWorkbookTabs = False
End With
Application.ScreenUpdating = True
End Sub

     Code eingefügt mit Syntaxhighlighter 2.5

Gruß Sepp
Anzeige

300 Forumthreads zu ähnlichen Themen

PopUp mit Eingabefeld
Peter

Hallo!
Wer kann mir hier weiterhelfen? Ich versuche ein PopUp zu erstellen, in welchem ein Eingabefeld für einen Betrag ist. Der Betrag soll dann in eine Zelle der Tabelle geschrieben werden. Bisher kann ich leider nur diese Pop ups erstellen:
Sub Abfrage() If MsgBox( _ prompt:="Bitte...
27.10.2008 23:54:26
Thread-ID: 1019775
2 Beiträge
Anzeige
Makro: Wenn dann
Julia

Hallo in meiner xls siehe:
https://www.herber.de/bbs/user/60693.xls
sind die Spalten A bis C gegeben
Wie kann ich den gelben Bereich (Spalte D) per Makro auffülen
Immer den letzten Status in Spalte C (nach...) in die entsprechende Zelle von Spalte D (Aktueller Status) zu schrei...
26.03.2009 12:47:12
Thread-ID: 1064207
12 Beiträge
pop up Fenster bei Fehler eines updates
Michael

Hallo!
Ich habe eine Tabelle die alle 30 Minuten im Hindergrund aktualisiert wird. Wenn bei der Aktualisierung ein Fehler auftritt, soll ein popup Fenster erscheinen. (Egal wo ich mich dann aktuell im System befinde/ Word / outlook etc.)
Danke
Gruß Michael
01.10.2009 12:12:04
Thread-ID: 1106590
4 Beiträge
Anzeige
Popup-Fenster
Ringlstetter

Hallo allerseits,
ich möchte nur in einem bestimmten Tabellenblatt ein Popup haben, welches eine Frage stellt. Die Zahl als Antwort soll dann in ein bestimmtes Feld geschrieben werden.
Das Popup soll so lange fragen und die Werte immer ein Feld unter dem letzten eingeben, bis in einem a...
05.03.2010 10:47:24
Thread-ID: 1143587
5 Beiträge
POP UP Fenster
pitmu1@web.de

Hallo zusammen,
suche eine Excel Lösung für folgendes Problem:
Habe z.Bsp. eine Zelle in der die Anzahl meiner Besuche im z.Bsp. April stehen.
Beim Klicken auf diese Anzahl soll nun ein POP UP Fenster geöffnet werden, indem
die einzelnen Besuche mit genauem Termin darinstehen b...
01.07.2010 16:29:31
Thread-ID: 1164979
2 Beiträge
Fensterstatus: xlminimized beim Öffnen setzen
Constantin

Hallo,
es ist mir nicht gelungen, folgendes Problem zu lösen: Ich habe eine Mappe1 im Pfad1, die ich öffne. Da ich dort Gültigkeitsregeln hinterlegt habe, die in Mappe2, Pfad2 stehen bzw. definiert sind (als Liste mit Bezug auf Mappe2), möchte ich Mappe2 (nur READ) beim Öffnen von Mappe1 gl...
04.01.2013 13:03:42
Thread-ID: 1292866
3 Beiträge
PopUp Fenster in bestimmtes Arbeitsblatt
Ann

Hallo Leute,
ich hab ein Workbook, in das ich Daten einlese und verarbeite. Am Ende soll sich ein PopUp-Fenster öffnen, das angibt, dass das Programm fertig ist. Das funktioniert auch soweit, nur habe ich drei Sheets und das PopUp-Fenster öffnet sich im 3. und nicht wie gewollt im 1.
Di...
13.05.2013 16:37:33
Thread-ID: 1312755
4 Beiträge
automatisches EMail wenn Wert überschritten
Julia

Hi!
ich habe eine Exceltabelle mit Messwerten pro Monat. Zu jedem Messwert gibt es einen Grenzwert, den ich "überwachen" muss. Da ich von diesen Tabellen sehr viele habe dachte ich an eine autmatisierte EMail aus Excel heraus, sobald der Grenzwert erreicht bzw. überschritten wurde (Text mus...
24.06.2013 10:16:05
Thread-ID: 1319275
14 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
1
2
11
3
3
4
1
2
3
13
7
2
1
7
5
9
2
7
2
3
1
1
10
5
1