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

Spalten ausblenden, wenn in Zeile ok

Forumthread: Spalten ausblenden, wenn in Zeile ok

Spalten ausblenden, wenn in Zeile ok
28.03.2017 11:19:24
Bauchi
Hallo zusammen,
Auf meiner Tabelle befinden sich in den Zeilen Aufgaben die erledigt werden müssen; in den Spalten wird dann jeweils ein ok gesetzt.
Kann mir jemand helfen, wenn ich in Zeile B48 ok eingebe, dass mir diese Spalte (z.B. Spalte B) ausgeblendet wird? Super wäre wenn sich dies auch auf die restlichen Spalten umsetzen lassen würde.
Mir ist bewusst, dass ich das im VBA-Editor angehen muss, allerdings habe ich darin ziemlich schlechte Kenntnisse...
LG Bauchi
Anzeige

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Spalten ausblenden, wenn in Zeile ok
28.03.2017 11:42:37
UweD
Hallo
- rechtsclick auf den Tabellenblattreiter
- Code anzeigen
- Das Makro dort einfügen
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim Z
    For Each Z In Target.Columns
        If WorksheetFunction.CountIf(Target.EntireColumn, "OK") > 0 Then
            Target.EntireColumn.Hidden = True
        End If
    Next
End Sub

zum Zurücksetzen:
in ein Normales Modul
Sub resetten()
    ActiveSheet.Columns.Hidden = False
End Sub

LG UweD
Anzeige
AW: Spalten ausblenden, wenn in Zeile ok
28.03.2017 12:48:28
Bauchi
Vielen Dank!!
LG Bauchi
AW: Spalten ausblenden, wenn in Zeile ok
28.03.2017 12:58:09
Bauchi
Hallo
Was muss ich ändern, damit es mir nicht die Spalte ausblendet, wenn ich in einer beliebigen Zeile ok eingebe? Kurz gesagt: nur wenn ich in B48 ok eingebe soll es mir die Spalte ausblenden bei den anderen Zeilen nicht?
AW: Spalten ausblenden, wenn in Zeile ok
28.03.2017 13:20:10
UweD
Hallo
dann tausche den Code in der Tabelle aus..
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim RNG
    If Target.Count > 1 Then Exit Sub
    Set RNG = Range("B48")
    If Not Intersect(RNG, Target) Is Nothing Then
        If UCase(RNG) = "OK" Then
            Target.EntireColumn.Hidden = True
        End If
    End If
End Sub

LG UweD
Anzeige
AW: Spalten ausblenden, wenn in Zeile ok
28.03.2017 13:44:58
Bauchi
Hallo UweD
Entschuldige das ganze Nachfragen!
Wenn ich dies nun auf die anderen Spalten auch anwenden möchte?
Setze ich dann in der Zeile Set RNG = Range("B49:CH49")?
AW: Spalten ausblenden, wenn in Zeile ok
28.03.2017 15:52:33
UweD
Hallo
ja, aber noch was muss geändert werden.
Bei einer Zelle war das egal, jetzt muss aber anstelle RNG = Target (es muss nämlich die jeweilige Spalte geprüft werden) verwendet werden.
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim RNG
    If Target.Count > 1 Then
        MsgBox "Bitte einzeln ändern"
        Exit Sub
    Else
        Set RNG = Range("B49:CH49")
        If Not Intersect(RNG, Target) Is Nothing Then
            If UCase(Target) = "OK" Then
                Target.EntireColumn.Hidden = True
            End If
        End If
    End If
End Sub

LG UweD
Anzeige

Forumthreads zu verwandten Themen

Zeilen ausblenden wenn...
Andreas

Hi,
ich habe ein kleines Problem. Auf meinem Excel-Blatt sind von B4:B200 Datumswerte im Format TT.MM.JJJJ eingetragen. In der Zelle A1 gebe ich nun beispielsweise Januar ein. Ich will nun, dass alle Zeilen ausgeblendet werden, die nicht in der Spalte B ein Januar-Datum eingetragen haben. D...
04.09.2008 20:18:36
Thread-ID: 1007507
10 Beiträge
Spalte ausblenden, wenn in Zeile 9, die Füllfarbe?
Selma

Hallo Leute,
wie kann ich die Spalten die in Zeile 9 folgende Füllfarbe 6, 39, 46, 48, 51, 52, 53 haben, ausblenden?
Vielen Dank im Voraus !
Liebe Grüße,
Selma
13.10.2008 11:06:05
Thread-ID: 1015964
17 Beiträge
Zeilen ausblenden, außer wenn in Zelle ...?
Selma

Hallo Leute,
ich möchte mit einem CommandButton ab Zeile 4 die Zeilen wie folgt ausblenden:
- wenn in Spalte M die Zelle diesen "plt" Inhalt hat, dann soll die Zeile nicht ausgeblendet werden
- wenn in Spalte M die Zelle die Füllfarbe 15 hat., dann soll die Zeile nicht ausgeblendet...
27.10.2008 18:13:00
Thread-ID: 1019700
10 Beiträge
Spalte ausblenden, wenn in Zeile 7 der Zelleninhal
Selma

Hallo Leute,
wie kann ich die Spalten ausblenden, die in Zeile 7 als Zelleninhalt "x" oder "D" haben?
Vielen Dank im Voraus !
Liebe Grüße,
Selma
29.10.2008 15:41:00
Thread-ID: 1020332
4 Beiträge
Anzeige
Bestimmten Zellenwert ausblenden VBA
Alex

Guten Morgen Liebe Excelisten,
ich bräuchte mal Eure hilfe, unzwar bräuchte ich ein Formel/VBA die mir auf dem Tabellenblatt z.B. Urlaub die Kürzungen F,S und AS ausblendet, sie sollten nicht gelöscht werden sondern nur nicht mehr angezeigt werden. zum beispiel in einer anderen schriftfarbe...
20.11.2008 07:19:09
Thread-ID: 1026287
4 Beiträge
Zeilen ausblenden wenn...
Marc

Hallo Forum
In Spalte E11:E94 sind Namen aufgeführt(Meier,Müller usw.). In dieser Spalte kommen
aber auch Namen mit einem Vorhängsel wie z.B. a_Meier, a_Müller usw. vor.
Ist es möglich, die Zeilen mit diesen Vorhängseln auszublenden?
Gruß
Marc
06.12.2008 21:44:00
Thread-ID: 1030753
6 Beiträge
Anzeige
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
Spalte ausblenden, wenn leer
Peter

Guten Abend
Ich habe eine Tabelle mit verschiedenen benannten Bereichen innerhalb von jeweils einer Spalte, also beispielsweise
"AAA" bezieht sich auf Tabelle1!A5:A205
"BBB" bezieht sich auf Tabelle1!B5:B205
"CCC" bezieht sich auf Tabelle1!C5:C205
Nun möchte ich abfragen, ob...
05.02.2009 23:44:01
Thread-ID: 1047550
14 Beiträge
Zeilen ausblenden, wenn 0
evi

Hallo,
ich habe folgendes Problem:
Ich möchte bestimmte Zeilen eines Tabellenblattes (Blatt 2) ausblenden (bspw. Zeile 120-123), wenn in einem anderen Tabellenblatt (Blatt 1) in ein einer bestimmten Zelle (z. Bsp. C45) eine "0" eingetragen ist.
Leider hab ich nicht so viel Ahnung di...
06.02.2009 12:07:03
Thread-ID: 1047705
6 Beiträge
Dropdown-Auswahl, bestimmte Spalten ausblenden
Dan

Hallo
Ich habe folgendes Problem:
in einem Dropdown-Fenster kann ein Wert ausgewählt werden (z.B. Hund, Katze oder Maus).
- wenn ich nun Hund auswähle, sollen die Spalten F+H ausgeblendet werden,
- wenn ich nun Katze auswähle, sollen die Spalten G+I ausgeblendet werden, und
13.03.2009 11:07:26
Thread-ID: 1059787
5 Beiträge
Spalten ausblenden, wenn Beidngung erfüllt
Pascal

Hallo zusammen,
ich möchte ein einer Exceldatei für mehrere Tabellenblätter (Alle Tabellenblätter außer den Tabellenblatt "aktueller Monat") gleichzeitig bestimmte Spalten ausblenden, sofern diese Spalten jeweils in Zeile 1 den Wert "0" haben.
Wahrscheinlich ist die Geschichte wieder ei...
08.04.2009 10:57:39
Thread-ID: 1067650
5 Beiträge
Zeilen ausblenden wenn Zellwert = 0
Malte

Dringende Hilfe!
In einer Tabelle, die Zellbezüge aus einer anderen Tabelle hat, wird, wenn kein Zellwert vorhanden ist, der Zellwert 0 ausgegeben. Ich möchte nun, die Zeilen ausblenden in denen ein Zellwert 0 ist.
Wie funktioniert das?
Vielen Dank schon mal.
24.08.2009 17:17:25
Thread-ID: 1098182
3 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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