nur bestimmte spalten einblenden

Jan · 2009-03-09T08:51:17+00:00

hallo zusammen ich habe folgendes problem: ich habe die zellen a4 und a6, welche beide daten beinhalten, wobei a4 grösser als a6 ist dann habe ich noch die spalten B : DQ, welche ebenfalls daten in aufsteingender form beinhalten in etwa so: 01.02.2008__03.2008__01.04.2008__01.05.2008__01.06.2008 bis 01.01.2018 jetzt möchte ich in diesem bereich nur die spalten einblenden, welche zwischen den daten a4 und a6 liegen oder gleich den daten a4 und a6 sind. wäre froh, wenn mir jemand helfen könnte, da ich nicht so der vba-experte bin.. vielen dank und noch einen schönen morgen! gruss jan

Hallo
REchte Maustaste auf den Tabellenreiter der Tabelle wo die Daten stehen
code anzeigen
Dort diesen code reinkopieren

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim i As Long
    Dim colStart As Long, colEnd As Long, datRow As Long
    MsgBox Target.Address
    If Target.Address(0, 0) = "A6" Or Target.Address(0, 0) = "A4" Then
        'In dieser Spalkte beginnen die Daten
        colStart = 2
        'In dieser Zeile stehen die Daten
        datRow = 1
        'automatisches Ende der Datenreihe ermitteln
        colEnd = Cells(datRow, Columns.Count).End(xlToLeft).Column
        Cells.EntireColumn.Hidden = False
        For i = colStart To colEnd
            If Cells(datRow, i) >= Range("A6") And Cells(datRow, i) <= Range("A4") Then
                Columns(i).Hidden = True
            End If
        Next i
    End If
End Sub

Gruss Rainer

Hallo

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim i As Long
    Dim colStart As Long, colEnd As Long, datRow As Long
    If Target.Address(0, 0) = "A6" Or Target.Address(0, 0) = "A4" Then
        'In dieser Spalkte beginnen die Daten
        colStart = 2
        'In dieser Zeile stehen die Daten
        datRow = 10
        'automatisches Ende der Datenreihe ermitteln
        colEnd = Cells(datRow, Columns.Count).End(xlToLeft).Column
        Cells.EntireColumn.Hidden = False
        For i = colStart To colEnd
            If Cells(datRow, i) >= Range("A4") And Cells(datRow, i) <= Range("A6") Then
                Columns(i).Hidden = False
            Else
                Columns(i).Hidden = True
            End If
        Next i
    End If
End Sub

Damit sollte es gehen
Gruss Rainer

Forumthread: nur bestimmte spalten einblenden

14
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Infobox / Tutorial

Bestimmte Spalten in Excel Einblenden

Schritt-für-Schritt-Anleitung

Häufige Fehler und Lösungen

Alternative Methoden

Praktische Beispiele

Tipps für Profis

FAQ: Häufige Fragen

Beliebteste Forumthreads (12 Monate)