Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1084to1088
1084to1088
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Autofilter für Spalten?

Forumthread: Autofilter für Spalten?

Autofilter für Spalten?
Timo
Hallo,
ich würde gern über ein Makro gewisse Spalten ausblenden.
In der Beispieldatei über den u.s. Link sollen alle Spalten ausgeblendet (also versteckt) werden, die eine "0" in Zeile 1 aufweisen. Überall, wo eine "1" steht, sollen die Spalten weiterhin lesbar sein.
https://www.herber.de/bbs/user/63119.xls
Kann mir da jemand helfen? Ich habe es schonmal mit Zeilen geschafft, verzweifle aber an den Spalten.
Vielen Dank schonmal.
Timo
Anzeige

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Autofilter für Spalten?
12.07.2009 18:07:56
Beverly
Hi Timo, 
Sub Ausblenden()
Dim inSpalte As Integer
For inSpalte = 1 To 11
Columns(inSpalte).Hidden = Cells(1, inSpalte) = 0
Next inSpalte
End Sub


Anzeige
AW: Autofilter für Spalten?
12.07.2009 18:09:24
Josef
Hallo Timo,
das geht zB. so.
' **********************************************************************
' Modul: Modul1 Typ: Allgemeines Modul
' **********************************************************************

Option Explicit

Sub SpaltenAusblenden()
  Dim rng As Range
  
  For Each rng In ActiveSheet.Range("A1").CurrentRegion.Rows(1).Cells
    rng.EntireColumn.Hidden = rng <> 1
  Next
  
End Sub

Gruß Sepp

Anzeige
AW: Autofilter für Spalten?
12.07.2009 18:42:46
Gerd
Hallo Timo,
Sub aus()
Dim lngCol As Long
For lngCol = 1 To 11
ThisWorkbook.Worksheets("Tabelle1").Columns(lngCol).Hidden = _
ThisWorkbook.Worksheets("Tabelle1").Columns(lngCol).Cells(1) = 0
Next
End Sub


Sub ein()
ThisWorkbook.Worksheets("Tabelle1").Columns("A:K").Hidden = False
End Sub
Gruß Gerd
Anzeige
AW: Autofilter für Spalten?
12.07.2009 21:31:52
Timo
Vielen Dank, das klappt :)
AW: Autofilter für Spalten?
12.07.2009 21:41:38
Timo
Ach so, Gerd (und auch alle anderen), eine Zusatzfrage: Es funtioniert zwar toll, aber Excel "ruckelt" dadurch bei der Ausführung. Es stört mich nicht so sehr, aber es wäre schöner ohne. Gibt es da auch eine Möglichkeit?
Vielen Dank, Timo
AW: Autofilter für Spalten?
12.07.2009 23:51:39
Nepumuk
Hallo,
so geht's ohne ruckeln:
Public Sub Ausblenden()
    Dim objCell As Range
    With Tabelle1
        Set objCell = .Rows(1).Find(What:=1, LookIn:=xlValues, LookAt:=xlWhole)
        If Not objCell Is Nothing Then _
            .Rows(1).RowDifferences(Comparison:=objCell).EntireColumn.Hidden = True
    End With
End Sub

Gruß
Nepumuk
Anzeige
AW: Autofilter für Spalten?
13.07.2009 10:10:13
Timo
Vielen Dank, Nepumuk.
Ich habe nur noch ein kleines Problem. Ich fange jetzt nicht mehr ab Spalte A die Spalten zu verstecken, sondern ab Spalte G und meine "1" und "0" sind nicht mehr in Zeile 1 sondern 11. Das Ganze geht jetzt also von G11 bis AK 11.
Habe versucht den code umzuformen, aber ich bin irgendwie zu untalentiert. Irgendiwe wurden alle Spalten versteckt, unabhängig davon, ob in Zeile 11 eine "0" oder "1" stand.
Danke nochmals,
Timo
Anzeige
AW: Autofilter für Spalten?
13.07.2009 21:37:12
Gerd
Hallo Timo,
es ist immer mal wieder bestechend, was Nepumuk aus dem Hut zaubert. :-)
Für deine Zwecke: 
Public Sub Ausblenden_keine_1()
Dim objCell As Range
'G11:AK11 in Tabelle mit Codenamen Tabelle1
With Tabelle1.Range(Tabelle1.Cells(11, 7), Tabelle1.Cells(11, 37))
Set objCell = .Find(What:=1, LookIn:=xlValues, LookAt:=xlWhole)
If Not objCell Is Nothing Then _
.RowDifferences(Comparison:=objCell).EntireColumn.Hidden = True
End With
End Sub
Gruß Gerd
Anzeige
;

Forumthreads zu verwandten Themen

Info aus mehreren Spaltenüberschriften entnehmen
mopitz

Hallo,
Da mein Problem etwas komplex ist, füge ich eine Datei zur Veranschaulichung an.:
https://www.herber.de/bbs/user/56058.xls
Ich möchte in der ersten Tabelle zu den Spalte "Kunde"(kommt nur einmal vor) die Technologie reinschreiben lassen. Diese Info erhalte ich aus der "Tabell...
16.10.2008 13:34:19
Thread-ID: 1016847
7 Beiträge
Anzeige
Pulldown in mehreren Spalten
Wolfgang

Hallo,
der untenstehende Code bewirkt bei Anwählen eines jeweilien Tabellenblattes, dass in I2:I6000 ein Pulldown erscheint. Wäre denkbar, dass der Code ausgeweitet wird um zwei weitere Pulldown in Spalte K2:K6000 mit "Ja" "Nein" und in Spalte M2:M6000 mit "Date". Ich habe schon zig verschi...
15.11.2008 18:33:43
Thread-ID: 1024798
3 Beiträge
kopieren/filtern von x-Spalten in x-Blättern
x-Spalten

So, anderes Thema:
Ich habe eine Arbeitsmappe mit verschiedenen Arbeitsblättern, diese Arbeitsblätter sind von der struktur her alle gleich aufgebaut, nur der Inhalt unterscheidet sich voneinander.
Ich möchte jetzt eine Auflistung generieren, die mir auf dem letzten Blatt der Arbeitsmap...
22.11.2008 16:34:00
Thread-ID: 1026984
16 Beiträge
Anzeige
Filter - Kriterium in mehreren Spalten
walter

Hallo,
ich stöbere nun schon seit zwei Tagen in der Excel-Hilfe und in diesem Forum und finde keine Lösung für mein Problem:
Ich habe eine Liste, in der jeder Datensatz 5 Kategorien zugeteilt ist. Das Problem ist dabei, dass ein und dieselbe Kategorie in verschiedenen Spalten stehen kan...
15.01.2009 08:33:57
Thread-ID: 1039897
3 Beiträge
Anzeige
Mehrere Filter gleichzeitig auf "Alle"
Alex

Hallo zusammen,
ich habe in meiner Datei 10 Autofilter.
Benötige eure Hilfe; wie kann ich schreiben, dass Filter 1-7 gleichzeitig aufgehoben, d.h. deaktiviert werden?
Sub FilterAlleAnzeigenÜ() ActiveSheet.Unprotect "passw" Selection.AutoFilter Field:=1 'hier Field 1-7 ? ActiveShee...
23.01.2009 10:34:13
Thread-ID: 1042839
4 Beiträge
Filter - Text in Spalten
LD

Hallo,
habe hier eine Adressliste aus welcher ich nur die email adr. rausziehen will.
Habe schon einen Filter angewendet um alle Zeilen mit @ anzuzeigen, allerdings
steht vor den adr. "email an" und ich bekomme das nicht weg. Wenn ich Text
in Spalten mache, sind alle anderen Zei...
13.03.2009 13:50:22
Thread-ID: 1059860
6 Beiträge
Anzeige
Scrollarea auf mehrere Spalten definieren
Janni

Hallo zusammen,
ich habe folgendes Problem, ich will in meinem Tabellenblatt nur die Spalten A, C und E editierbar machen, d.h. man soll auf die Spalten B und D nicht klicken dürfen bzw. den Zelleninhalt nicht ändern können. Ich habe probiert es über die ScrollArea festzulegen. Ich kann in...
27.03.2009 11:07:02
Thread-ID: 1064529
6 Beiträge
Mehrere Pivottabellen auf einen Filter reagieren
vux

Hallo,
einfaches Anliegen:
Sagen wir ich habe eine Tabelle mit einer Spalte "Länder" und ein Sheet mit 20 Auswertungspivottabellen.
Kann man es einrichten, dass wenn man an einer Stelle ein Land eingibt, alle Pivottaballen nach diesem Land gefiltert werden? Sonst muss ich jedesmal 2...
16.06.2009 14:53:58
Thread-ID: 1081917
3 Beiträge
Autofilter über mehrere Tabellenblätter
Burk

Hallo,
ich habe mehre Blätter in einer Mappe mit jeweils einer großen Liste
Gibt es die Möglichkeit Datensätze mit einem bestimmten Feldeintrag über mehre Blätter hinweg gleichzeitig herauszufiltern, wie es der Autofilter mit einer Tabelle macht?
Vielleicht mit VBA?
Bin für alle...
02.07.2009 11:17:06
Thread-ID: 1085862
5 Beiträge
Auswahlliste über mehrere Spalten
Roland

Hallo zusammen,
folgendes Problem:
In Tabellenblatt 2 sind Kontaktdaten vorhanden.
Nun möchte ich im Tabellenblatt 1 im Feld "Name" eine Auswahlliste mit Bezug auf Tabellenblatt 2 erstellen. Das ist mit der Gültikeitsprüfung ja auch kein Problem.
Jetzt möchte ich, dass auch in d...
17.07.2009 10:49:06
Thread-ID: 1089312
19 Beiträge
Sverweis und suche suche über mehrere Spalten
Sabine

Hi
Folgendes Problem. In Tabelle1 Spalte A stehen werte, die in Tabelle 2 in Spalte B-F gesucht werden sollen und dann der wert aus Spalte X ausgegeben werden.
Mit Sverweis geht das nicht, aber wie dann?
30.07.2009 18:44:34
Thread-ID: 1092620
2 Beiträge
Autofilter: 1 Kriterium für 2 Spalten
Stefan

Guten Morgen,
kann mir jemand bei folgender Frage helfen ?
Ich habe 2 Spalten, die mit Werten gefüllt sind. Nun habe ich mit dem Textfeld aus der Steuerelemente-Toolbox ein Suchfeld erschaffen. Sobald hier ein Suchbegriff eingegeben wird, sollen die beiden Spalten durchsucht und die Erg...
22.10.2009 10:51:27
Thread-ID: 1111254
5 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige