Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1920to1924
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
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.

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

304 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige