Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 21:51:33
Idee für Grafik
26.04.2024 21:29:07
PQ zufällige Reihenfolge
26.04.2024 17:18:47
Große Datenmenge in komplexes Diagramm verpacken
26.04.2024 16:22:47
Aktualisierung Verknüpfung bei geschlossener Quelldatei
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1732to1736
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
1732to1736
1732to1736
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Spalten automatisch ausblenden anhand des Datums

Spalten automatisch ausblenden anhand des Datums
16.01.2020 11:04:41
MarkusR
Hallo zusammen,
ich habe eine To-Do Liste die ähnlich wie ein Projektplan aufgebaut ist:
https://www.herber.de/bbs/user/134449.png
Spalten D+E+F sollen beim Programmstart automatisch ausgeblendet werden. Kann mir dabei jemand helfen?
Beste Grüße und vielen Danke!
P.S. mein VBA ist ein wenig eingerostet und ich hatte gehofft es mit diesem Code lösen zu können, aber es wird der Fehlercode 400 ausgespuckt.
Sub SpalteAusblenden()
Dim tab1 As Worksheet
Set tab1 = ThisWorkbook.Sheets("To-Do")
Dim spalte As Integer
spalte = 4
Do While tab1.Cells(1, spalte)  ""
If tab1.Cells(1, spalte)

9
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Spalten automatisch ausblenden anhand des Datums
16.01.2020 11:10:41
Torsten
Hallo Markus,
warum so umstaendlich: 

Private Sub Workbook_Open()
Dim tab1 As Worksheet
Set tab1 = ThisWorkbook.Sheets("Sheet1")
With tab1
Range("D:F").EntireColumn.Hidden = True
End With
End Sub

Gruss Torsten
AW: Spalten automatisch ausblenden anhand des Datums
16.01.2020 11:14:57
MarkusR
Hallo Torsten,
Danke, dass du dir mein Problem angeschaut hast. Es geht darum, dass nur das aktuellste Datum vorne stehen soll. Am nächsten Tag wären es also die Reihen "D:G". Deshalb die Schleife.
Das hätte ich vielleicht dazu sagen sollen. Sorry!
AW: Spalten automatisch ausblenden anhand des Datums
16.01.2020 11:19:09
Torsten
Ja habs gerade geschnallt, als ich mir dein Bild angesehen habe. Du darfst nicht Columns verwenden, sondern Range. Und da du sagst "beim Programmstart", pack das ganze ins Workbook_Open Ereignis: 

Option Explicit
Private Sub Workbook_Open()
Dim tab1 As Worksheet
Set tab1 = ThisWorkbook.Sheets("Sheet1")
Dim spalte As Integer
spalte = 4
Do While tab1.Cells(1, spalte)  ""
If tab1.Cells(1, spalte)

Gruss Torsten
Anzeige
AW: Spalten automatisch ausblenden anhand des Datums
16.01.2020 11:21:56
Torsten
Hier nochmal etwas genauer mit der richtigen Referenzierung ueberall.
Sorry: 

Option Explicit
Private Sub Workbook_Open()
Dim tab1 As Worksheet
Set tab1 = ThisWorkbook.Sheets("Sheet1")
Dim spalte As Integer
spalte = 4
With tab1
Do While .Cells(1, spalte)  ""
If .Cells(1, spalte)

AW: Spalten automatisch ausblenden anhand des Datums
16.01.2020 11:24:07
MarkusR
Aaah stimmt - sehr gut. Vielen Dank Torsten!
Dann hätte ich sogar noch einen schlankeren Vorschlag: Columns(spalte).Hidden = True
Du hast mir damit sehr geholfen!
Private Sub Workbook_Open()
Dim tab1 As Worksheet
Set tab1 = ThisWorkbook.Sheets("To-Do")
Dim spalte As Integer
spalte = 4
Do While tab1.Cells(1, spalte)  ""
If tab1.Cells(1, spalte)

Anzeige
Noch besser
16.01.2020 11:27:39
Torsten
das geht noch schlanker
16.01.2020 12:45:49
Rudi
Hallo,
nur zur Info: 
Private Sub Workbook_Open()
Dim rng As Range
Application.ScreenUpdating = False
With Me.Sheets("To-Do")
For Each rng In .Range(.Cells(1, 4), .Cells(1, Columns.Count).End(xlToLeft))
rng.EntireColumn.Hidden = rng

Gruß
Rudi
Magersucht
16.01.2020 13:09:14
Rudi 

Private Sub Workbook_Open()
Range(Cells(1, 4), Cells(1, Application.Match(CLng(Date), Rows(1), 0) - 1)).EntireColumn. _
Hidden = True
End Sub

:-) :-)
16.01.2020 13:49:10
Torsten

305 Forumthreads zu ähnlichen Themen

Zeilen ausblenden wenn...
Andreas

Hi,
ich habe ein kleines Problem. Auf meinem Excel-Blatt sind von B4:B200 Datumswerte im Format TT.MM.JJJJ eingetragen. In der Zelle A1 gebe ich nun beispielsweise Januar ein. Ich will nun, dass alle Zeilen ausgeblendet werden, die nicht in der Spalte B ein Januar-Datum eingetragen haben. D...
04.09.2008 20:18:36
Thread-ID: 1007507
10 Beiträge
Anzeige
Zeilen ausblenden, außer wenn in Zelle ...?
Selma

Hallo Leute,
ich möchte mit einem CommandButton ab Zeile 4 die Zeilen wie folgt ausblenden:
- wenn in Spalte M die Zelle diesen "plt" Inhalt hat, dann soll die Zeile nicht ausgeblendet werden
- wenn in Spalte M die Zelle die Füllfarbe 15 hat., dann soll die Zeile nicht ausgeblendet...
27.10.2008 18:13:00
Thread-ID: 1019700
10 Beiträge
Spalte ausblenden, wenn in Zeile 7 der Zelleninhal
Selma

Hallo Leute,
wie kann ich die Spalten ausblenden, die in Zeile 7 als Zelleninhalt "x" oder "D" haben?
Vielen Dank im Voraus !
Liebe Grüße,
Selma
29.10.2008 15:41:00
Thread-ID: 1020332
4 Beiträge
Anzeige
Zeilen ausblenden wenn...
Marc

Hallo Forum
In Spalte E11:E94 sind Namen aufgeführt(Meier,Müller usw.). In dieser Spalte kommen
aber auch Namen mit einem Vorhängsel wie z.B. a_Meier, a_Müller usw. vor.
Ist es möglich, die Zeilen mit diesen Vorhängseln auszublenden?
Gruß
Marc
06.12.2008 21:44:00
Thread-ID: 1030753
6 Beiträge
Zeilen mit bestimmten Inhalt löschen
sascha76er

Hallo,
ich möchte immer alle Zeilen via Makro löschen, wenn der Inhalt der Zeile indentisch mit der ersten ist.
Ist das möglich, wenn ja wie?
Vorab vielen Dank
Sascha
08.12.2008 13:35:00
Thread-ID: 1031058
6 Beiträge
Spalte ausblenden, wenn leer
Peter

Guten Abend
Ich habe eine Tabelle mit verschiedenen benannten Bereichen innerhalb von jeweils einer Spalte, also beispielsweise
"AAA" bezieht sich auf Tabelle1!A5:A205
"BBB" bezieht sich auf Tabelle1!B5:B205
"CCC" bezieht sich auf Tabelle1!C5:C205
Nun möchte ich abfragen, ob...
05.02.2009 23:44:01
Thread-ID: 1047550
14 Beiträge
Zeilen ausblenden, wenn 0
evi

Hallo,
ich habe folgendes Problem:
Ich möchte bestimmte Zeilen eines Tabellenblattes (Blatt 2) ausblenden (bspw. Zeile 120-123), wenn in einem anderen Tabellenblatt (Blatt 1) in ein einer bestimmten Zelle (z. Bsp. C45) eine "0" eingetragen ist.
Leider hab ich nicht so viel Ahnung di...
06.02.2009 12:07:03
Thread-ID: 1047705
6 Beiträge
Dropdown-Auswahl, bestimmte Spalten ausblenden
Dan

Hallo
Ich habe folgendes Problem:
in einem Dropdown-Fenster kann ein Wert ausgewählt werden (z.B. Hund, Katze oder Maus).
- wenn ich nun Hund auswähle, sollen die Spalten F+H ausgeblendet werden,
- wenn ich nun Katze auswähle, sollen die Spalten G+I ausgeblendet werden, und
13.03.2009 11:07:26
Thread-ID: 1059787
5 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
9
16
9
3
3
5
5
13
5
4
4
4
2
2
8
4
1
3
3
4
1
3
4
4
3