Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.04.2024 23:30:16
Anzahl Jahre Zählen aus Datumreihe
16.04.2024 19:22:16
Von exceltabelle in word per steuerelement temarker
16.04.2024 18:50:53
Fehlermeldung bei Code - Excel speichern mit Bez. aus Zelle
16.04.2024 17:18:01
Projektplan-Tabelle oder Gantt ohne Balken
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1080to1084
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1080to1084
1080to1084
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Spalten mit bestimmtem Kriterium ausblenden

Spalten mit bestimmtem Kriterium ausblenden
12.06.2009 09:36:10
Dan
Hallo
Ich möchte Spalten ausblenden, die in einer Referenzzelle ein bestimmtes Kriterium haben.
Beispiel: ïn der Referenzzelle in Zeile 1 steht ein bestimmter Wert = XY.
Dieser Wert ist in folgenden Spalten vorhanden: E1, H1, W1.
Es sollen nun alle Spalten von D bis Z geprüft werden, ob dieser Referenzwert vorhanden ist und wenn ja, soll die entsprechende Spalte ausgeblendet werden.
Wäre cool, wenn mir jemand helfen könnte!
Gruss
Dan

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Spalten mit bestimmtem Kriterium ausblenden
12.06.2009 09:57:14
UweD
Hallo
mit VBA geht das.
Makro in ein Modul copieren und ausführen....


Sub aublenden()
    Dim i%, Ab%, Bis%, Was$
    Ab = 4: Bis = 26 'D bis Z
    Was = "XY"
    Application.ScreenUpdating = False
    With ActiveSheet
        .Range(Columns(Ab), Columns(Bis)).EntireColumn.Hidden = False 'zurücksetzen
        For i = Ab To Bis
            If .Cells(1, i) = Was Then
                .Columns(i).EntireColumn.Hidden = True
            End If
        Next i
    End With
End Sub


Gruß UweD
Anzeige
AW: Spalten mit bestimmtem Kriterium ausblenden
12.06.2009 10:22:48
Dan
super, vielen Dank. Es funktioniert so!
Ich habe nun noch eine weitere Frage: wie ist das Makro anzupassen, wenn er gleich 2 Referenzen ausblenden soll? Ich meine damit zusätzlich zum XY noch die Spalten ausblenden, die z.B. MN als Referenz haben.
Zum Schluss wie blendet man alle wieder ein?
Sorry, bin leider VBA-mässig völlig am Anschlag!
Danke schon mal im Voraus.
Gruss
Dan
AW: Spalten mit bestimmtem Kriterium ausblenden
12.06.2009 12:12:43
UweD
Hallo nochmal.
zu 1) mit or Verknüpfung kannst du das ausdehnen.


Sub Aublenden()
    Dim i%, Ab%, Bis%, Was1$, Was2$
    Ab = 4: Bis = 26 'D bis Z
    Was1 = "XY"
    Was2 = "MN"
    Application.ScreenUpdating = False
    With ActiveSheet
        .Range(Columns(Ab), Columns(Bis)).EntireColumn.Hidden = False 'zurücksetzen
        For i = Ab To Bis
            If .Cells(1, i) = Was1 Or .Cells(1, i) = Was2 Then
                .Columns(i).EntireColumn.Hidden = True
            End If
        Next i
    End With
End Sub
zu 2)
Sub Alles_zurück()
    Dim Ab%, Bis%
    Ab = 4: Bis = 26 'D bis Z
    ActiveSheet.Range(Columns(Ab), Columns(Bis)).EntireColumn.Hidden = False ' nur den Bereich zurücksetzen
    'oder alle Spalten
    'ActiveSheet.Cells.EntireColumn.Hidden = False ' alle Spalten zurücksetzen
End Sub


Gruß
Anzeige
AW: Spalten mit bestimmtem Kriterium ausblenden
12.06.2009 12:26:45
Dan
Genial, ganz herzlichen Dank, Uwe!!!

90 Forumthreads zu ähnlichen Themen

bestimmte Zeilen per Makro ausblenden
Fritz_W

Hallo Forumsbesucher,
ich bitte die VBA-Kundigen unter euch um Hilfe.
Mit welchem Makro kann ich in einer geöffneten Tabelle alle Zeilen ausblenden, in denen in Spalte B ein Datumseintrag steht, der vor dem jeweils heutigen Tag liegt?
Vielen Dank für eure Hilfe
mfg
Fritz
05.09.2008 10:57:00
Thread-ID: 1007611
3 Beiträge
Anzeige
Alle anderen Spalten ausblenden!
lisa

Hallo zusammen
Ich habe ein Macro aufgezeichnet, mit dem ich in der Tabelle 3 Spalte E filtere.
Ich suche nun eine möglichkeit alle anderen Spalten auszublenden!
Hat hierzu jemand eine Idee?
Private Sub CommandButton2_Click() Sheets("Tabelle3").Select Selection.AutoFilter Fie...
04.12.2008 17:16:32
Thread-ID: 1030239
20 Beiträge
Zeilen mit bestimmten Inhalt löschen
sascha76er

Hallo,
ich möchte immer alle Zeilen via Makro löschen, wenn der Inhalt der Zeile indentisch mit der ersten ist.
Ist das möglich, wenn ja wie?
Vorab vielen Dank
Sascha
08.12.2008 13:35:00
Thread-ID: 1031058
6 Beiträge
Anzeige
bestimmte Zeilen über der aktiven Zelle ausblenden
Karsten

Hallo,
ich möchte per Makrobefehl alle Zeilen über der aktiven Zelle ausblenden, die in der selben Spalte ohne Inhalt sind.
Danke für eure Hilfe.
Gruß
Karsten
01.03.2009 19:41:02
Thread-ID: 1055316
12 Beiträge
Automatisch Spalten ausblenden - mit einem Makro?
Jan

Hallo nochmal!
Ich wurde gerade schon einmal in Weltrekordzeit bei meinem anderen Problem geholfen. Vielen herzlichen dank! Nun stehe ich aber erneut vor einer für mich schwierigen Aufgabe. Folgendes Problem:
Wir sind mehrere Gewerke die an einer Excel Tabelle arbeiten. Die Excel Tabell...
28.07.2009 15:46:49
Thread-ID: 1091988
7 Beiträge
Einzelne Zellen ausblenden
alex

Hallo liebe Excelgemeinde,
ich möchte in meiner Tabelle gerne einzelne Bereich ausblenden, allerdings nie die ganze Spalte oder Zeile.
Ich habe dafür folgenden Code geschrieben. Leider entfernt Excel lediglich die Werte aus den Zellen. Die Zellen rechts von den Bereichen sollen aber nac...
03.12.2009 17:50:04
Thread-ID: 1121655
7 Beiträge
Gefilterte Spalten ohne Inhalt ausblenden +++ | Herbers Excel-Forum
urs
Guten Tag allerseits
Hat jemand eine Macro-Anwendung um das folgende Problem zu lösen?
Ich benutze grosse Dateien die ich:
A. filtere und sortiere (Soweit so gut, das wird immer von Hand gemacht)
B. allle Spalten, deren Zellenwerte ausser der Überschrift leer oder =0 sind...
14.01.2010 12:50:03
Thread-ID: 1129880
4 Beiträge
Spalten ein und ausblenden mit TOOLBOX
Jochen

Hallo Freunde,
ich habe eine Tabelle in der einige Spalten selten genutzt werden und das ewige ein- und ausblenden über
"Format - Spalten - ausblenden"
ist umständlich.
Kann ich nicht mit der TOOLBOX einen Schalter erzeugen der das gleiche macht nur schneller und komfortabeler.<...
29.01.2010 17:26:51
Thread-ID: 1134214
22 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
2
3
19
5
2
11
6
6
3
21
3
5
2
8
2
2
3
7
4
14
1
7
13
4
16