Spalte ausblenden

Hallo zusammen, ich sitze jetzt schon etwas länger an einem Problem.
Ich habe eine Excel Datei mit der ich auf der Arbeit jeden Tag arbeiten muss, ich würde mir einen Schritt gerne ersparen den ich täglich machen muss, ich muss die Spalten mit dem Datum was vergangen ist bis zum aktuellen Datum ausblenden, weil dann an dem Tag in den Spalten nur gearbeitet wird und eingetragen wird.
Ich habe schon mit dem Makro recorder versucht es aufzunehmen, jedoch nimmt er leider ja nur eine Spalte auf die ich dann ausblende, das funktioniert dann auch, allerdings suche ich nach einer Lösung wie er danach +1 rechnet heißt. Heute haben wir beispielsweise den 17.05,2021 die Datumsspalten 05.14, 05.15, 05.16 sind also noch da... er soll nun einfach dann bis zu dem aktuellen Datum gehen und alle dahinter ausblenden.
Ich hänge mal hier ein Bild an welches die Spalten zeigt womit ich arbeite: https://www.directupload.net/file/d/6184/w8zi8rm9_png.htm

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

benutze Autofilter.
Du bist im falschen Forum. Bildbearbeitung ist ein anderes.
Bilder lade ich mir nicht runter, da Excel damit nichts anfangen kann.
Hochgeladene Bilder können zwar als solche in Excel importiert werden, sind jedoch bei der Lösung von Problemen nicht sehr hilfreich, da man die eigentlichen Daten nicht ohne große und zeitraubende Umwege direkt in die Tabelle übertragen kann.
Ich baue keine Datei nach, die Zeit hat schon jemand investiert.
Schau mal hier
Eine hochgeladene Arbeitsmappe erhöht die Wahrscheinlichkeit, dass Du eine Lösung für Dein Problem erhältst.
Erstelle folglich bitte eine Demomappe, aus der deine Aufgabenstellung klar erkennbar ist und lade diese hoch.
Wenn du an Stelle einer Demomappe deine Originalmappe hochladen willst, diese aber sensible Daten enthält, kannst du diese Daten ändern. Schaue Datei
http://hajo-excel.de/gepackt/fremd/Datei_verschluesseln.zip
Falls Du den Download des Forums nicht benutzen möchtest beachte bitte: von unsicheren Servern file-upload lade ich keine Datei herunter (lt. Einschätzung meines Virenprogramms)
Das ist nur meine Meinung zu dem Thema.
Grußformel

Option Explicit Sub Ausblenden() Dim LoLetzte As Long Dim LoI As Long LoLetzte = IIf(IsEmpty(Cells(1, Columns.Count)), Cells(1, Columns.Count).End(xlToLeft).Column, Columns.Count) For LoI = 10 To LoLetzte Columns(LoI).EntireColumn.Hidden = Cells(1, LoI)

Sub ausblenden() Dim rng As Range For Each rng In ActiveSheet.Rows(1).Cells If rng.Text = "1.1" Then Set rng = rng.Resize(, DateDiff("d", "31.12." & Year(Date) - 1, Date - 1) + 1) rng.SpecialCells(xlCellTypeVisible).Columns.Hidden = True Exit Sub End If Next Set rng = Nothing End Sub

Public Sub aaa() Dim varSpalte As Variant With Worksheets("Shelf-Act") varSpalte = Application.Match(CLng(Date), .Rows(1), 0) If Not IsError(varSpalte) Then .Range(.Cells(1, 10), .Cells(1, varSpalte - 1)).EntireColumn.Hidden = True Else MsgBox "Fehler: Das Datum " & Date & " wurde in Zeile 1 nicht gefunden." End If End With End Sub

Public Sub aaa() Dim varSpalte As Variant With Worksheets("Shelf-Act") varSpalte = Application.Match(CLng(Date), .Rows(1), 0) If Not IsError(varSpalte) Then .Range(.Cells(1, 10), .Cells(1, varSpalte - 1)).EntireColumn.Hidden = True .Columns(varSpalte).Interior.ColorIndex = 15 Else MsgBox "Fehler: Das Datum " & Date & " wurde in Zeile 1 nicht gefunden." End If End With End Sub

Beliebteste Forumthreads (12 Monate)

13 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread