Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Spalten ausblenden wenn

Spalten ausblenden wenn
10.07.2007 14:09:00
Andre´
Hallo alle zusammen,
ich möchte Spalten ausblenden wenn die Zellwerte kleiner oder größer eines vorgegebenen Wertes sind.
Dazu habe ich folgende Datei angehängt.
https://www.herber.de/bbs/user/43998.xls
In der Zeile 9 habe ich die Zellen gelb markiert, für die Spalten die nach dem ausüben des Makros eigentlich ausgeblendet sein müssten.
Hat jemand eine Idee warum diese Spalten nicht ausgeblendet werden.
Wie müsste das Makro aussehen, damit diese Spalten ausgeblendet werden.
Danke im voraus
Andre

Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Spalten ausblenden wenn
10.07.2007 14:24:31
Original
Hi,
Dim Datum1 As Date
Dim Datum2 As Date
Dim i As Integer

Sub SpaltenAusblenden()
Datum1 = CDate(Worksheets("Tabelle1").Range("B1"))
Datum2 = CDate(Worksheets("Tabelle1").Range("B2"))
Application.ScreenUpdating = False
Columns.Hidden = False
For i = 3 To Columns.Count
If CDate(Cells(9, i))  Datum2 Then
Columns(i).Hidden = True
End If
Next i
Application.ScreenUpdating = True
End Sub


mfg Kurt

Anzeige
AW: Spalten..Vielen Danke Kurt :-)
10.07.2007 15:08:57
Andre´
;

Forumthreads zu verwandten Themen

Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige