Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 23:47:55
Datum ausweisen, wenn definierte Summe erreicht ist
25.04.2024 21:40:53
Excel Datenquelle aus dem Web mit Anmeldung?
25.04.2024 21:21:16
Zellkommentar in UserForm anzeigen und bearbeiten
25.04.2024 21:13:13
Kalenderwochen addieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1392to1396
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
1392to1396
1392to1396
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Ein- ausblenden von Spalten

Ein- ausblenden von Spalten
12.11.2014 20:02:27
Spalten
Hallo User,
zurzeit bin ich dabei für meinen privaten Gebrauch eine Excel-Tabelle zu gestalten, wobei ich Eure Unterstützung benötige, da ich als Anfänger keine Ahnung von VBA-Programmierung habe.
Es geht um das aus- und einblenden von Spalten.
In der ersten Zelle A1 steht das aktuelle Tagesdatum =heute()
In der vierten Zeile von C4:NF4 steht in jeder Zelle ein Tagesdatum TT.MM;@
Nun benötige ich ein VBA-Code welcher sich das aktuelle Tagesdatum in Zelle A1 anschaut und
die Spalten ausblendet welche sich in der Vergangenheit befinden.
Zusätzlich wäre es schön wenn man über das Betätigen einer Taste alle ausgeblendeten Spalten wieder sichtbar machen kann.
Ich hoffe dass Ihr mir helfen könnt. Meinen besten Dank im Voraus
Michael

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Ein- ausblenden von Spalten
12.11.2014 21:53:02
Spalten
Hallo Michael,
teste das mal, sollte funktionieren (Code in die Tabelle) 
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Const Auswahl = "A1"
Dim Bereich As Range
Set Bereich = Range("C4:NF4")
Dim S As Range
If Target.Address(0, 0) = Auswahl Then
Application.ScreenUpdating = False
Bereich.EntireColumn.Hidden = False 'alle anzeigen
For Each S In Bereich
If S
So gute N8
Gruß Matze

Bessere Variante
12.11.2014 22:01:12
Matze
Hallo,
Die Variante ist schöner , leere die Zelle A1 und ALLE Spalten werden angezeigt,
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim S As Range
On Error GoTo ErrExit
If Not Intersect(Target, Range("$A$1")) Is Nothing Then
Application.EnableEvents = False
Application.ScreenUpdating = False
For Each S In Range("C4:NF4")
S.EntireColumn.Hidden = S.Value
Beim ersten Code müsstest du den 1.1. eingeben um alle einzublenden,
besser gesagt das KLEINSTE Datum
Gruß Matze

Anzeige
AW: Ein- ausblenden von Spalten
13.11.2014 13:01:53
Spalten
Hallo Matze,
ersteinmal rechtherzlichen Dank für deine schnelle hilfe, leider klappt die sache noch nicht so.
ich habe den Code eingpflegt, aber wenn ich diesen Starte kommt ein Fester wo normalerweise die Code
vorhanden sind. Leider ist dort deiner nicht vorhanden? Um das VBA zu testen habe ich in Zelle A1 ersteinmal ein festes Datum gesetzt. Ich habe einmal die Datei hochgeladen, so kannst Du schauen wo es hapert ;-)
https://www.herber.de/bbs/user/93745.xlsm
Micha

AW: Ein- ausblenden von Spalten
13.11.2014 17:01:37
Spalten
Hallo Michael,
deine Datenreihe geht vom 1.1.2015 - 3.1.2016
wenn du nur den 12.5. zb eingibst wird dies nicht als der 15.5.2015 sondern als 12.5.2014 behandelt!
Nutze zur Eingabe den Ziffern Block 12/5/15 geht schneller.
Gruß Matze

Anzeige
AW: Ein- ausblenden von Spalten
13.11.2014 18:19:22
Spalten
Hallo Matze,
so nun läuft alles :-) !! Nochmals rechtherzlichen Dank für die schnelle Unterstützung und Hilfe.
Micha

301 Forumthreads zu ähnlichen Themen

Zelle nichtleer, dann Spalten ausblenden
kellerkind42

hallo.
Ich tue mich sehr schwer mit folgendem Wunsch:
Im Spaltenbereich A-Z:
Im Zeilenbereich 10 -20:
z.B:
Steht in Spalte C etwas in Zeile 10 oder 11 oder 12.... dann Blende diese Spalte aus!
Kann mir bitte jemand auf die Sprünge helfen?
Gruß Reinhardt.
20.08.2008 07:29:00
Thread-ID: 1003062
6 Beiträge
Anzeige
Bei Eintrag in eine Zeile Spalten ein/ausblenden
Matthias

Guten Morgen,
ich bräuchte mal wieder Hilfe :/ Mein Excelhorizont ist stark begrenzt und habe ein für mich unlösbares Problem, da ich keinerlei VAB-Kenntnisse habe. Ich bräuchte eine Lösung für folgende Problemstellung.
Wenn im Feld A50 irgendetwas steht, dann sollen Zeile 22-24 eingeb...
09.10.2008 07:54:00
Thread-ID: 1015202
6 Beiträge
Fehlermeldung beim Ausblenden von vielen Spalten
vielen

Hallo,
ich muß in einer Tabelle ziemlich viele Infos über sehr viele Spalten einfügen (es reicht bis Spalte FM) und erst danach kann ich in den anschließenden Spalten das ausweisen was ich möchte. Deswegen
möchte ich die Spalten B bis FM gruppieren und einklappen (sprich ausblenden).
16.10.2008 17:14:44
Thread-ID: 1016924
7 Beiträge
Anzeige
Makro zum Befüllen von Spalten aus einer 2. Datei
Spalten

Hallo zusammen,
wurde leider wieder von eine Aufgabe gestellt, die meine beschränkten Makro Fähigkeiten ziemlich ausreizt.
Ich habe eine ziemlich große xls Datei (>100 Spalten), die für den Export in mehrere txt.Dateien für eine Fremdsoftware Schnittstelle benötigt wird.
Nun wu...
18.11.2008 09:39:00
Thread-ID: 1025506
3 Beiträge
Bestimmten Zellenwert ausblenden VBA
Alex

Guten Morgen Liebe Excelisten,
ich bräuchte mal Eure hilfe, unzwar bräuchte ich ein Formel/VBA die mir auf dem Tabellenblatt z.B. Urlaub die Kürzungen F,S und AS ausblendet, sie sollten nicht gelöscht werden sondern nur nicht mehr angezeigt werden. zum beispiel in einer anderen schriftfarbe...
20.11.2008 07:19:09
Thread-ID: 1026287
4 Beiträge
kopieren/filtern von x-Spalten in x-Blättern
x-Spalten

So, anderes Thema:
Ich habe eine Arbeitsmappe mit verschiedenen Arbeitsblättern, diese Arbeitsblätter sind von der struktur her alle gleich aufgebaut, nur der Inhalt unterscheidet sich voneinander.
Ich möchte jetzt eine Auflistung generieren, die mir auf dem letzten Blatt der Arbeitsmap...
22.11.2008 16:34:00
Thread-ID: 1026984
16 Beiträge
Alle anderen Spalten ausblenden!
lisa

Hallo zusammen
Ich habe ein Macro aufgezeichnet, mit dem ich in der Tabelle 3 Spalte E filtere.
Ich suche nun eine möglichkeit alle anderen Spalten auszublenden!
Hat hierzu jemand eine Idee?
Private Sub CommandButton2_Click() Sheets("Tabelle3").Select Selection.AutoFilter Fie...
04.12.2008 17:16:32
Thread-ID: 1030239
20 Beiträge
Ausblenden von Linien und Blockpfeilen
Linien

Hallo zusammen!
Eine Frage:
Wie ich Drop-Down Felder und Buttons per VBA ausblenden kann ist mir bekannt:
ThisWorkbook.Worksheets("Tabelle1").Shapes("Dropdown 1").Visible = False '(DropDown-Feld)
Sheets("Tabelle1").Buttons(1).Visible = False...
22.01.2009 14:59:32
Thread-ID: 1042643
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
1
5
6
2
2
3
15
19
3
2
2
1
4
1
13
3
2
6
8
7
3
4
3
2