Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.09.2025 22:18:24
Liste mit Links - tricky
26.09.2025 18:34:36
Welches Datum gibt mein M-Code aus?
26.09.2025 10:29:46
Wert aus einer Zelle bei jeder Eingabe in neue Zelle
26.09.2025 08:51:00
Teilinhalt einer Zelle vergleichen
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
184to188
184to188
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Schreibrecht für User in best. Zellen

Forumthread: Schreibrecht für User in best. Zellen

Schreibrecht für User in best. Zellen
26.11.2002 01:42:11
Thomas
In Spalte A einer Tabelle stehen Namen aus einer Domainenanmeldung.

Per API soll nun nur der User Schreibrecht für eine Spalte bekommen, die seiner Domainenanmeldung entspricht.

Beispiel:

In A1 steht Müller, in A2 Meier, in A3 Schulze

Meier meldet sich an der Domaine an und soll im Excel-Blatt
jetzt nur schreibendes Recht auf die Zellen B2 bis B32 haben.

Das ganze soll letztlich in einem Private Sub Workbook_Open()-Modul stecken. Wer weiß Rat?

Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Schreibrecht für User in best. Zellen
26.11.2002 09:07:37
Andreas Schindler
Hallo Thomas,

frag die UserId des Systems ab und setze die Scroll-Area entsprechend.

Gruß
Andreas


Auf Modulebene:
Public Declare Function GetUserName Lib "advapi32.dll" _
Alias "GetUserNameA" _
(ByVal lpBuffer As String, nSize As Long) As Long

Public Declare Function GetComputerName Lib "kernel32" _
Alias "GetComputerNameA" _
(ByVal lpBuffer As String, nSize As Long) As Long


Public Function rgbGetUserName() As String
Dim username As String
username = Space$(256)
If GetUserName(username, Len(username)) Then
rgbGetUserName = Left(username, InStr(username, Chr$(0)) - 1)
End If

End Function

Dann in Deinem Workbook:


benutzername = rgbGetUserName()
Select Case Benutzername
Case Meier
Worksheets("Tabelle1").ScrollArea = "G1:G1"
Case Müller
Worksheets("Tabelle1").ScrollArea = "G2:G2"
End select

Anzeige
Re: Schreibrecht für User in best. Zellen
26.11.2002 09:10:44
Andreas Schindler
Uups. Hatte das Beispiel nicht mehr richtig im HInterkopf.

Dann mach die Abfrage so:

For i = 1 to 32
if cells(i,1) = benutzername then
Bereich = "B" & i & ":B" & i
Worksheets("Tabelle1").ScrollArea = bereich
end if
next i

Re: Schreibrecht für User in best. Zellen
28.11.2002 17:11:45
Thomas
Hat super geklappt, danke!!!
;

Forumthreads zu verwandten Themen

7 a in eine Zelle schreiben
Kai

Hallo zusammen,
wie bekomme ich es hin, in eine Zelle "7 a" (7 Leerzeichen a) zu schreiben? Excel macht mir dann immer 7:00 AM daraus oder 0,29...
Danke
07.08.2008 16:45:31
Thread-ID: 1000024
6 Beiträge
Anzeige Fortschrifsbalgen abbrechen
Jochen

Hi,
wie kann ich folgenden Code auf meiner userForm per Button unterbrechen, bevor die 30 Sekunden abgelaufen sind ? :
https://www.herber.de/bbs/user/54473.xls
Danke mal
Jochen
09.08.2008 21:10:32
Thread-ID: 1000547
4 Beiträge
Userform Textboxinhalte in Zellen schreiben
Gerd

Guten Tag zusammen!
Bitte helft mir bei folgendem Problem:
In einer Userform habe ich eine ganze Reihe Textboxen, in die zum größten Teil Zahlen eingegeben werden.
Nun ist ja bekannt, dass beim Schreiben in Zellen der Inhalt der Textboxen als Text interpretiert wird. Mit der Anweisu...
11.08.2008 14:33:59
Thread-ID: 1000866
3 Beiträge
Userform Textboxinhalte in Zellen schreiben
Gerd

Guten Tag zusammen!
Bitte helft mir bei folgendem Problem:
In einer Userform habe ich eine ganze Reihe Textboxen, in die zum größten Teil Zahlen eingegeben werden.
Nun ist ja bekannt, dass beim Schreiben in Zellen der Inhalt der Textboxen als Text interpretiert wird. Mit der Anweisu...
11.08.2008 14:34:08
Thread-ID: 1000867
5 Beiträge
Darstellung der Schriftfarben stimmen nicht.
Kasimir

Hallo Leute,
ich habe da ein merkwürdiges Problem mit der farblichen Darstellung von Werten. Ich habe eine Datei, in der die Werte in den Schriftfarben blau und rot dargestellt werden. Außerdem sind die Werte als Währung im Format „#.##0,00 €;[Rot]-#.##0,00 €“ formatiert.
Die Datei wird...
11.08.2008 20:29:41
Thread-ID: 1000997
7 Beiträge
If Then mit mehreren Schritten
Pfannen-Meister

Guten Morgen,
leider ist mein Betreff etwas unglücklich formuliert, aber ich weiß nicht, wie ich mein Problem in wenigen Worten zusammen fassen soll:
In VBA nutze ich eine If Then Anweisung. Ist die Bedingungen erfüllt, so soll er mehrer Schritte abarbeiten. Aber wie sage ich ihm, daß...
13.08.2008 10:34:00
Thread-ID: 1001416
5 Beiträge
Ordnerinhalt in Tabelle schreiben
Johann

Hallo Excel-Profis!
Ich brauch wieder einmal eure Hilfe.
Im Archiv habe ich mir den nachfolgenden Code besorgt und ein wenig verändert.
Der Code schreibt den Inhalt des aktuellen Ordners und der Unterordner in die Spalte B einer Tabelle und verlinkt noch dazu die einzelnen Einträge...
15.08.2008 17:19:52
Thread-ID: 1002256
8 Beiträge
Anzeige
Letzte beschriebene Zeile suchen
Thomas3

Guten Morgen zusammen,
ich muß aus über 1000 Listen Daten auslesen. Das ist kein Problem.
Jede Liste sollte so beschrieben werden, dass ab Zeile 13 bis je nach Eintragungen x-Zeile Spalte O gefüllt ist.
In der Spalte 1 ist in der Datenliste eine Formel hinterlegt, die sichtbar aut...
19.08.2008 08:29:00
Thread-ID: 1002780
10 Beiträge
Schreibschutz/bedingte Formatierung Makro
Tobi

Hallo,
Ich übertrage mit Hilfe eines Makros (IF-Funktion) Zahlen aus einem Tabellenblatt in ein anderes welches schreibgeschützt ist. Wenn die Bedingung in der Funktion nicht erfüllt wird dann überträgt es "blank" ("").
Die Zellen welche leer "blank" sind, färben sich dann mit Hilfe der...
20.08.2008 14:39:51
Thread-ID: 1003216
5 Beiträge
Per Code in Workbook_Open Ereignis schreiben
chrdohmen

Hallo Zusammen,
ich würde gerne per VBA Code eine Zeile in das Workbook_Open Ereignis schreiben.
Wie ich einzelne Module hinzufüge weiß ich, allerdings gelingt es mir nicht eine Zeile
Code in das Ereignis zu schreiben.
Kann mir wer helfen bzw. sagen wo ich darüber etwas lesen k...
21.08.2008 08:46:00
Thread-ID: 1003361
3 Beiträge
Anzeige
Textfile Punkt Komma @Christian?
Petra

Hallo Excelianer(innen)
beim Speichern eines Sheets als Textfile wandelt Excel die Kommas in Punkte um.
Wie kann ich nachträglich im Textfile alle Punkte wieder in Komma umwandeln (per VBA)?
Liebe Grüße Petra
22.08.2008 11:24:00
Thread-ID: 1003794
20 Beiträge
Schriftfarbe ändern
mike49

Hallo zusammen,
ich habe eine Arbeitsmappe mit 12 Blättern (Jan-Dez). Die Arbeitszeiten können im Bereich E8:H38 eingegeben werden. In C8:C38 steht das Datum (Format TT.MM.JJJJ) und in D8:D38 der entsprechende Wochentag (Format TTT). Die Arbeitsdauer steht in I8:38 (Format hh:mm). Die Woche...
22.08.2008 14:31:38
Thread-ID: 1003882
4 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige