Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 21:51:33
Idee für Grafik
26.04.2024 21:29:07
PQ zufällige Reihenfolge
26.04.2024 17:18:47
Große Datenmenge in komplexes Diagramm verpacken
26.04.2024 16:22:47
Aktualisierung Verknüpfung bei geschlossener Quelldatei
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1600to1604
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
1600to1604
1600to1604
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Spalten einblenden bei bestimmten Zellwert

Spalten einblenden bei bestimmten Zellwert
09.01.2018 15:26:43
Seba
Hallo zusammen,
ich komme bei folgendem Problem nicht weiter, Datei siehe:
https://www.herber.de/bbs/user/118813.zip
Ich würde gern alle Spalten ab K ausblenden und nur die Spalten wieder einblenden, bei denen in der Zeile 4 die Kalenderwoche mit einer der beiden Auswahlzellen E1 und G1 übereinstimmen wieder einblenden.
Gibt es hier per VBA eine simple Lösung?
Ich bin mit VBA-Programmierung leider nicht so bewandert.
Vielen Dank schonmal.

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

Betreff
Datum
Anwender
Anzeige
AW: Spalten einblenden bei bestimmten Zellwert
09.01.2018 16:20:29
Hajo_Zi
das geht nicht, da eine XLSX Datei kein Makro enthalten kann.
Ich sehe keinen Grund eine Datei 2x zu speichern. Ich führe keine Liste unter welchem Dateinamen ich die Datei gespeichert habe.
Warum muss eine so kleine Datei gepackt werden?

Ich gebe keinen Dank für eine Rückmeldung, da ich durch solche Beiträge nicht meine Beitragszahl erhöhen muss.
Also ich schreibe keine Beiträge mit dem Betreff "Gerne u. Danke für die Rückmeldung....."
Rückmeldung ist ja in der Heutigen Zeit nicht üblich und die wenigen die eine Rückmeldung geben,
mögen mir das verzeihen, das kein Danke für eine Rückmeldung kommt.
Beiträge von Werner, Luc, robert und folgende lese ich nicht.
Anzeige
AW: Spalten einblenden bei bestimmten Zellwert
09.01.2018 16:37:10
Seba
Hallo Hajo,
tut mir leid, hatte die Datei aus Versehen im falschen Format abgespeichert als ich das Tabellenblatt aus der eigentlichen Arbeitsmappe herausgelöst habe.
Anbei der Link zur .xlsm-Datei (konnte das vorhin irgendwie nur als Zip-Datei hochladen):
https://www.herber.de/bbs/user/118817.xlsm
Man möge mir bitte verzeihen. Ist der erste Forumseintrag in meinem bisherigen Leben.
AW: Spalten einblenden bei bestimmten Zellwert
09.01.2018 16:57:15
Hajo_Zi 

Option Explicit
Sub Spalte_ausblenden()
Dim LoLetzte As Long
Dim LoI As Long
LoLetzte = IIf(IsEmpty(Cells(4, Columns.Count)), Cells(4, _
Columns.Count).End(xlToLeft).Column, Columns.Count)
For LoI = 11 To LoLetzte
Columns(LoI).EntireColumn.Hidden = False
Columns(LoI).EntireColumn.Hidden = Cells(3, LoI) * 1  _
CInt(Mid(Range("G1"), 3))
End If
Next LoI
End Sub
Gruß Hajo
Anzeige
AW: Spalten einblenden bei bestimmten Zellwert
09.01.2018 16:54:58
Seba
Hallo Sepp,
mir geht es um das wiedereinblenden der Spalten ab Spalte K wenn ich diese ausgeblendet hätte (momentan sind alle eingeblendet, würde diese aber standardmäßig gern alle ausblenden) und dann immer nur die 2 Wochen einblenden die ich in E1 und G1 vorgebe.
Ich gebe in den 2 Felder E1 und G1 z.B. "KW3" und "KW4" ein und er soll alle Spalten einblenden die in der Zeile 4 (ab Spalte K nach rechts) entsprechend "KW3" oder "KW4" drinstehen haben. Wäre in der Beispieldatei dann Spalte Y bis AL
Gruß Seba
Anzeige
AW: Spalten einblenden bei bestimmten Zellwert
09.01.2018 16:58:47
Sepp
Hallo Sebastian,
un genau das macht mein Code! Hast du 'Eingabe in E1/G1 numerisch' nicht verstanden?
Also Eingabe 10 statt 'KW10' und das 'KW' machst du über das Format.
Gruß Sepp

AW: Spalten einblenden bei bestimmten Zellwert
10.01.2018 07:37:24
Seba
Hallo Sepp und Hajo,
Funktioniert dank Euch jetzt wie es soll.
Vielen Dank.

304 Forumthreads zu ähnlichen Themen

Anzahl unterschiedl. Werte in Spalte zählen
Jakob

Hallo,
ein ähnliches Problem wurde hier im Forum schon einmal diskutiert. (https://www.herber.de/forum/archiv/632to636/t635773.htm)
Meine Problem:
Wie kann ich die Anzahl unterschiedlicher Einträge/Werte einer Spalte erhalten, ohne dass diese vorgegeben werden ( also ohne die Verwe...
14.08.2008 18:16:11
Thread-ID: 1001934
2 Beiträge
Anzeige
Letzen wert in Zeile(nicht Spalte)
hary

Nabend alle miteinander
In einer bestimmten Zeile suche ich den letzten Eintrag. Bis zu diesem soll gefaerbt werden. Mit diesem Code faerbe ich den ganzen Bereich, es soll aber nur bis zum letzten Eintrag in der Zeile gefaerbt werden. Da von links nach rechts gefaerbt.
Case Is = Cells...
28.08.2008 21:25:00
Thread-ID: 1005592
5 Beiträge
von Datum bis Datum suchen und Werte in die Spalte
Datum

Hallo liebe Excel-Könner,
ich habe folgendes Problem und finde keine Lösung.
Ich habe in Spalte A von 2006 bis heute Datum stehen, über eine UserForm möche ich in zwei TextBoxen von bis Datum eintragen und in Spalte B in diesem Bereich den WertX.
Ich hoffe Ihr könnt mir helfen!
...
07.09.2008 09:31:20
Thread-ID: 1007931
8 Beiträge
Anzeige
Werte löschen beim Eintrag in andere Spalte ?
Selma

Hallo Leute,
wie kann ich folgendes ab Zeile 5 für aktive Zeile über VBA erreichen:
1. Wird der Wert in aktive Zeile in Spalte H eingetragen, dann sollen die Werte in Zellen der Spalte D und E gelöscht werden.
2. Wird der Wert in aktive Zeile in Splate D oder E eingetragen, dann sol...
12.10.2008 17:05:00
Thread-ID: 1015877
5 Beiträge
TextBox Werte in Spalte Q ersetzen ?
Selma

Hallo Leute,
ich habe eine Frage zu UserForm. Beim Klick auf CommandButton1 sollen die Zahlen aus TextBox1 mit Werten in Spalte Q ab Zeile 12 ersetzt werden. Dies soll nur dann erfolgen, wenn in TextBox1 die Zahlen stehen bzw. der TextBox gefüllt ist.
Ersetzt sollen nur die vorhandene W...
13.10.2008 15:42:00
Thread-ID: 1016083
3 Beiträge
Wenn Eintrag in ListBoxspalte dann Eintrag in lbl
Josef

Guten Morgen!
In eine mehrspaltige ListBox werden eine Menge Datensätze eingelesen.
Ich möchte nun folgendes erreichen:
Wenn ich einen Datensatz in der ListBox markiere oder anklicke und wenn jetzt z.B. in der 2.Spalte in der ListBox ein "J" steht, dann soll ein vordefinierter Text...
29.10.2008 07:57:42
Thread-ID: 1020127
3 Beiträge
Wert mit Enter in Liste & speichern
adrian

Hallo, bin noch Anfänger & habe noch ein kleines Problem =/
Habe eine Textbox als Userform und möchte diese in dieser etwas mit der "Entertaste" eingeben, was dann in einer Zelle auf dem Sheet gespeichert wird.
Die Abfrage des gespeicherten Werts funktioniert schon mal =)
nur da...
31.10.2008 11:29:11
Thread-ID: 1020826
2 Beiträge
Werte, die in liste 2 mal vorkommen ausblenden!
adrian

Hi,
habe mir folgendes einfach überlegt, nur leider funktioniert es nicht ganz so wie ich will.
Möchte eigentlich nur Werte die in einer Liste 2mal vorkommen ausblenden!
Die ListBox bezieht Ihre Werte von 3 Sheets, wobei es vorkommen kann, das dadurch öfters mal die gleichen Werte a...
07.11.2008 18:23:00
Thread-ID: 1022778
26 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
1
8
4
7
4
4
2
2
1
25
4
2
1
2
5
33
9
5
1
4
3
4
2
1
3