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!
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?
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.
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
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
Hi
oder vielleicht auch so, oder ähnlich
Gruss Igel
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.