Makro Excel Spalten Ausblenden

Question

Hallo Danke für Eure Hilfe

Leider reichen meine VBA Kenntnisse nicht so weit das Ich auf eine Lösung komme.

Ich möchte in meiner Tabelle ab Spalte K alle Spalten ausgeblendet werden, in denen in der Zeile 2 das Datum in der Vergangenheit liegt, aber als weiter Bedingung soll noch der letzte Eintrag sichtbar bleiben.

Answer 1

Hallo Gutschi,

was ist darunter zu verstehen:

..aber als weitere Bedingung soll noch der letzte Eintrag sichtbar bleiben.

Gruß

M.O.

Answer 2

Einfach das trotzdem die Spalte die noch einen Eintrag hat sichtbar bleibt, auch wenn das Datum in der Vergangenheit liegt.

Answer 3

Hallo,

also so?

- ab Spalte K alle Spalten ausblenden, in denen in Zeile 2 ein Datum steht, das in der Vergangenheit liegt,
- aber die letzte beschriebene Spalte soll immer sichtbar bleiben

Gruß

M.O.

Answer 4

Ja genau

Merci

Gruss

Answer 5

Hallo Gutschi,

kopiere das folgende Makro in ein Standard-Modul deiner Arbeitsmappe:

Sub spalten_ausblenden()

Dim spalte As Long
Dim lspalte As Long

'letzte beschriebene Spalte wird ermittelt
lspalte = ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Column

'Datum in Zeile 2 der Spalte mit aktuellem Datum vergleichen und ggf. ausblenden
For spalte = 11 To lspalte - 1
If Cells(2, spalte).Value < Date Then ActiveSheet.Columns(spalte).EntireColumn.Hidden = True
Next spalte

End Sub

Gruß

M.O.

Answer 6

Hi,

wenn ich dich richtig verstanden habe, dann sollte es dieser Code ebenfalls tun:

Sub Ausblenden()
Dim rngZelle As Range
Set rngZelle = Rows(2).Find(Date, lookat:=xlWhole)
If Not rngZelle Is Nothing Then
Set rngZelle = Range("K1:" & rngZelle.Offset(0, -1).Address)
rngZelle.EntireColumn.Hidden = True
End If
End Sub

Bis später,
Karin

Answer 7

Merci für die Schnelle und Super Hilfe

Gruss Gutschi

Answer 8

Ich habe bemerkt, dass, das Makro irgendwie zwischendurch nicht ablauft, vor allem wenn am Schluss nicht das heutige Datum steht. Kann man da noch was machen?

Answer 9

Welches Datum steht denn z.B. als letztes in diesem Fall?

Bis später,
Karin

Answer 10

Ich habe noch mal versucht nachzustellen es scheint, habe man in einer Zeile das Datum gelöscht oder ändert geht das Makro nicht mehr leider.