Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Spalten ein-und ausblenden für Nutzer

Spalten ein-und ausblenden für Nutzer
28.02.2023 15:10:04
Thomas
Hallo ich bin neu hier im Forum und habe ist jetzt immer nur Makros aufgezeichnet.
Die jetzige Aufgabenstellung lässt sich so aber leider nicht lösen.
Ich habe eine tracking Liste mit der mehrere Personen arbeiten sollen, jeder braucht für seine Arbeit nicht alle Spalten sonder nur bestimmte.
Das aus -und einblenden der personenspezifischen Spalten soll über ein Makro ausgeführt werden das über eine Schaltfläche mit Name ausgeführt wird.
Die Spaltenauswahl soll wie folgt erfolgen :
Name der Personen in A3
Eintragung für das ein- und ausblenden der Spalten in B3:BO3
Spalte einblenden bei Zellenwert =1
Spalte ausblenden bei Zellenwert= 0
Für weitere Person die gleiche Vorgehensweise in B3, C3....
Viel dank für Eure Unterstützung.
Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Spalten ein-und ausblenden für Nutzer
28.02.2023 16:09:52
Daniel
HI
probiers mal mit diesem Code, welchen du deinen Buttons zuweisen kannst.
gesucht wird der Name, der auf dem Button steht.
damit das selektieren der auszublendenden Spalten so einfach funktioniert, musst du die Spalten so kennzeichnen, dass in der Tabelle für die Spalte, die ausgeblendet werden soll, eine Zahl eingetragen wird (egal was für eine) und bei einer Spalte die sichtbar bleiben soll, die Zelle leer bleibt.
außerdem solltest du für die Buttons in den Eigenschaften einstellen, dass sie von Größe und Zellposition unabhängig sind, sonst werden sie mit ausgeblendet.
und es sollte pro Person mindestens eine Spalte ausgeblendet werden. Das .SpecialCells erzeugt sonst einen Fehlerabbruch, wenn es keine Zelle finden kann.
Sub ausblenden()
Dim Zeile As Variant
Dim Nme As String
With ActiveSheet.Shapes(Application.Caller)
    Nme = .TextFrame2.TextRange.Characters.Text
End With
Zeile = Application.Match(Nme, Columns(1), 0)
If IsError(Zeile) Then
    MsgBox "Name nicht vorhanden"
Else
    Cells.EntireColumn.Hidden = False
    Rows(Zeile).SpecialCells(xlCellTypeConstants, 1).EntireColumn.Hidden = True
End If
End Sub

Anzeige
geht auch ohne VBA
28.02.2023 16:56:03
Matthias
Hallo,
das würde ich ohne VBA realisieren.
Einfach benutzerdefinierte Ansichten erstellen.
Der entsprechende Nutzer wählt dann seinen Namen und alles was er nicht braucht wird ausgeblendet.
MfG Matthias
AW: Spalten ein-und ausblenden für Nutzer
28.02.2023 18:46:34
Herbert_Grom
Hallo Thomas,
schau dir mal meinen Vorschlag an:
https://www.herber.de/bbs/user/158064.xlsm
Servus
Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

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