Spalten entsprechend Benutzer ein-/ausblenden

Forumthread: Spalten entsprechend Benutzer ein-/ausblenden
1 Beitrag zu diesem Forumthread
Anzeige
VBA Beispiele zu verwandten Themen

Forumthread: Spalten entsprechend Benutzer ein-/ausblenden

11.06.2007 15:49:00

Marcel1978

Hallo,
ich suche eine Möglichkeit, in einer umfangreichen Excel-Tabelle,
die verschiedene Benutzer übers Netzwerk bearbeiten müssen (nicht gleichzeitig),
gewisse Spalten automatisch ausblenden zu lassen.
Das Kriterium für eine sichtbare bzw. ausgeblendete Spalte soll der
angemeldete Benutzer sein. Es sind mindestens 5 Benutzer.
Das heißt z.B. Benutzer1 öffnet die Datei und sieht Spalte A,B,C,D.
Benutzer2 öffnet die gleiche Datei später und sieht nur Spalte A,D (B u. C sind ausgeblendet)
Benutzer3 sieht in der Datei dann nur Spalte C (A,B und D sind ausgeblendet)
Ich danke für die Hilfe.
Marcel
PS: bei Makro, bitte alles reinschreiben was ich dazu brauche (kaum Vorkenntnisse)

1
Beitrag zum Forumthread

Beitrag zu diesem Forumthread

Betreff

Datum

Anwender

AW: Spalten entsprechend Benutzer ein-/ausblenden

11.06.2007 16:01:09

Rudi

AW: Spalten entsprechend Benutzer ein-/ausblenden

11.06.2007 16:01:09

Rudi

Hallo,
in DieseArbeitsmappe:


Private Sub Workbook_Open()
With Sheets(1)
.Columns.Hidden = True  'alles ausblenden
Select Case LCase(Environ("Username"))
Case "benutzer1": .Range("A:D").Hidden = False
Case "benutzer2": .Range("A:A,D:D").Hidden = False
Case "benutzer3": Range("C:C").Hidden = False
End Select
End With
End Sub

Gruß
Rudi
Eine Kuh macht Muh, viele Kühe machen Mühe