Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.04.2024 19:22:16
Von exceltabelle in word per steuerelement temarker
16.04.2024 18:50:53
Fehlermeldung bei Code - Excel speichern mit Bez. aus Zelle
16.04.2024 17:18:01
Projektplan-Tabelle oder Gantt ohne Balken
16.04.2024 17:05:25
formatierten Text direkt in Zelle einfügen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
596to600
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
596to600
596to600
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Spalten ausblenden mit Makro

Spalten ausblenden mit Makro
08.04.2005 18:22:00
Tim
Hallo allerseits,
habe versucht durch bisherige Forum-Beiträge mein Problem zu lösen. Leider hat es nicht ganz gereicht:
Ich habe ein Excel-Chart, in dem in den Spalten A bis L in der ersten Zeile die Monate Januar bis Dezember stehen. Ist nun der Monat vorbei, soll sich die Spalte wenn möglich bei Start der Excel-Datei von selbst ausblenden. Das Datum wird in dem Excel-Chart seperat noch einmal ausgewiesen (Spalte M).
Wie muss hierfür das Makro aussehen?
Wenn jemand hierfür eine Lösung hätte, wäre ich echt dankbar.
Grüße
Tim

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Spalten ausblenden mit Makro
08.04.2005 18:55:11
Beni
Hallo Tim,
kopiere der erste Code in das Modul aktuellen Tabelle, noch besser ist der zweiete Code in das Modul der Arbeitsmappe, aber dann musst Du den Tabellename anpassen (nicht Beide).
Gruss Beni

Private Sub Worksheet_Activate()
Dim m, Monat As Integer
Monat = Month(Date) - 1
For m = 1 To Monat
Columns(m).EntireColumn.Hidden = True
Next m
End Sub



Private Sub Workbook_Open()
Dim m, Monat As Integer
Monat = Month(Date) - 1
For m = 1 To Monat
Sheets("Nameanpassen").Columns(m).EntireColumn.Hidden = True ' anpassen
Next m
End Sub

Anzeige
AW: Spalten ausblenden mit Makro
11.04.2005 19:32:56
Tim
Hey,
vielen Dank für Eure Hinweise.
Da sich mein "Problem" noch etwas abgewandelt hat, habe ich eine Zwischenlösung gewählt, die vorgeschlagenen Makros waren dabei aber auf jeden Fall hilfreich.
Wen's interessiert:Mein Excel-Blatt sah so aus
A ......... B ......... C ................ D ................. E .... .......... H
=Heute()
Verein Januar Kommentar Februar Kommentar .... April
Nun sollte sich nicht nur die Spalte mit den vergangenen Monaten zuklappen, sondern nur der aktuelle sowie die zwei nächsten Monate zu sehen sein. D.h. im April sollte neben der Spalte A (die immer sichtbar bleibt)die Spalte mit April, Mai und Juni (jeweils mit Kommentarspalte daneben) sichtbar bleiben.
Habe also das Makro von th.heinrich benutzt und zusätzlich eine Nebenrechnung im Excel-Blatt gemacht, um die Spalten zu kennzeichnen, die zugeklappt werden sollen.
(durch Rechnung mit dem Datum, um die Spalten mit dem aktuellen sowie den nächsten beiden Monaten zu kennzeichnen: =wenn(oder(Monat(a1)-Monat(b2)>0;(Monat(a1)-Monat(b2) Das geht sicherlich auch eleganter über VBA, aber es funktioniert.
Grüße
Tim
Anzeige

311 Forumthreads zu ähnlichen Themen

Zellen ausblenden mit Wert 0 in Zelle
Ulrich

Hallo zusammen,
wie kann ich einem Tabellenblatt alle Zeilen ausblenden, bei denen in der ersten Zelle eine 0 (null) steht? Geht sowas überhaupt?
Viele Grüße,
Ulrich
01.09.2008 11:08:49
Thread-ID: 1006360
6 Beiträge
Anzeige
Register ein- und ausblenden
HaKa

Hallo Forum
Wie lautete der VBA-Code um z.B. das Register "Tabelle3" aus-, resp. wieder einzublenden?
Gruss Heinz
14.09.2008 15:40:00
Thread-ID: 1009597
5 Beiträge
Spalten ein und ausblenden
Marion65

Hallo zusammen, ich habe hier eine ExcelTabelle welche zum Ein- und Ausblenden der Spalten kleine + bzw. - Zeichen hat. Wie kann ich diese selber erstellen? Vielen Dank, Marion. https://www.herber.de/bbs/user/55401.xls
15.09.2008 20:09:56
Thread-ID: 1009885
4 Beiträge
Anzeige
Zelleninhalt mit CommandButton in Textbox anzeigen
Markus

Hallo an alle!
Mein Makro kann bisher folgendes:
Per Klick auf 1 von 300 Comandbuttons wird der entsprechende Inhalt aus einer von 300 Zellen in eine Textbox geladen.
"Das funktioniert"
Nun möchte ich , nachdem ich einen Button gedrückt habe und der Inhalt in Textbox angezeigt w...
21.11.2008 11:05:00
Thread-ID: 1026664
2 Beiträge
VBA, Notiz ein- und wieder ausblenden
Burghard

Hallo ins Netz,
ich möchte mit Knopfdruck ein Textfeld (mit Inhalt, es existiert schon) oder ein Autoformat (z.B. Gefaltete Ecke) auf dem Blatt an einer bestimmten Stelle für 1 Minute plazieren und danach soll es wieder verschwinden. Also kopieren und dann automatisch die Kopie wieder lösc...
01.12.2008 09:08:18
Thread-ID: 1029158
2 Beiträge
Commandbutton ein und ausblenden
SoulOpa

Hallo und einen schönen Abend,
ich habe eine Frage! und zwar habe ich ein Commandbutton in der Userform erstellt so das der Commandbutton beim Tabellenblatt beim scrollen immer sichtbar ist. Nun würde ich gerne wenn ich die Mappe zwischendurch verlass das der Button verschwindet und wenn ic...
23.01.2009 17:50:27
Thread-ID: 1043094
5 Beiträge
Zeilen Ein. und Ausblenden
KayR

Hallo,
würde gerne folgendes realisieren, hab aber von VBA
kaum Ahnung.
Wenn Tabelle2!A8 = FALSCH, dann sollen in Tabelle1 die
Zeilen 8,9,10 ausgeblendet werden.
Wenn Tabelle2!A8 = WAHR, dann sollen die Zeilen 8,9,10
wieder eingeblendet werden.
Kann mir jemand bitte...
27.01.2009 20:09:00
Thread-ID: 1044366
6 Beiträge
Ein-/Ausblenden v. Arbeitsblättern mit VBA
Lenni

Moin Excellianer!
Mit folgendem Code "Sheets("Tabelle1").Visible = False" in einem UserForm blende ich die Tabelle 1 und 2 aus. Mit "True" für "False" blende ich sie wieder ein.
Das Ganze hat nur den Nachteil, dass man die Tabelle 1 und/oder 2 über das Menü "Format > Blatt > Einbl...
01.02.2009 00:12:00
Thread-ID: 1045802
4 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
5
2
4
3
5
1
1
4
5
3
3
4
2
2
5
6
6
7
5
2
3
21
5
7
8