Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
884to888
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
884to888
884to888
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
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

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

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

301 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige