Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1004to1008
1004to1008
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zweite Datei starten für bestimmte Benutzer ?

Forumthread: Zweite Datei starten für bestimmte Benutzer ?

Zweite Datei starten für bestimmte Benutzer ?
04.09.2008 00:01:00
Selma
Hallo Leute,
gibt es die Möglichkeit folgendes per VBA zu lösen....
Beim Starten der Datei "Daten.xls" eine zweite Datei "m:\pers\Stammdaten.xls" zu starten, aber nur für folgende Windows-Benutzer: Administrator, SelmaM, AndreaB, ansonsten soll die Datei nicht mitgestartet werden.
Vielen Dank im Voraus !
Liebe Grüße,
Selma
Anzeige

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zweite Datei starten für bestimmte Benutzer ?
04.09.2008 00:41:37
Case
Hallo Selma,
probiere mal folgendes unter "DieseArbeitsmappe" in der Datei "Daten.xls":

Option Explicit
Private Sub Workbook_Open()
Select Case Environ("Username")
Case "Administrator", "SelmaM", "AndreaB"
Workbooks.Open ("M:\pers\Stammdaten.xls")
End Select
End Sub


Servus
Case

My Blog :-)


Anzeige
AW: Zweite Datei starten für bestimmte Benutzer ?
04.09.2008 09:11:46
Selma
Hallo Case,
ich habe vergessen zu erwähnen, dass die Groß- und Kleinschreibung beim Benutzername nicht berücksichtigt werden soll. Was muss noch geändert werden?
Danke !
Liebe Grüße,
Selma
AW: Zweite Datei starten für bestimmte Benutzer ?
04.09.2008 09:14:53
Hajo_Zi
Hallo Selma,
schreibe alle Namen Groß und Ucase(Environ("Username"))

Anzeige
AW: Zweite Datei starten für bestimmte Benutzer ?
04.09.2008 09:45:00
Selma
Hallo Hajo,
es funktioniert.
Eine Frage noch: Ich habe den Code jetzt wie folgt....
Option Explicit

Private Sub Workbook_Open()
Select Case UCase(Environ("Username"))
Case "ADMINISTRATOR", "SELMAM", "ANDREAB"
Workbooks.Open ("M:\pers\Stammdaten.xls")
End Select
Windows("Daten.xls").Activate
End Sub




Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim wks As Variant
For Each wks In Workbooks
If wks.Name = "Stammdaten.xls" Then
Workbooks("Stammdaten.xls").Activate
ActiveWorkbook.Close SaveChanges:=False
Exit For
End If
Next
Me.Saved = True
End Sub


Die Datei "Stammdaten.xls" soll beim Schließen der Datei "Daten.xls" ohne Speichern mitgeschlossen werden. Wenn ich die Datei "Daten.xls" editiert / modifiziert habe, und anschließend die Datei schließe werden die Änderungen nicht gespeichert. Woran liegt es ?
Liebe Grüße,
Selma

Anzeige
AW: Zweite Datei starten für bestimmte Benutzer ?
04.09.2008 09:51:05
Hajo_Zi
Hallo Selma,
ich baue das jetzt nicht nach

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim wks As Variant
For Each wks In Workbooks
If wks.Name = "Stammdaten.xls" Then
Workbooks("Stammdaten.xls").close False
Exit For
End If
Next
Me.Saved = True ' dieses gilt für die Datei in der der Code ist
End Sub


Gruß Hajo

Anzeige
AW: Zweite Datei starten für bestimmte Benutzer ?
04.09.2008 10:05:00
Selma
Hallo Hajo,
vielen Dank !
Liebe Grüße,
Selma
;

Forumthreads zu verwandten Themen

Mappe mit variablen Dateinamen aktivieren
Peter

Hallöchen an alle,
wie kann man eine geöffnete Mappe über workbooks.activate oder windows.activate ansprechen, ohne dass man den vollen Dateinamen kennt.
Dateiname = "Auftragskennzahlen(*).xls"
Das * steht für eine Zahl, die mir nicht bekannt ist, sondern von einer Web-Datenbank ver...
07.08.2008 17:27:58
Thread-ID: 1000047
4 Beiträge
Eingabe formatiert zurückgeben (Komma und Punkt)
Lemmi

Hallo zusammen,
ich möchte Euch eine wahrscheinlich einfache Frage stellen, die ich mir gerade mal nicht beantworten kann!
Wie stelle ich sicher das auch wenn ein Punkt als Trennzeichen eingegeben worden ist, am Ende immer ein Komma in der Zelle steht?
Eingabe 10,0........Ausgabe...
07.08.2008 21:35:00
Thread-ID: 1000105
5 Beiträge
Anzeige
Komplizierte Wenn-Formel für kicker-Spiel
Frank

Hallo miteinander,
ich möchte eine Excel-Datei für das offizielle Fussball-kicker-Managerspiel erstellen, leider scheitere ich total an (vermutlich) den WENN-Formeln ..... vielleicht ist das aber auch gar nicht möglich, was ich erreichen möchte :-(
In der Tabelle sollte man in Spalte A...
08.08.2008 07:28:06
Thread-ID: 1000146
4 Beiträge
Wenn-Formel und Drop-down Menü
Tommy

Hallo,
ich habe ein Problem.
Ich möchte immer dann, wenn ich einen Wert im Drop-down Menü auswähle, dass eine bestimmte Zelle gelöscht wird. Ein vereinfachtes Beispiel seht Ihr im Anhang.
https://www.herber.de/bbs/user/54449.xls
Danke & Gruss
Tommy
08.08.2008 14:41:00
Thread-ID: 1000304
3 Beiträge
Diagramm löschen
Bernd

Hallo Gemeinde,
ich wollte in einem Blatt ein Diagramm mitsamt den umgebenden Zeilen löschen.
Nun erscheint das Diagramm als schmaler, nicht anklickbarer Strich und es macht mir lauter Probleme - wie die Fehlermeldung "die Formel enthält einen ungültigen Bezug zu einer externen Tabell...
08.08.2008 15:06:00
Thread-ID: 1000313
6 Beiträge
Automatische Umwandlung Punkt in Komma
Harry

Liebe Excel-Gemeinde,
ich möchte aus einer csv-Datei (die eine konstante Spalten- aber unterschiedliche Zeilenzahl hat) Text in Zahlen wandeln (also z. B. 1.234 in 1,234).
Dazu gibts im Forum viele Vorschläge. Ich habe dazu die Formel =WERT(WECHSELN(A1;".";",")) gefunden.
Diese Fo...
08.08.2008 21:00:38
Thread-ID: 1000413
5 Beiträge
Zellen formatieren mit vorangehenden "Nullen"
Addi

Hallo zusammen,
ich habe eine lange Liste, in der in einer Spalte Daten stehen, wo ab und zu vorangehende Nullen nötig sind (mal eine - mal 2...etc.) - und manchmal auch keine.
Wie kann ich diese Zellen formatieren, das die vorangehenden "Nullen" nicht automatisch weggelassen werden?
11.08.2008 10:37:00
Thread-ID: 1000746
8 Beiträge
CommondButton Namen zuweisen
Frank

Hallo Ihr lieben Excelfreunde!!!
Kurze Frage: in einer Tabelle befinden sich einige Steuerelemente - CommandButton's", diesen würde ich gern definierte Namen zuweisen. Beispiel: CommandButton1 soll mit dem Inhalt der Zelle AP1 beschriftet sein, CommandButton 2 mit dem Inhalt der Zelle AP2 u...
11.08.2008 13:10:00
Thread-ID: 1000824
4 Beiträge
Befehlsschaltfläche zum Versenden einer e-Mail
Roland

Hallo. Ich habe eine für mich sehr harte "Nuss" zu knacken. Ich habe über Excel ein Rechnungsprogramm erstellt. jetzt möchte ich diese Rechnung immer per e-mail versenden. Ich brauche eine Befehlsschaltföläche, die einen bestimmten Bereich als e_mail versendet. Also.... Die Schaltfläche sollte...
11.08.2008 13:17:00
Thread-ID: 1000827
2 Beiträge
Anzeige
Zeilen Kopieren mit Formeln u. Formaten
Lemmi

Hallo zusammen,
ich möchte einen Block (5Zeilen) am Ende einer Tabelle einfügen!
Diese Zeilen sollen mit ihren Formaten unf Formel Kopiert und am Ende der Leiste eingefügt werden!
Die Formeln sind in den Roten Zellen.
Die Zellen sonst sind bis auf Spalte A und B ohne Inhalt!
11.08.2008 14:11:35
Thread-ID: 1000856
5 Beiträge
Hilfe Kompatibilitätsproblem
christian

Hallo liebe Excel Gemeinde,
ich habe leider immer noch das Kompatibilitätsproblem!
Zum Verständnis nochmal die Anforderungen an den Code:
Importieren aller in einem Ordner befindlichen Textdateien (Messwerte) in neue Tabellenblätter
Das funktioniert auch alles super, da hat Rud...
11.08.2008 15:48:30
Thread-ID: 1000895
13 Beiträge
Excel mit DropDown Menü und Aktualisierung
ML

Hallo,
beschäftige mich nochnet lange mit Excel und habe folgende Frage:
Ich will mir auf einem Tabellenblatt auf dem ich mehrere Produkte aufgelistet habe untereinander, in der Zelle oben wo Artikelnummer steht, mir ein DropDown-Menü erstellen, in dem alle Artikelnummern aufgelistet si...
11.08.2008 17:17:00
Thread-ID: 1000925
5 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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