Live-Forum - Die aktuellen Beiträge
Datum
Titel
23.04.2024 14:59:21
Zellformel in VBA
23.04.2024 14:47:39
Formel SVERWEIS
23.04.2024 14:27:08
Excel - Zellen verketten anhand anderer Spalte
23.04.2024 14:23:45
Gehe zu Tabellenblatt
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
772to776
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
772to776
772to776
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Excel im Hintergrund starten lassen

Excel im Hintergrund starten lassen
16.06.2006 11:04:24
Torge
Hallo,
wer kann helfen?
Bei öffnen meiner Excel-Datei startet eine UserForm in der ein PW und ein Name eingegeben werden muss. Excel starte dabei im Hintergrund und öffnet sich mit der ersten Tabelle die sich aber nur zum Teil darstellt. Ist es möglich Excel zu öffnen bzw. das erste Blatt erst anzuzeigen, wenn in der UserForm die entsprechenden Einträge vorgenommen wurden und diese natürlich richtig waren, sonst schließt sich die Datei wieder.
"Application.ScreenUpdating = False" habe ich eingebaut hat aber leider nicht den gewünschten Effekt, wie ich ihn mir vorstelle.
Hat hier jemand eine Idee?
Vielen Dank an der Stelle.
Gruß Torge

9
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Excel im Hintergrund starten lassen
16.06.2006 11:37:07
Matthias
Hallo Torge,
definiere in einem allg. Modul eine globale Variable:

Public UF_OK As Boolean

Dann in "DieseArbeitsmappe" diesen Code:

Private Sub Workbook_Open()
If Workbooks.Count = 1 Then
Application.Visible = False
UserForm1.Show
If UF_OK Then
Application.Visible = True
Else
Application.Quit
End If
Else
Windows(ThisWorkbook.Name).Visible = False
UserForm1.Show
If UF_OK Then
Windows(ThisWorkbook.Name).Visible = True
Else
ThisWorkbook.Close SaveChanges:=False
End If
End If
Sheets("Tabelle1").Activate
ThisWorkbook.Saved = True
End Sub

Im Userform-Code musst du nun, wenn das Kennwort richtig eingegeben wurde, vor dem Schließen der UF die Variable UF_OK auf True setzen. Dies wird dann im o.a. Code abgefragt.
Gruß Matthias
Anzeige
AW: Excel im Hintergrund starten lassen
16.06.2006 12:00:23
Torge
Hallo Matthias,
vielen Dank für Dein Tipp.
Vielleicht letzte Frage:
Habe meine UserForm so aufgebaut, wo muss das hin " Schließen der UF die Variable UF_OK auf True " und wie definiere ich die globale Variable. Bei mir sieht das so aus:

Private Sub CommandButton1_Click()
'OK geklickt
Application.ScreenUpdating = False
On Error Resume Next
If TextBox1 = "" Then
MsgBox "Bitte überprüfen Sie Ihre Eingaben"
Sheets("Messe-Eingabe").Visible = False
Sheets("Messe-Berechnung").Visible = False
Sheets("Kurz-Eingabe").Visible = False
Sheets("Kurz-Berechnung Neubau").Visible = False
Sheets("Kurz-Berechnung Bestand").Visible = False
Exit Sub
End If
Unload Me
Select Case TextBox2
Case 0 'alle Ausgeblendet
Sheets("Messe-Eingabe").Visible = False
Sheets("Messe-Berechnung").Visible = False
Sheets("Kurz-Eingabe").Visible = False
Sheets("Kurz-Berechnung Neubau").Visible = False
Sheets("Kurz-Berechnung Bestand").Visible = False
Case "Alle" 'Anzeigen
Sheets("Messe-Eingabe").Visible = True
Sheets("Messe-Berechnung").Visible = True
Sheets("Kurz-Eingabe").Visible = True
Sheets("Kurz-Berechnung Neubau").Visible = False
Sheets("Kurz-Berechnung Bestand").Visible = False
Case "Dufti" 'Anzeigen
Sheets("Messe-Eingabe").Visible = True
Sheets("Messe-Berechnung").Visible = True
Sheets("Kurz-Eingabe").Visible = True
Sheets("Kurz-Berechnung Neubau").Visible = True
Sheets("Kurz-Berechnung Bestand").Visible = True
Case Else
Sheets("Messe-Eingabe").Visible = False
Sheets("Messe-Berechnung").Visible = False
Sheets("Kurz-Eingabe").Visible = False
Sheets("Kurz-Berechnung Neubau").Visible = False
Sheets("Kurz-Berechnung Bestand").Visible = False
End Select
Unload Me
Application.ScreenUpdating = True
End Sub

Vielen Dank noch einmal.
Gr. Torge
Anzeige
AW: Excel im Hintergrund starten lassen
16.06.2006 12:07:46
Matthias
Hallo Torge,
und wie definiere ich die globale Variable.
Sagte ich doch schon:
definiere in einem allg. Modul eine globale Variable:

Public UF_OK As Boolean

Deinen Code verstehe ich nicht. Jedenfalls wird nach den Schließen der UF die Variable abgefragt und, wenn nicht True, die Datei geschloseen.
Gruß Matthias
AW: Excel im Hintergrund starten lassen
16.06.2006 12:18:19
Torge
Hallo Matthias,
aus Anfängersicht, muss ich dann im Modul
sub anfeanger()
Public UF_OK As Boolean
end-sub
setzen?
Und bei meinem Code lasse ich einfach bei der Eingabe die entsprechenden Tabellen einblenden.
Hab Dir mal ein Beispiel hochgeladen. Hoffe damit ist es etwas verständlicher.
https://www.herber.de/bbs/user/34410.xls
Gruuß Torge
Anzeige
AW: Excel im Hintergrund starten lassen
16.06.2006 12:28:45
Matthias
Hallo Torge,
aus Anfängersicht, muss ich dann im Modul
sub anfeanger()
Public UF_OK As Boolean
end-sub
setzen?
Nein, in ein allgemeines Modul, ganz oben (evtl. unter "Option Explicit, falls vorhanden), ohne Prozedurrumpf:
Modul1


Option Explicit
Public UF_OK As Boolean
'Hier dann erst die Prozeduren:
Sub Test()
End Sub


Und im Modul des Userforms dann dieser Code:

Private Sub CommandButton1_Click()
'Application.ScreenUpdating = False  'nicht nötig hier
Select Case TextBox2
Case "A"
Tabelle2.Visible = True
Tabelle3.Visible = False
Tabelle4.Visible = False
PW_OK = True
Case "B"
Tabelle2.Visible = True
Tabelle3.Visible = True
Tabelle4.Visible = False
PW_OK = True
Case "C"
Tabelle2.Visible = True
Tabelle3.Visible = True
Tabelle4.Visible = True
PW_OK = True
Case Else
'falsches "Kennwort":
'nix, PW_OK auf False lassen, dann wird die Mappe nach "Unload Me" geschloseen
End Select
Unload Me
Application.ScreenUpdating = True
End Sub
Private Sub CommandButton2_Click()
'hier auch nix, d.h. PW_OK auf False lassen, dann wird die Mappe geschlossen
Unload Me
End Sub


Gruß Matthias
Anzeige
AW: Excel im Hintergrund starten lassen
16.06.2006 13:20:31
Torge
Hallo Matthias,
vielen Dank für die Mühe.
Letzte Frage, bekomme bei "PW_OK = True" immer eine Fehlermeldung Variable nicht definiert. Mach ich da etwas falsch bzw. hab ich die "Public UF_OK As Boolean" ins falsche Modul gepackt? Hab es im ersten Tabellenblatt gelegt. Oder gehört es ins Modul über diese Arbeitsmappe rechte Maustaste Einfügen Modul und dort?
Vielen Dank.
Gr. Torge
AW: Excel im Hintergrund starten lassen
16.06.2006 16:42:50
Matthias
Hallo Torge,
Oder gehört es ins Modul über diese Arbeitsmappe rechte Maustaste Einfügen Modul und dort?
Schon mal was von Ausprobieren gehört? *grummel*
In ein allgemeines Modul, damit meine ich ein manuell eingefügtes, kein Arbeitsmappen-, Blatt- oder Userform-Modul.
und Tschüß
Matthias
Anzeige
AW: Excel im Hintergrund starten lassen
16.06.2006 21:05:52
Torge
Alles klar Matthias,
Danke trotzdem für die Hilfe und wünsch Dir ein schönes Wochenende.
Gruß Torge
AW: Excel im Hintergrund starten lassen
16.06.2006 11:38:01
Steve
Hallo Torge
Wahrscheinlich geht das nicht ... bin aber kein Experte
Ich hatte etwas ähnliches auch mal gemacht:
----------------------------------------------------------------------------
Beim öffnen alle Arbeitsblätter schwarz eingefärbt und alles geschützt...
Wenn PW richtig dann Schutzaufheben und Weiss einfärben...
----------------------------------------------------------------------------
Es würde mich aber auch interessieren wie man das am Besten (Elegantesten) bewerkstelligt
Gruss Steve
Anzeige

56 Forumthreads zu ähnlichen Themen

Outlook Express nimmt kein VBA an? ... die 2te
greenhorn

Hallo,
mein Thread ist leider schon ins Archiv gewandert: https://www.herber.de/forum/archiv/1000to1004/t1002911.htm
Ich beziehe mich nochmal auf die letzte Nachricht von Rainer:
Hallo Was willst du denn übergeben ? Dein Makro "sende_stoermeldung" ist nicht dafür geeignet einen Pa...
27.08.2008 13:15:57
Thread-ID: 1005065
12 Beiträge
Anzeige
Outlook minimiert starten
Chris

Hallo Forum,
folgendes Makro öffnet mir Outlook aus Excel heraus.
Weiss jmd. wie man Outlook per VBA minimiert öffnet? vbminimzed funktioniert leider nicht, es wird einfach in einem kleineren Fenster geöffnet.
Bei der Gelegenheit: Gibt es eine Möglichkeit Outlook immer dann zu been...
23.07.2011 18:46:23
Thread-ID: 1223120
2 Beiträge
mit VBA (aus Excel) eine Outlook-2010-Mail erstell
Mischa

Hallo,
wie ist der VB6- Code, um aus einer Anwendung wie zB Excel heraus eine Outlook 2010 - Email zu erstellen?
Will nach KLick auf Button bestimmte Zellinhalte per Mail versenden,
mit bisherigen Outlook-Versionen wars kein Problem - bin aber jetzt umgestiegen ...
Danke für je...
22.02.2012 22:51:53
Thread-ID: 1252010
2 Beiträge
Anzeige
Outlook Kalendereinträge aus Excel mit VBA
Sebastian

Hallo Zusammen,
ich bin es nochmal...
Wie kann ich Termindaten, die mit Datum/Uhrzeit, Text, Ort und Kategorie in einer Excel-Tabelle vorhanden sind in Outlook per VBA Eintragen lassen.
Ich muss da ja ein importierbares Format erzeugen... oder kann ich den termin direkt in Outlook e...
09.10.2013 16:29:13
Thread-ID: 1333796
2 Beiträge
Daten von VBA Tool in Outlook exportieren
VBA

Guten Tag zusammen
Ich habe ein Tool erstellt, welches jeweils ein Datum und eine Beschreibung aus einer Exceltabelle in eine ListView lädt. In dieser kann man dann per Checkbox entscheiden welche Termine man exportieren möchte.
Das klappt eigentlich alles soweit wie es sollte, nur dass...
07.11.2013 10:48:41
Thread-ID: 1337473
2 Beiträge
Standard-Browser starten beim öffnen von Mappe
Mappe

Guten Tag
Ich hoffe sehr, dass mir jemand von Euch VBA-Profis bei meinem Vorhaben behilflich sein kann ?
Und zwar soll beim Öffnen einer Excel-Arbeitsmappe folgendes automatisch geschehen:
Es soll geprüft werden, ob bereits ein Fenster mit dem Standard-Webbrowser geöffnet ist.
F...
13.01.2014 08:13:31
Thread-ID: 1344947
4 Beiträge
Outlook-Signatur in VBA erstellte Mail rein
Rüdiger

Hallo Excel-Outlook-VBA-Freaks,
auf Grundlage einer Adressliste in Excel (EMail-Adresse usw.) erzeuge ich Mails, die über Outlook versendet werden.
Jetzt soll ich auch unsere Standard-Signatur unter die automatisch erstellten Mails hängen, also am Ende von oMail.body anfügen.
In d...
25.01.2014 19:04:02
Thread-ID: 1346665
3 Beiträge
VBA für alle markierten Mails ausführen (Outlook)
Thomas

Hello Ihr lieben Profis,
ich benötige mal wieder ein klein wenig Hilfe. Ich möchte in Outlook 2010 allen markierten E-Mails eine individualisierte Antwort per VBA Script zukommen lassen. Dabei soll in jeder Mail aus dem Absenderfeld der Nachname ausgelesen und zum Anfang ausgewählt werden o...
21.03.2014 15:03:22
Thread-ID: 1354386
2 Beiträge
Anzeige

Links zu Excel-Dialogen

CommandButton TextBox

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
11
3
1
1
6
1
1
3
2
1
8
2
5
1
11
4
1
1
2
7
1
5
9
2
1