Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.10.2025 19:34:56
Eine Zelle in 3 Spalten teilen
20.10.2025 19:24:08
Excel Form befüllen
20.10.2025 19:03:51
wenn istleer funktioniert nicht wegen formel
20.10.2025 13:56:55
Wenn Funktion mit Xverweis oder ähnlich
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
876to880
876to880
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Spalten entsprechend Benutzer ein-/ausblenden

Forumthread: 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

Anzeige

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 ?

Anzeige
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

Anzeige
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.

Anzeige
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
;

Forumthreads zu verwandten 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
Automatisch Spalten ausblenden - mit einem Makro?
Jan

Hallo nochmal!
Ich wurde gerade schon einmal in Weltrekordzeit bei meinem anderen Problem geholfen. Vielen herzlichen dank! Nun stehe ich aber erneut vor einer für mich schwierigen Aufgabe. Folgendes Problem:
Wir sind mehrere Gewerke die an einer Excel Tabelle arbeiten. Die Excel Tabell...
28.07.2009 15:46:49
Thread-ID: 1091988
7 Beiträge
Nicht benötigte Spalten löschen
Martin

Hallo miteinander
Ich habe eine Excel-Tabelle mit etwa 80 Spalten. In Zeile 1 ist jeweils der Titel der Spalte, z.B. Name, Vorname, Strasse, Ort, Nummer etc.
Für gewisse Auswertungen braucht's jedoch nur einen kleinen Teil der vielen Spalten, alle anderen können gelöscht werden.
Ich...
11.12.2009 15:24:34
Thread-ID: 1123354
5 Beiträge
Gefilterte Spalten ohne Inhalt ausblenden +++ | Herbers Excel-Forum
urs
Guten Tag allerseits
Hat jemand eine Macro-Anwendung um das folgende Problem zu lösen?
Ich benutze grosse Dateien die ich:
A. filtere und sortiere (Soweit so gut, das wird immer von Hand gemacht)
B. allle Spalten, deren Zellenwerte ausser der Überschrift leer oder =0 sind...
14.01.2010 12:50:03
Thread-ID: 1129880
4 Beiträge
Spalten ein und ausblenden mit TOOLBOX
Jochen

Hallo Freunde,
ich habe eine Tabelle in der einige Spalten selten genutzt werden und das ewige ein- und ausblenden über
"Format - Spalten - ausblenden"
ist umständlich.
Kann ich nicht mit der TOOLBOX einen Schalter erzeugen der das gleiche macht nur schneller und komfortabeler.<...
29.01.2010 17:26:51
Thread-ID: 1134214
22 Beiträge
Spalten auslesen und Wert ausgeben mit W_Change+Se
info@edv-fiegl.de

Hallo zusammen,
ich habe ein Problem mit meinem Makro. Ich möchte in Spalte B einige hundert Artikelnummern einkopieren und ein Makro soll mir dann in Spalte C den Wert ausgeben. Das Auslesen des Produktes funzt schon leider bringe ich es nur so hin dass der ausgelesene Wert in eine bestimm...
20.07.2010 12:39:11
Thread-ID: 1167867
4 Beiträge
Spalten ausblenden mit 2 Checkboxen
Kai

Hallo zusammen,
ich habe folgendes Problem:
Ich möchte mit Hilfe von 2 Checkboxen Spalten ausblenden, was eigentlich kein Problem darstellt. Problematisch wird es deshalb, weil der Bereich der durch die Zweite Checkbox ausgeblendet werden soll, Teil des Bereichs ist, der durch Checkbox...
26.07.2011 09:58:08
Thread-ID: 1223644
3 Beiträge
2 Spalten mit 2 Spalten vergleichen + kopieren
poppi1984

Hallo Leute!
Ich hoffe ihr könnt mir helfen!
Habe ca.30.000 Datensätze
Spalte A(Ziel) & B(Produkt) sollen mit H(Ziel) & I(Produkt) verglichen werden.
Wenn beide Identisch sind soll jeweils der wert aus C & D nach O & P kopiert werden.
Hier nochmal zur Ve...
10.10.2011 08:26:55
Thread-ID: 1233124
9 Beiträge
Spalten ein- und ausblenden mit VBA
Marko

Hallo in die Runde,
Mein Ziel ist, Spalten in Abhängigkeit eines Zelleintrages (D4:AC4) auszublenden. Das soll nach der Dateneingabe geschehen, durch Setzen eines Hakens in einer Checkbox. Für Nachbearbeitung sollen selbsverständlich die ausgeblendeten Zellen wieder einblendbar sein (Deakti...
18.07.2012 18:37:20
Thread-ID: 1271740
3 Beiträge
Spalten ein/ausblenden mit Bedingung
Susi

Hallo,
ich habe eine Datei bei der ich automatisch Spalten ein/Bzw. ausblenden möchte wenn eine bestimmte Bedingung erfüllt ist.
Anbei einmal meine Excel Datei.
Ab Spalte N hat jede Periode 2 Spalten FC und Actual. Sobald dann in der jeweiligen 1. Zeile eine eins steht soll nur noch...
17.10.2013 16:01:39
Thread-ID: 1334777
2 Beiträge
Anzeige
Spalten ein- ausblenden mit Optionsfeldern
Thomas

Hallo Forum,
ich möchte über Optionsfelder Spalten ein- bzw. ausblenden.
Wenn A4 = 1, dann sollen die Spalten E+F ausgeblendet und C+D eingeblendet werden.
Wenn A4 = 2, dann sollen die Spalten C+D ausgeblendet und E+F eingeblendet werden.
Ich habe dies in einer Beispielmappe dar...
10.04.2014 13:24:13
Thread-ID: 1356884
5 Beiträge
Anzeige
Spalten ausblenden mit zwei CheckBoxen
Alexander

Hallo liebe Forumsmitglieder,
als absoluter VBA-Neuling habe ich innerhalb der letzten Wochen versucht, mir ein paar Kenntnisse - über einschlägige Forenbeiträge und Suchmaschinenergebnisse bin ich auch bereits etwas vorangekommen - anzueignen. Doch nun komme ich bedauerlicherweise nicht we...
14.05.2014 15:09:31
Thread-ID: 1361586
17 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige
Anzeige

Infobox / Tutorial

Spalten entsprechend Benutzer ein-/ausblenden

Schritt-für-Schritt-Anleitung

Um in Excel nicht benötigte Spalten auszublenden und diese entsprechend dem Benutzer ein- oder auszublenden, befolge diese Schritte:

  1. Öffne den VBA-Editor:

    • Drücke ALT + F11, um den VBA-Editor zu öffnen.

  2. Füge den Code in das richtige Modul ein:

    • Im Projektexplorer klickst du auf "Microsoft Excel Objekte" und doppelklickst auf "DieseArbeitsmappe".

  3. Gib den folgenden Code ein:

    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
       Application.Goto Range("A1"), True  ' Zum Anfang der Tabelle springen
   End With
End Sub

  4. Speichere die Datei als Makro-aktivierte Arbeitsmappe (.xlsm), um die Funktionalität zu erhalten.

  5. Schließe den VBA-Editor und teste die Datei, indem du sie öffnest.

Häufige Fehler und Lösungen

  • Fehler: Laufzeitfehler '1004':

    • Dies kann passieren, wenn die Range nicht korrekt angegeben ist. Stelle sicher, dass die Spaltenbezeichnung korrekt ist und der Punkt (.) vor Range nicht fehlt.

  • Problem: Spalten werden nicht sofort angezeigt:

    • Wenn die Spalten erst nach einem Klick sichtbar werden, füge Application.Goto Range("A1"), True nach dem Einblenden der Spalten hinzu, um sicherzustellen, dass der Fokus auf die Zelle gesetzt wird.

Alternative Methoden

Wenn du Excel ungenutzte Bereiche ausblenden möchtest, kannst du dies auch manuell tun:

  1. Rechtsklick auf die Spaltenüberschrift der Spalte, die du ausblenden möchtest.
  2. Wähle "Ausblenden" aus dem Kontextmenü.

Für eine dynamische Lösung kannst du auch Formeln verwenden, um nicht genutzte Zellen zu identifizieren und diese dann über VBA auszublenden.

Praktische Beispiele

  1. Benutzer "werner" sieht alle Spalten von A bis H.
  2. Benutzer "Unger" sieht nur die Spalten B, E, F und H.
  3. Benutzer "meier" hat Zugriff auf die Spalten A, D und J bis L.

Diese Konfiguration stellt sicher, dass jeder Benutzer nur die relevanten Daten sieht und excel nicht genutzte spalten ausblenden kann.

Tipps für Profis

  • Verwende LCase, um sicherzustellen, dass die Benutzernamen unabhängig von der Groß- und Kleinschreibung korrekt zugeordnet werden.
  • Nutze Application.Goto, um die Sichtbarkeit der Spalten zu verbessern und den Fokus automatisch zu setzen, was die Benutzererfahrung erhöht.
  • Halte deine VBA-Codes sauber und kommentiere sie, um zukünftige Anpassungen zu erleichtern.

FAQ: Häufige Fragen

1. Wie kann ich alle unbenutzten Spalten auf einmal ausblenden? Um alle unbenutzten Spalten auszublenden, kannst du die .Columns.Hidden = True Methode verwenden, bevor du spezifische Spalten einblendest.

2. Funktioniert dieser Code in allen Excel-Versionen? Ja, der Code sollte in den meisten modernen Excel-Versionen (ab Excel 2007) funktionieren, solange VBA unterstützt wird.

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