Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1548to1552
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
Inhaltsverzeichnis

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

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

303 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige