Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 17:45:21
Shellkommando ausführen, stderr auslesen
18.04.2024 17:41:41
Summe: Bestimmter Bereich mit sverweis
18.04.2024 16:33:24
Worksheets variable
18.04.2024 15:53:31
In Outlook (Exchange) Serientermin erstellen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
876to880
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
876to880
876to880
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Spalten entsprechend Benutzer ein-/ausblenden

Spalten entsprechend Benutzer ein-/ausblenden
20.06.2007 11:43:25
Marcel1978
Hallo,
war im Urlaub, deshalb erst jetzt Danke an Rudi für die Antwort.
Folgendes habe ich in VB-Editor übertragen:

Private Sub Workbook_Open()
With Sheets(1)
.Columns.Hidden = True  'alles ausblenden
Select Case LCase(Environ("Username"))
Case "Unger": .Range("B:B,E:F,H:H").Hidden = False
Case "Werner": .Range("A:Z").Hidden = False
Case "meier": Range("A:A,D:D,J:L").Hidden = False
End Select
End With
End Sub


Die Benutzernamen entsprechen dem "Autor" aus der "Dateiinfo" in den Eigenschaften von Excel-Dateien,
die an den entsprechenden Rechnern erstellt wurden. (Gros/Kleinschreibung beachtet!)
Das Problem ist nun, dass bei den definierten Benutzern trotzdem alle Spalten ausgeblendet sind.
Was ist am Makro noch nicht richtig bzw. wo bekomme ich den richtigen Benutzernamen her?
Danke nochmal.
Marcel

11
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Spalten entsprechend Benutzer ein-/ausblenden
20.06.2007 11:53:00
Rudi
Hallo,
1. LCase wandelt in Kleinbuchstaben um, des halb muss du die Namen klein schreiben.
2. Environ("Username") ist der Netzwerkname des Benutzers, der kann vom Autor abweichen.
Der Autor ist wie unter Extras-Optionen-allgemein und kann jederzeit geändert werden.

Private Sub Workbook_Open()
With Sheets(1)
.Columns.Hidden = True  'alles ausblenden
Select Case LCase(Environ("Username"))
Case "unger": .Range("B:B,E:F,H:H").Hidden = False
Case "werner": .Range("A:Z").Hidden = False
Case "meier": Range("A:A,D:D,J:L").Hidden = False
End Select
End With
End Sub


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

Anzeige
AW: Spalten entsprechend Benutzer ein-/ausblenden
20.06.2007 12:04:37
Marcel1978
Hallo Rudi,
wenn ich "werner" klein schreibe, kommt ein Laufzeitfehler '1004' (Die Hidden-Eigenschaft des Range-Objekts kann nicht festgelegt werden)
Bei Klick auf "Debuggen" ist bei: Case "werner": .Range("A:H").Hidden = False
ab dem Doppelpunkt alles gelb hinterlegt.
Mein Netzwerkname ist "Werner"
Wat nun ?

AW: Spalten entsprechend Benutzer ein-/ausblenden
20.06.2007 12:27:49
Rudi
Hallo,
kleiner Fehler:
.Range("A:H").Entirecolumn.Hidden = False
Gruß
Rudi
Eine Kuh macht Muh, viele Kühe machen Mühe

AW: Spalten entsprechend Benutzer ein-/ausblenden
20.06.2007 12:39:00
Marcel1978
Hab jetzt folgendes drin:

Private Sub Workbook_Open()
With Sheets(1)
.Columns.Hidden = True  'alles ausblenden
Select Case LCase(Environ("Username"))
Case "unger": .Range("B:B,E:F,H:H").EntireColumn.Hidden = False
Case "werner": .Range("A:H").EntireColumn.Hidden = False
Case "meier": Range("A:A,D:D,J:L").EntireColumn.Hidden = False
End Select
End With
End Sub


Laufzeitfehler kommt nicht mehr, aber zeigt immer noch keine Spalten an!

Anzeige
AW: Spalten entsprechend Benutzer ein-/ausblenden
20.06.2007 12:46:17
Rudi
Hallo,
da
Case "meier": Range("A:A,D:D,J:L").EntireColumn.Hidden = False
fehlt der . vor Range
Geh den Code mal mit F8 durch.
Gruß
Rudi
Eine Kuh macht Muh, viele Kühe machen Mühe

AW: Spalten entsprechend Benutzer ein-/ausblenden
20.06.2007 13:14:59
Marcel1978 

Private Sub Workbook_Open()
With Sheets(1)
.Columns.Hidden = True  'alles ausblenden
Select Case LCase(Environ("Username"))
Case "unger": .Range("B:B,E:F,H:H").EntireColumn.Hidden = False
Case "werner": .Range("A:H").EntireColumn.Hidden = False
Case "meier": .Range("A:A,D:D,J:L").EntireColumn.Hidden = False
End Select
End With
End Sub


Also,
mit F8 wird jede Zeile gelb hinterlegt.
Nach case wird nur das gelb hinterlegt was mit dem Benutzer übereinstimmt,
d.h. am Rechner Werner wird nur .Range.... bei Case "werner" gelb.
Danach dann "End Select" usw. (Case "meier" wird dann übersprungen)
Funktioniert auch an den anderen Rechnern.
D.h. Benutzernamen funktionieren, aber die Funktion dahinter mit dem Spaltenausblenden hat noch einen Haken.
Ich weiß, ich bin schon bei der Mehrzahl der Wiederkäuer,
deshalb nochmal tausend Dank für die Mühe ;-) .

Anzeige
AW: Spalten entsprechend Benutzer ein-/ausblenden
20.06.2007 13:43:00
Marcel1978
"Frage noch offen" vergessen, sorry

AW: Spalten entsprechend Benutzer ein-/ausblenden
20.06.2007 14:20:24
Rudi
Hallo,

mit F8 wird jede Zeile gelb hinterlegt


das ist richtig so. 


aber die Funktion dahinter mit dem Spaltenausblenden


Es werden Spalten eingeblendet!
Gruß
Rudi
Eine Kuh macht Muh, viele Kühe machen Mühe

AW: Spalten entsprechend Benutzer ein-/ausblenden
20.06.2007 15:50:00
Marcel1978 

Es werden Spalten eingeblendet!


Tschuldigung,
es ist richtig, dass die Spalten eingeblendet werden sollen.
Aber es wird keine Spalte eingeblendet.
Es ist keine Spalte zu sehen !
Irgendwas stimmt an der Funktion nicht.
Oder an meiner Datei ?
Danke nochmals.

Anzeige
AW: Spalten entsprechend Benutzer ein-/ausblenden
21.06.2007 08:57:00
Marcel1978
So, mein Fehler.
Die Funktion funktioniert, aber die Spalten werden erst eingeblendet, wenn man
z.B. mit den Pfeil-Tasten mal nach links oder rechts geht.
Gibts dazu noch einen Code, damit sofort wenn die Datei geöffnet wird,
die entsprechenden Spalten angezeigt werden ?
Danke nochmals, wie gesagt, keine VBA-Kenntnisse.

AW: Spalten entsprechend Benutzer ein-/ausblenden
21.06.2007 14:26:08
Rudi
Hallo,
im Projektexplorer(das linke Fenster) in deinem Projekt auf Microsoft excel Objekte klicken, dann auf DieseArbeitsmappe doppelklicken und den Code in das rechte Fenster einfügen.

Private Sub Workbook_Open()
With Sheets(1)
.Columns.Hidden = True  'alles ausblenden
Select Case LCase(Environ("Username"))
Case "unger"
.Range("B:B,E:F,H:H").EntireColumn.Hidden = False
Application.Goto Range("B1"), True
Case "werner"
.Range("A:H").EntireColumn.Hidden = False
Application.Goto Range("A1"), True
Case "meier"
.Range("A:A,D:D,J:L").EntireColumn.Hidden = False
Application.Goto Range("A1"), True
End Select
End With
End Sub

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

Anzeige

270 Forumthreads zu ähnlichen Themen

Zelle nichtleer, dann Spalten ausblenden
kellerkind42

hallo.
Ich tue mich sehr schwer mit folgendem Wunsch:
Im Spaltenbereich A-Z:
Im Zeilenbereich 10 -20:
z.B:
Steht in Spalte C etwas in Zeile 10 oder 11 oder 12.... dann Blende diese Spalte aus!
Kann mir bitte jemand auf die Sprünge helfen?
Gruß Reinhardt.
20.08.2008 07:29:00
Thread-ID: 1003062
6 Beiträge
Anzeige
Spalten ein und ausblenden
Marion65

Hallo zusammen, ich habe hier eine ExcelTabelle welche zum Ein- und Ausblenden der Spalten kleine + bzw. - Zeichen hat. Wie kann ich diese selber erstellen? Vielen Dank, Marion. https://www.herber.de/bbs/user/55401.xls
15.09.2008 20:09:56
Thread-ID: 1009885
4 Beiträge
Bei Eintrag in eine Zeile Spalten ein/ausblenden
Matthias

Guten Morgen,
ich bräuchte mal wieder Hilfe :/ Mein Excelhorizont ist stark begrenzt und habe ein für mich unlösbares Problem, da ich keinerlei VAB-Kenntnisse habe. Ich bräuchte eine Lösung für folgende Problemstellung.
Wenn im Feld A50 irgendetwas steht, dann sollen Zeile 22-24 eingeb...
09.10.2008 07:54:00
Thread-ID: 1015202
6 Beiträge
Anzeige
VBA, Notiz ein- und wieder ausblenden
Burghard

Hallo ins Netz,
ich möchte mit Knopfdruck ein Textfeld (mit Inhalt, es existiert schon) oder ein Autoformat (z.B. Gefaltete Ecke) auf dem Blatt an einer bestimmten Stelle für 1 Minute plazieren und danach soll es wieder verschwinden. Also kopieren und dann automatisch die Kopie wieder lösc...
01.12.2008 09:08:18
Thread-ID: 1029158
2 Beiträge
Alle anderen Spalten ausblenden!
lisa

Hallo zusammen
Ich habe ein Macro aufgezeichnet, mit dem ich in der Tabelle 3 Spalte E filtere.
Ich suche nun eine möglichkeit alle anderen Spalten auszublenden!
Hat hierzu jemand eine Idee?
Private Sub CommandButton2_Click() Sheets("Tabelle3").Select Selection.AutoFilter Fie...
04.12.2008 17:16:32
Thread-ID: 1030239
20 Beiträge
spalten einzeln ausblenden
Christian

aloha!
spaltenbereiche ausblenden funktioniert ja so:
Columns("A:BC").Select
Selection.EntireColumn.Hidden = False
aber warum kann ich keine einzelne spalte ausblenden
z.b.: ich möchte "G" und "I" ausblenden, so dachte ich, folgendes wäre richtig:
Columns("G:G").Select
05.12.2008 13:39:56
Thread-ID: 1030438
7 Beiträge
Commandbutton ein und ausblenden
SoulOpa

Hallo und einen schönen Abend,
ich habe eine Frage! und zwar habe ich ein Commandbutton in der Userform erstellt so das der Commandbutton beim Tabellenblatt beim scrollen immer sichtbar ist. Nun würde ich gerne wenn ich die Mappe zwischendurch verlass das der Button verschwindet und wenn ic...
23.01.2009 17:50:27
Thread-ID: 1043094
5 Beiträge
Zeilen Ein. und Ausblenden
KayR

Hallo,
würde gerne folgendes realisieren, hab aber von VBA
kaum Ahnung.
Wenn Tabelle2!A8 = FALSCH, dann sollen in Tabelle1 die
Zeilen 8,9,10 ausgeblendet werden.
Wenn Tabelle2!A8 = WAHR, dann sollen die Zeilen 8,9,10
wieder eingeblendet werden.
Kann mir jemand bitte...
27.01.2009 20:09:00
Thread-ID: 1044366
6 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
5
4
3
5
3
1
19
6
4
5
3
4
3
2
8
5
3
7
6
2
8
4
2
3
21