Office: Bestimmte Spalten ausblenden bei Excel, in abhängigkeit vom Monat?

Hallo,

ich habe eine Exceltabelle mit mehreren Blättern. Auf einem dieser Blätter sind mehrere Tabellen mit den einzelnen Kostenstellen.
Die Monate verlaufen von Spalte B - M, wobei Jan. bei B beginnt. Nun würde ich gerne die restlichen noch verbleibenden Monate also von Sep. bis Dez. ausgeblendet haben.

Dazu könnte man ein Zellenwert auslesen, in dem bspw. 1 für Januar steht.


Falls jemand eine Idee hat, würde ich mich freuen.


LG Biegel

:)

 

Hallo Biegel,

schau mal, ob der Code dem Gewünschten entspricht:

Code:

Der Code muß dem Tabellenblatt hinterlegt werden, in dem die Spalten ausgeblendet werden sollen.

cu
myfake

 

Hallo,

sorry das ich mich jetzt wieder Rückmelde, aber ich war die Tage auf einer Schulung.

Es funktioniert soweit ganz gut, nur wie kann ich es steuern? Am Besten wäre es, wenn ich ein bestimmten Zellenwert auslese, wo dann 9 für Sep. steht.


Vielen Dank schon mal.

LG Biegel

 

Hallo Biegel,

in der Zeile
intMonat = Month(Date)

wird das heutige Datum über "Date" eingelesen. D.h., wenn Du ein bestimmtes Datum irgendwo vorgeben willst, dann muß diese Zeile geändert werden (Du könntest bspw. ein Datum aus einer Zelle einlesen intMonat = Month(Sheets("Tabelle1").Range("A1"))

 

Hallo,

funktioniert Bestens. Könnten man nun noch eine zweite Variable hinzufügen, die dann meintwegen eine von - bis Abfrage realisiert. Bspw. März bis Juli ?

Hab mal umhergebastelt, aber bin noch zu keinem Ergebnis gekommen.

LG Biegel

 

Hallo Biegel,

klar ließe sich das machen. Ich hatte Dich aber so verstanden, dass automatisch die nicht benutzten Monate ausgeblendet werden sollen (ohne, dass der User etwas machen muß). Bei der Version mit 2 Variablen müßte bei Aktivierung des Blattes zunächst einmal abgefragt werden, welche Monate ausgeblendet werden sollen. Bis das eingegeben wird, kannst man gleich die entsprechenden Spalten ausblenden (das geht imho schneller).

Bist Du Dir sicher, dass Du eine solche Lösung willst/brauchst?

cu
myfake

 

Guten Morgen,

ja diese Funktion wäre nicht schlecht, da man diese dann auch immer modifizieren/ erweitern kann. Ich bräuchte nur immer einen Anstoss, da ich nur die Grundlagen beherrsche (momentan).

Habe den jetziges Code mal leicht modifiziert, so dass ich jetzt bspw. 3 eingebe und nur bis Monat März angezeigt wird.

Es soll als Grundlage für ein Diagramm dienen.

Wenn es nicht zu viele Umstände macht, wäre ich an einer Lösung interessiert.

Hier mal der jetzige Code.


Private Sub Worksheet_Activate()

Dim Monat As Integer

'Hier die Spalten festlegen, bzw den Bereich....

Range(Columns(1), Columns(13)).EntireColumn.Hidden = False

Monat1 = Sheets("Tabelle1").Range("a7")

If Monat1 < 13 Then Range(Columns(Monat1 + 2), Columns(13)).EntireColumn.Hidden = True

End Sub

 

Hallo Biegel,

o.k., dann kann ich Dir 2 Möglichkeiten bieten ...

1. Variante: per Inputboxen
Code:

Der User gibt in die Inputboxen ein, von welchem bis zu welchem Monat ausgeblendet werden soll. Hierbei ist wichtig, dass die Monate exakt so eingegeben werden, wie im Code hinterlegt! Sonst kommt es zu einer Fehlermeldung.

2. Variante: per Userform
Um den User "an die Hand zu nehmen" und so Fehleingaben zu vermeiden, könntest Du auch eine Userform verwenden. Der User wählt die Monate hierbei über eine KomboBox aus.
Ich habe einen Screenshot und die Userform angehängt. (um sie runterladen zu können mußt Du allerdings angemeldet sein).

cu
myfake