Spalten ausblenden mit zwei Bedingungen

Hallo zusammen,
ich benötige mal wieder eure Hilfe, die Suchfunktion hier hat mir zwar schon viele Möglichkeiten angezeigt, aber irgendwie kann ich die entweder nicht umsetzen, oder ich mach was falsch dabei.
Folgendes Problem :
Ich habe vier Spalten (als Beispiel C - F ) hier steht in C2-F2 der jeweilige Teamname (Team 1, Team 2, Team 3, Team 4). Darunter in C3 - F3 steht das Tagesdatum (mittels Heute() ).
Nun habe ich noch eine Extraliste (in der Beispieldatei von J2 - K26)
Hier steht das fortlaufende Datum und bei jedem Tag der jeweilige Teamname.
Nun möchte ich, dass ein Makro (da dies jeden Tag automatisch erfolgen soll)
das Datum und den Teamnamen mit der Liste vergleicht und jedes Team, bzw. die Spalte ausblendet welches nicht die Bedingungen erfüllt.
Beispieldatei :
https://www.herber.de/bbs/user/91924.xlsx
Ich bedanke mich schon mal im Voraus für eure Hilfe
Viele Grüße
Toumas

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Touman,
Ich habs mal von der Syntax sehr einfach gehalten, so dass du es bei Bedarf anpassen kannst.
Da du per Makro das heutige Datum abgreifen kannst, wird die Zeile mit dem Heutigen Datum eigentlich nicht benötigt.

Option Explicit
Sub Test()
Dim i As Integer
With Tabelle1
For i = 3 To .UsedRange.SpecialCells(xlCellTypeLastCell).Row
If .Cells(i, 10) = Date Then
If .Cells(i, 11) = "Team 1" Then
.Range("c1").EntireColumn.Hidden = False
.Range("d1").EntireColumn.Hidden = True
.Range("e1").EntireColumn.Hidden = True
.Range("f1").EntireColumn.Hidden = True
End If
If .Cells(i, 11) = "Team 2" Then
.Range("c1").EntireColumn.Hidden = False
.Range("d1").EntireColumn.Hidden = True
.Range("e1").EntireColumn.Hidden = False
.Range("f1").EntireColumn.Hidden = False
End If
If .Cells(i, 11) = "Team 3" Then
.Range("c1").EntireColumn.Hidden = False
.Range("d1").EntireColumn.Hidden = False
.Range("e1").EntireColumn.Hidden = True
.Range("f1").EntireColumn.Hidden = False
End If
If .Cells(i, 11) = "Team 4" Then
.Range("c1").EntireColumn.Hidden = False
.Range("d1").EntireColumn.Hidden = False
.Range("e1").EntireColumn.Hidden = False
.Range("f1").EntireColumn.Hidden = True
End If
Exit For
End If
Next i
End With
End Sub

viele Grüße
Robert

Beliebteste Forumthreads (12 Monate)

Spalten ausblenden mit zwei Bedingungen

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

334 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Spalten ausblenden mit zwei Bedingungen

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

334 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread