Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 10:08:11
Summieren von Zellen mit bedingter Formatierung
26.04.2024 09:08:00
Export alle Tabellenblätter als csv - in bestimmten Ordner
26.04.2024 08:56:40
Über alle Spalten nur €-Werte zählen
26.04.2024 08:08:24
Pivot Vormonatsveränderung
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1596to1600
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
1596to1600
1596to1600
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Mapppe nur für hinterlegte Benutzer freigeben

Mapppe nur für hinterlegte Benutzer freigeben
19.12.2017 17:34:45
Der
Hallo und guten Abend alle zusammen.
Ich bin neu im Forum. Bis zum heutigen Tag habe ich meine Makros immer aus Schnipseln zusammengebaut die im Netz zu finden sind.
Das hat bis Dato auch ganz gut funktioniert.
Aber mit dem Ziel das ich mir dieses mal gesteckt habe, bin ich ein wenig überfordert. :o(
Also mein Ziel ist:
Den aktuellen Benutzer auslesen und in einer Zelle eintragen zu lassen.(Das habe ich !)
Nun möchte ich in zehn weiteren Zellen Benutzer hinterlegen welche mit dem aktuellen Benutzer abgleichen möchte.
Ist nun einer der hinterlegten Benutzer richtig, soll ein Makro ausgeführt werden. (zb Makro 1 )
Ist keiner der hinterlegten Benutzer richtig soll Makro 2 ausgeführt werden.
Ich hoffe das das mit vba zu bewerkstelligen ist und danke schon mal für eine gute Zusammenarbeit.

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Mapppe nur für hinterlegte Benutzer freigeben
19.12.2017 17:41:14
Hajo_Zi 

Option Explicit
Sub Benutzer_Finden()
Dim Rafound As Range
Set Rafound1 = Range("A2:A10").Find(Range("A1"), , xlFormulas, _
xlWhole, , xlNext)
If Rafound Is Nothing Then
Makro2
Else
Makro1
End If
End Sub

Ich gebe keinen Dank für eine Rückmeldung, da ich durch solche Beiträge nicht meine Beitragszahl erhöhen muss.
Also ich schreibe keine Beiträge mit dem Betreff "Gerne u. Danke für die Rückmeldung. o.w.T."
Rückmeldung ist ja in der Heutigen Zeit nicht üblich und die wenigen die eine Rückmeldung geben,
mögen mir das verzeihen, das kein Danke für eine Rückmeldung kommt.
Beiträge von Werner, Luc, robert und folgende lese ich nicht.
Anzeige
AW: Mapppe nur für hinterlegte Benutzer freigeben
19.12.2017 18:41:17
Der
Hallo Hajo,
vielen Dank für die schnelle Antwort.
Habe sofort in abgeänderter Form ausprobiert. passt nicht ganz .o(
es wird immer Makro 2 ausgeführt.
Code:
Sub auto_open()
Worksheets("Tabelle1").Range("A1") = Environ("UserName")
Dim Rafound As Range
Set Rafound1 = Range("A2:A10").Find(Range("A1"), , xlFormulas, _
xlWhole, , xlNext)
If Rafound Is Nothing Then
Makro2
Else
Makro1
End If
End Sub
Mach ich was falsch ?
AW: Mapppe nur für hinterlegte Benutzer freigeben
19.12.2017 18:45:25
Hajo_Zi
Warum auto_open()
und nicht
Private Sub Workbook_Open()
nur wenige schauen auf Deinen Rechner und sehen die Datei.
Ich möchte gerne den Fehler im Original sehen.
Ich baue keine Datei nach. Die Zeit hat schon jemand investiert.
Ein Nachbau sieht meist anders aus als das Original. Darum sollte das Original verlinkt werden.
Wenn du an Stelle einer Demomappe deine Originalmappe hochladen willst, diese aber sensible Daten enthält, kannst du diese Daten anonymisieren bzw. pseudonymisieren.
Gruß Hajo
Anzeige
AW: Mapppe nur für hinterlegte Benutzer freigeben
19.12.2017 19:18:01
Der
Ok, war wohl nicht ganz so gut erklärt.Die Datei ist für die Arbeit. Jeder Mitarbeiter hat die Möglichkeit die Datei über einen Client zu öffnen. Ich möchte aber die Benutzerzahl einschränken.
Also, A1 gibt den aktuellen Benutzer aus und dann sollen die hinterlegten Benutzer A2:A11 Freigaben erhalten oder aber nicht. ( Makro 1 oder 2)
Ich hoffe es ist verständlich
AW: Mapppe nur für hinterlegte Benutzer freigeben
19.12.2017 20:06:52
Bernd
Servus,
da hat sich ein Tippfehler eingeschlichen... 
Sub auto_open()
Worksheets("Tabelle1").Range("A1") = Environ("UserName")
Dim Rafound As Range
Set Rafound1 = Range("A2:A10").Find(Range("A1"), , xlFormulas, _
xlWhole, , xlNext)
If Rafound Is Nothing Then
Makro2
Else
Makro1
End If
End Sub

Da hat HaJo wohl aus Versehen eine "1" zuviel hinter "Rafound" gesetzt.
Grüße Bernd
Anzeige
AW: Mapppe nur für hinterlegte Benutzer freigeben
20.12.2017 15:44:51
Der
Was eine Zahl so ausmacht :o)
Vielen lieben Dank für die superschnelle Hilfe !

44 Forumthreads zu ähnlichen Themen

Automatisch berechnen nur in einem Tabellenblatt
Gerrit

Moin,
habe das automatische berechnen gernerell ausgeschaltet, jedoch bei einem Tabellenblatt brauche ist es.
Gibt's hier ne Möglichkeit?
Vielen Dank!
Gerrit
20.06.2009 23:56:05
Thread-ID: 1083169
22 Beiträge
Anzeige
Makro nur auf ein Tabellenblatt anwenden?
Andreas

Salü
Das nachstehende Makro habe ich in einem Dokument gefunden. Leider läuft die Abfrage immer über alle, im Dokument angelegten Tabellenblätter. Ich möchte aber, dass die Abfrage nur im aktiven Tabellenblatt stattfindet. Was muss ich, wie anpassen?
Ich danke für die Hilfe.
Gruss A...
27.03.2011 19:18:08
Thread-ID: 1207841
4 Beiträge
nur ein Tabellenblatt manuell berechnen?
Marcy

Hallo Forum,
habe eine riesen Vorlage (Tabellenblatt "LAYOUT" (A1:CN35803)) erstellt.
In Tabellenblatt "gedreht" ist ausschließlich =MTRANS
Dieses Tabellenblatt benötige ich erst ganz zum Schluß, macht aber bei jeder Eingabe in "LAYOUT" alles langsam.
Wie kann ich die automatisc...
31.10.2011 13:55:52
Thread-ID: 1236029
9 Beiträge
Anzeige
Suchen/Ersetzen nur auf einem Tabellenblatt?!?
Marten

Guten Morgen,
ich komme bei dem Suchen/Ersetzen Befehl nicht weiter. Dieser sollte eigentlich nur auf ein Tabellenblatt begrenzt werden. Das funktioniert aber nicht und es wird in der gesamten Mappe ersetzt.
Hier der Code:
With Worksheets("Tabellenblatt").Range("I2:X" & LetzteZe...
23.11.2015 08:49:21
Thread-ID: 1460051
9 Beiträge
Neue Exceldatei mit nur einem Tabellenblatt
Peter Weber
Hallo Zusammen,
ich habe eine Datei X mit 10 Tabellenblättern (Tabelle1 bis Tabelle10).
Es soll nun eine neue Excelldatei (Datei Y) per VBA erstellt werden aber nur mit der Tabell5.
Wie kann man das am geschicktesten machen?
Danke für Eure Hilfe
LG, Peter
21.06.2016 14:22:41
Thread-ID: 1500132
6 Beiträge
Jeweils nur ein Tabellenblatt anzeigen
Rene

Hallo!
Ich habe eine Arbeitsmappe mit mehreren Tabellenblättern (KW1 bis KW52).
Mir ist schon mal eine Datei untergekommen, die jeweils nur ein Tabellenblatt (von vielen) angezeigt hat; mittels Pfeiltasten (vor und zurück) konnte man zwischen den Tabellenblättern navigieren. Das würde...
13.07.2016 16:29:16
Thread-ID: 1504286
3 Beiträge
VBA PDF von nur einem Tabellenblatt
nur

Guten Ábend,
Kann mir jemand bei einem Code helfen?
Möchte mittels Makro ein Arbeitsblatt (von mehreren) meiner geöffneten Mappe als PDF mit Datum im Ursprungsordner speichern. (sollte im Hintergrund ablaufen- nur ein OK Hinweis, wenn erledigt)
Z.B das Tabellenblatt "Stückzahl" au...
03.11.2016 19:23:44
Thread-ID: 1522969
6 Beiträge
Daten Scannen nur in ein bestimmtes Tabellenblatt
Huuuh

Hallo,
mein Problem ist das folgende: Ich habe eine Excel Datei mit mehreren Tabellenblättern. In das "Datenblatt" sollen Artikelnummern mit einem Handscanner eingescannt werden. Das funktioniert auch alles soweit.
Nun möchte ich das Ganze aber soweit sperren, dass, wenn eines der and...
14.08.2018 09:19:28
Thread-ID: 1639246
16 Beiträge
Anzeige

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