Übersicht über versteckte Spalten

[DonDavito]

Hallo Zusammen,

ich würde mir gerne eine Funktion wünschen um eine Übersicht über meine Ausgeblendeten Spalten zu haben.
Am besten so das ich die gerade gebrauchte ein und wieder ausblenden kann.
Gibt es sowas oder ist es nur über VBA möglich?
Davon hab ich leider noch gar keine Ahnung.

Danke!

[MisterBurns]

Möglich ist ja so vieles heutzutage. Mit den kryptischen Angaben wirst du aber vermutlich keine sinnvolle Antwort bekommen. Wenn Spalten ausgeblendet sind, wie willst du denn dann wissen, welche du gerade brauchst?

[DonDavito]

Habe eine Tabelle mit ziemlich vielen Spalten. Die Spalten die nicht so wichtige Information enthalten habe ich ausgeblendet.
Zum Beispiel Adresse, Telefon, E-Mail. Wenn ich jetzt doch mal eine Spalte brauch muss ich sämtliche Spalten einblenden, weil ich nicht mehr genau weiß welche es ist. Hätte gerne irgendeinen Filter oder Suchfunktion die mir die gewünschte Spalte sofort anzeigt. 
Am besten in der Art der Filterfunktion von Excel, wo man sich ja auch Daten ein und ausblenden lassen kann, dies nur übertragen auf Spalten.

[shift-del]

Hi

Treffer Nummer 1 bei meiner Google-Suche:
https://www.excelcampus.com/vba/hide-unh...er-filter/

[Werner.M]

Hallo,

würde ich über "benannte Bereiche" machen.

Annahme: Deine Spaltenüberschriften stehen alle in Zeile 1

-Rechtsklick auf die jeweilige Zelle mit der Spaltenüberschrift
im aufgehenden Fenster wird ein Name für die Zelle definiert
vorgegeben ist schon die entsprechende Spaltenüberschrift
alles so belassen und auf ok klicken

diesen Vorgang für sämtliche Spaltenüberschriften wiederholen

Folgendes Makro in ein allgemeines Modul:

Code:

Public Sub aaa()
Dim strÜberschrift As String, xBereiche As Variant, boVorhanden As Boolean

strÜberschrift = InputBox("Spaltenüberschrift angeben:", "Ein-/Ausblenden")

If Not strÜberschrift = vbNullString Then
   For i = 1 To Names.Count
       If UCase(Names(i).Name) = UCase(strÜberschrift) Then
           boVorhanden = True
           If Range(strÜberschrift).EntireColumn.Hidden = True Then
               Range(strÜberschrift).EntireColumn.Hidden = False
           Else
               Range(strÜberschrift).EntireColumn.Hidden = True
           End If
           Exit For
       End If
   Next i
End If

If Not boVorhanden Then
   MsgBox "Es gibt keine Spalte " & strÜberschrift
End If
End Sub

Eine Befehlsschaltfläche aufs Tabellenblatt und diesem das Makro zuweisen.
Beim Klick auf die Befehlsschaltfläche öffnet sich eine Eingabemaske. Dort kannst du die Spaltenüberschrift eingeben. Ist die entsprechende Spalte ausgeblendet, dann wird sie eingeblendet, ist sie eingeblendet, dann wird sie ausgeblendet.

Gruß Werner

[Gast 123]

Hallo

ich bin mal in mein Archiv getaucht und habe eine alte Datei ein wenig geaendert. Sie listet alle Tabellen mit ausgeblendeten Bereichen auf.  
Das Makro erstellt nur eine Liste, ohne etwas zu veraendern.  Ich hoffe die Datei ist brauchbar, würde mich freuen.

mfg  Gast 123

[Igelbauer]

Hi
oder vielleicht auch so, oder ähnlich

Gruss Igel

[DonDavito]

Die Methode von Shift-Del aus der Google Suche entspricht genau meinen Vorstellungen. Ist vom Design auch schön Übersichtlich.
Leider sind meine VBA Kenntnisse dafür nicht ausreichend um das mal eben zu bauen. Da muss ich mich in dem Bereich noch schlau machen.