Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 00:42:03
Listbox mit gefilterten Daten füllen
24.04.2024 20:38:58
Summe mit Bedingung, nur letzte Ergebnisse anzeigen
24.04.2024 19:29:30
Formel filter
24.04.2024 18:49:56
merge & select
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1660to1664
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
1660to1664
1660to1664
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Spalten ein-/ausblenden

Spalten ein-/ausblenden
29.11.2018 08:00:46
Florian
Guten Morgen,
ich habe einen Schichtplan, der pro Kalenderwoche eine Spalte hat.
Per bedingter Formatierung markiert Excel immer die aktuelle Woche. In Zeile 2 wird dazu der Wert "Aktuell" ermittelt, damit die bedingte Formatierung ausgeführt werden kann.
Ich bräuchte jetzt zwei VBA-Codes:
1. Der erste Code soll alle Spalten (außer Spalte A und B) aus der Vergangenheit (also links von der Zelle, in der "Aktuell" steht) ausblenden.
2. Der zweite Code soll die Spalte der Vorwoche einblenden (extra Makro).
Ich habe leider nichts passendes gefunden, daher bräuchte ich dazu bitte eure Hilfe. Vielen Dank dafür.
Gruß
Florian

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Spalten ein-/ausblenden
29.11.2018 09:09:43
RPP63
Moin!
Fixiere die Spalten A:B und scrolle per ActiveWindow.ScrollColumn = aktKW - 1 in die Vorwoche.
Näheres kann ich in Unkenntnis Deiner Datei nicht sagen.
Gruß Ralf
AW: Spalten ein-/ausblenden
29.11.2018 09:51:52
Florian
Hallo Ralf,
damit komme ich leider nicht weiter.
Ich habe bisher folgenden Code:
Columns(Cells(2, Columns.Count).End(xlToLeft).Column).Resize(, 5).EntireColumn.Hidden = False
Ich kann ihn nicht genau lesen. Er blendet immer die nächsten 4 Spalten ein, die noch ausgeblendet sind. Ich brauche den gleichen Code nur in die linke Richtung und mit dem Einblenden einer Spalte. Wie muss dieser umgebaut werden?
Gruß
Florian
Anzeige
AW: Spalten ein-/ausblenden
29.11.2018 10:09:36
Werner
Hallo Florian,
Columns(Cells(2, Columns.Count).End(xlToLeft).Column -1).EntireColumn.Hidden = False
Gruß Werner
quick & dirty
29.11.2018 10:11:46
RPP63 

Sub RPP()
Dim Spalte&, i&
Spalte = Rows(2).Find("aktuell", LookAt:=xlWhole, LookIn:=xlValues).Column
Columns.Hidden = False
For i = 3 To 1000
If i
Gruß Ralf
AW: quick & dirty
29.11.2018 10:27:42
Florian
Hallo zusammen,
der Code von Werner macht leider überhaupt nichts.
Der Code von Ralf funktioniert, er hat nur einen Schönheitsfehler.
Links von der Spalte mit dem Wert "Aktuell" sind normalerweise die Spalten ja bereits ausgeblendet. Der Code öffnet zuerst alle Spalten, bevor er alle Spalten (bis auf die Vorwoche und die Spalten A und B) wieder schließt. Kann man das verhindern, dass bereits ausgeblendete Spalten gar nicht erst eingeblendet werden, bevor die Spalten wieder ausgeblendet werden? Es sieht nur unschön aus, wenn bereits viele Spalten ausgeblendet sind...
Danke und Gruß
Florian
Anzeige
AW: quick & dirty
29.11.2018 10:28:01
Florian
Hallo zusammen,
der Code von Werner macht leider überhaupt nichts.
Der Code von Ralf funktioniert, er hat nur einen Schönheitsfehler.
Links von der Spalte mit dem Wert "Aktuell" sind normalerweise die Spalten ja bereits ausgeblendet. Der Code öffnet zuerst alle Spalten, bevor er alle Spalten (bis auf die Vorwoche und die Spalten A und B) wieder schließt. Kann man das verhindern, dass bereits ausgeblendete Spalten gar nicht erst eingeblendet werden, bevor die Spalten wieder ausgeblendet werden? Es sieht nur unschön aus, wenn bereits viele Spalten ausgeblendet sind...
Danke und Gruß
Florian
Anzeige
AW: quick & dirty
29.11.2018 11:28:37
Werner
Hallo Florian,
dass mein Code nichts macht, das wage ich mal zu bezweifeln. Der macht genau das, was nach deinen Vorgaben gefordert war.
Er ermittelt die letzte belegte Spalte in Zeile 2 und blendet die Spalte davor ein. Wenn die natürlich schon eingeblendet sein sollte, dann tut sich logischerweise gar nichts.
So war aber deine Vorgabe mit der einzelnen Codezeile von dir.
Dein Datei kenne ich nicht
Aber was solls, der Code von Ralf funktioniert dann ja wohl, weil er alle ausgeblendeten Spalten zunächst einblendet. Das "unschöne" kriegst du weg, indem du am Anfang die Bildschirmaktualisierung ausschaltest. 
Sub RPP()
Dim Spalte&, i&
Spalte = Rows(2).Find("aktuell", LookAt:=xlWhole, LookIn:=xlValues).Column
Application.ScreenUpdating = False
Columns.Hidden = False
For i = 3 To 1000
If i
Gruß Werner
Anzeige

300 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
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
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
Anzeige
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
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
spalten einzeln ausblenden
Christian

aloha!
spaltenbereiche ausblenden funktioniert ja so:
Columns("A:BC").Select
Selection.EntireColumn.Hidden = False
aber warum kann ich keine einzelne spalte ausblenden
z.b.: ich möchte "G" und "I" ausblenden, so dachte ich, folgendes wäre richtig:
Columns("G:G").Select
05.12.2008 13:39:56
Thread-ID: 1030438
7 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
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
4
3
5
3
1
19
6
4
5
3
4
3
2
8
5
3
7
6
2
8
4
2
3
21