Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
18.04.2024 19:30:20
VBA - Tabelle mit Mannschaftsergebnissen sortieren
18.04.2024 18:04:29
Formel fehler Wert#
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
192to196
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
192to196
192to196
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Spalten einblenden

Spalten einblenden
18.12.2002 16:39:50
diana
Hallo,
ich habe wieder einmal ein Problem und zwar...

Ich habe eine Tabelle die wie folgt aussieht:

Januar Februar März usw.

Das heißt jeder Monat hat eine Spalte unter denen sich dann die Werte befinden.
Die Spalten habe ich alle ausgeblendet.
Desweiteren gibt es ein Feld in der Datei, in der der jeweilige Auswertungsmonat, z.B. März eingetragen werden soll. Wenn jetzt in dieses Feld "März eingegeben wurde, möchte ich, dass die Spalte "März" eingeblendet wird; wird April eingegeben, soll die Spalte "April eingeblendet werden usw.

Geht das?

Vielen Dank für Eure Hilfe!!!!

Liebe Grüße
Diana


4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Spalten einblenden
18.12.2002 16:55:12
Hajo_Zi
Hallo Diana

in VBA in die Tabelle


Option Explicit

	

Private Sub Worksheet_Change(ByVal Target As Range)

	Dim Ini As Integer

	If Target.Address = "$M$1" Then

		Columns("A:L").EntireColumn.Hidden = True  ' alle Monate ausblenden

		If IsDate("1." & Target.Value & ".2002") Then

			Columns(Month(CDate("1." & Target.Value & ".2002"))).EntireColumn.Hidden = False  ' Monat einblenden

		End If

	End If

End Sub

Code eingefügt mit: Excel Code Jeanie

Code Jeanie
Frage
Das Umsetzen nach Html klappt perfekt, auch die Ansicht in den Foren ist gegeben. Bei manchen Foren kann man aber anscheinend nicht den dargestellten Code nach VBA rückkopieren. Warum?
Antwort
Dies liegt nicht an der Code Jeanie !!! Manche Foren interpretieren anscheinend < pre > < /pre > Tags nicht richtig und erzeugen am Zeilenende einen weichen Zeilenumbruch anstatt eines harten Zeilenumbruches. Dies führt dazu, dass im VBA-Editor die Zeilen hintereinander geschrieben werden. Zum Rückkopieren in solchen Fällen: Fügen Sie den kopierten Code aus dem Forum nach Word ein, kopieren Sie ihn dort wieder und fügen Sie ihn dann im VBA - Editor ein

Gruß Hajo

Anzeige
Re: Spalten einblenden
18.12.2002 17:08:19
Chris
Hallo Diana

Nachstehendes Makro bezieht sich auf Zelle A1 und geht davon aus, dass Januar bis Dezember in Spalte A bis L steht.

Die Bezugszelle wirst du anpassen müssen, da Spalte A Januar ist und folglich auch ausgeblendet sein kann.

Gruss
Chris

Dim Spalte
Spalte = ""
If Range("A1") = "Januar" Then Spalte = "A:A"
If Range("A1") = "Februar" Then Spalte = "B:B"
If Range("A1") = "März" Then Spalte = "C:C"
If Range("A1") = "April" Then Spalte = "D:D"
If Range("A1") = "Mai" Then Spalte = "E:E"
If Range("A1") = "Juni" Then Spalte = "F:F"
If Range("A1") = "Juli" Then Spalte = "G:G"
If Range("A1") = "August" Then Spalte = "H:H"
If Range("A1") = "September" Then Spalte = "I:I"
If Range("A1") = "Oktober" Then Spalte = "J:J"
If Range("A1") = "November" Then Spalte = "K:K"
If Range("A1") = "Dezember" Then Spalte = "L:L"
Columns("A:L").Select
If Spalte <> "" Then
Selection.EntireColumn.Hidden = True
Columns(Spalte).EntireColumn.Hidden = False
Else
Selection.EntireColumn.Hidden = False
End If
Range("A1").Select

Anzeige
Re: Spalten einblenden
18.12.2002 18:27:02
Klaus-Dieter
Hallo Diana,

auf meiner Internetseite gibt es unter der Überschrift Werkzeugkiste eine fertige Lösung (zum Download) für Dein Problem. Gesteuert wird das über ein Userform in dem der anzuzeigende Monat ausgewählt wird. Das Programm heit Spalten ausblenden.

Gruß Klaus-Dieter
Klaus-Dieter's Excel und VBA Seite

Re: Spalten einblenden
19.12.2002 10:08:38
diana
Vielen Dank für Deine Hilfe!

Liebe Grüße
Diana

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige