Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
18.04.2024 19:30:20
VBA - Tabelle mit Mannschaftsergebnissen sortieren
18.04.2024 18:04:29
Formel fehler Wert#
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1468to1472
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
1468to1472
1468to1472
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Spalten ausblenden anhand des Datums

Spalten ausblenden anhand des Datums
23.01.2016 19:46:01
jens
Hallo,
wie kann ich bestimmte Spalten per VBa ausblenden anhand eines Anfangs und Enddatums?
Vorlage anbei.
https://www.herber.de/bbs/user/102990.xlsx
Gruß

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

Betreff
Datum
Anwender
Anzeige
AW: Spalten ausblenden anhand des Datums
23.01.2016 21:05:01
Sepp
Hallo Jens,
in das Modul der entsprechenden Tabelle.
' **********************************************************************
' Modul: Tabelle1  Typ: Element der Mappe(Sheet, Workbook, ...)
' **********************************************************************

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
Dim rng As Range, rngH As Range

If Not Intersect(Target, Range("B5:C5")) Is Nothing Then
  For Each rng In Range("F5:R5")
    If rng < Range("B5") Or rng > Range("C5") Then
      If rngH Is Nothing Then
        Set rngH = rng
      Else
        Set rngH = Union(rngH, rng)
      End If
    End If
  Next
  Range("F5:R5").EntireColumn.Hidden = False
  If Not rngH Is Nothing Then rngH.EntireColumn.Hidden = True
End If

End Sub

Gruß Sepp

Anzeige
AW: Spalten ausblenden anhand des Datums
23.01.2016 22:13:14
jens
Hallo,
danke alles funktioniert super.
Ich hätte deinen Code in eine andere Datei übernommen.
https://www.herber.de/bbs/user/102992.xlsm
Es funktioniert leider nicht mehr.
Ich weis aber nicht warum.
Ich finde den Fehler nicht.
Hast du einen Tipp`?
Gruß

AW: Spalten ausblenden anhand des Datums
23.01.2016 22:41:14
Sepp
Hallo Jens,
das sollte man halt in der Frage erwähnen, wenn das Datum nicht eingegeben wird, sondern aus einer Berechnung stammt. In deiner Beispieldatei war das nicht so!
Wieder ins Modul der Tabelle.
Private Sub Worksheet_Calculate()
Dim rng As Range, rngH As Range

For Each rng In Range("AD14:ACJ14")
  If rng < Range("O33") Or rng > Range("P33") Then
    If rngH Is Nothing Then
      Set rngH = rng
    Else
      Set rngH = Union(rngH, rng)
    End If
  End If
Next
Range("AD14:ACJ14").EntireColumn.Hidden = False
If Not rngH Is Nothing Then rngH.EntireColumn.Hidden = True

End Sub

Gruß Sepp

Anzeige
AW: Spalten ausblenden anhand des Datums
23.01.2016 23:16:27
jens
sry das wusste ich nicht.
jetzt geht es.
danke.

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige