Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 19:29:30
Formel filter
24.04.2024 18:49:56
merge & select
24.04.2024 17:19:09
Formel mit Index-Funktion
24.04.2024 16:19:42
SummeWenn / SummeWenns mit Bedingung wenn kleiner als dann
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1340to1344
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
1340to1344
1340to1344
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Spalten automatisch ausblenden

Spalten automatisch ausblenden
04.12.2013 17:51:38
Andi
Hallo,
suche Hilfe bei folgendem Problem:
Ich möchte auf Basis einer Berechnung, automatisch ganze Spalten ausblenden (mit Hilfe von VBA)! Leider bin ich in VBA absolut nicht Fit.
Habe eine stark vereinfachte Tabelle (die nicht viel Sinn macht, aber das Problem darstellt) erstellt und hoffe dadurch wird mein Vorhaben klar.
https://www.herber.de/bbs/user/88374.xlsx
Vielen Dank für Eure Hilfe

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

Betreff
Datum
Anwender
Anzeige
AW: Spalten automatisch ausblenden
04.12.2013 23:14:58
Mustafa
Hallo Andi,
Sub Ausblenden()
Dim Wks1 As Worksheet           'Wird das Worksheet definiert in welchem alles passieren soll
Dim LngSpalten As Long          'Wird mit dem Wert der Zelle D2 befüllt
Dim LngEinblenden As Long       'Dient als Zähler für die Einzublendenden Spalten
Dim LngAusblenden As Long       'Dient als Zähler für die Auszublendenden Spalten
Const LngStart As Long = 6      'Ab dieser Spalte wird Ein- bzw Ausgeblendet
Const LngAnzahl As Long = 30    'Bis zu dieser Spalte wird  Ein- bzw Ausgeblendet
Application.ScreenUpdating = False
On Error GoTo Fehlerroutine
Set Wks1 = Worksheets("Tabelle1")
'Erst alle Spalten einblenden
For LngEinblenden = LngStart To LngAnzahl
Wks1.Columns(LngEinblenden).Hidden = False
Next
'Dann die unnötigen Spalten ausblenden
LngSpalten = Wks1.Cells(2, 4) + LngStart
For LngAusblenden = LngSpalten To LngAnzahl
Wks1.Columns(LngAusblenden).Hidden = True
Next
Fehlerroutine:
Application.ScreenUpdating = True
End Sub
Dies in ein Modul kopieren sollte das gewünschte Ergebnis ausgeben.
Rückmeldung obs Hilft wäre nett.
Gruß aus der Domstadt Köln.

Anzeige
AW: Spalten automatisch ausblenden
05.12.2013 09:02:37
Andi
Hallo Mustafa,
wenn ich den Code über den Debugger laufen lasse, funktioniert alles. Aber was muss ich noch machen, damit dieser Code automatisch durlaufen wird (ohne den Code zu öffnen), wenn sich die Summe in D2 ändert.
Wie gesagt, ich kenn mich mit VBA kaum aus.
Vielen Dank schonmal für Deine Hilfe!!
Beste Grüße

AW: Spalten automatisch ausblenden
05.12.2013 09:42:34
Andi
Hallo nochmal,
ich habe es hinbekommen! Vielen Dank für die Hilfe!
Habe in Tabelle1:
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A2:D2")) Is Nothing Then Exit Sub
Call Ausblenden
End Sub
geschrieben und dein Modul einfach reinkopiert!
Funktioniert wie gewünscht, Danke!

Anzeige
AW: Spalten automatisch ausblenden
05.12.2013 22:50:43
Mustafa
Hallo Andy,
Learning by Doing hat mich auch zu meinem jetzigen Wissensstand gebracht :-)
Danke für die Rückmeldung.
Gruß aus der Domstadt Köln.

AW: Spalten automatisch ausblenden
06.12.2013 10:15:54
Andi
Eine kleine Frage habe ich dann doch noch...
Wie muss ich es schreiben, dass das Modul ausgeführt wird ohne dass ich aktiv was in den Zellen änder?
Also wenn sich in den Zellen auf Basis einer Rechnung oder Übergabe eines anderen Zellenwerts (anderes Arbeitsblatt), der Wert ändert. Bislang funktioniert es ja nur wenn ich in den Zellen durch eine Eingabe und Enter etwas veränder.
Hab schon einiges versucht, aber ohne Erfolg.
Beste Grüße Andi

Anzeige
AW: Spalten automatisch ausblenden
06.12.2013 22:55:00
Mustafa
Hallo Andi,
momentan benutzt du dieses Ereignis der Tabelle :
Private Sub Worksheet_Change(ByVal Target As Range)
Dies reagiert nur auf Änderungen die manuell gemacht werden.
Willst du auf Berechnungen hin den Code ausführen lassen dann musst du dieses Eriegnis der Tabelle nutzen:
Private Sub Worksheet_Calculate()
Gruß aus der Domstadt Köln.

AW: Spalten automatisch ausblenden
07.12.2013 11:51:57
Andi
Ich würde sagen, perfekte Hilfe! Danke Mustafa
Nach einfügen in tabelle1 von:
Private Sub Worksheet_Calculate()
If Cells(1, 4) Is Nothing Then Exit Sub
Call Ausblenden
End Sub
Jetzt fuktioniert das schomal wie ich es will =)
Teilweise sind die Dinge nicht schwer, wenn man weiß wie schreiben! Gibt es eine Liste mit den wichtigsten Befehlen, oder wie ist des bei VBA?
Vielen Dank für die Unterstützung!
Gruß Andi
Anzeige

308 Forumthreads zu ähnlichen Themen

Zeilen ausblenden wenn...
Andreas

Hi,
ich habe ein kleines Problem. Auf meinem Excel-Blatt sind von B4:B200 Datumswerte im Format TT.MM.JJJJ eingetragen. In der Zelle A1 gebe ich nun beispielsweise Januar ein. Ich will nun, dass alle Zeilen ausgeblendet werden, die nicht in der Spalte B ein Januar-Datum eingetragen haben. D...
04.09.2008 20:18:36
Thread-ID: 1007507
10 Beiträge
Anzeige
Zeilen ausblenden, außer wenn in Zelle ...?
Selma

Hallo Leute,
ich möchte mit einem CommandButton ab Zeile 4 die Zeilen wie folgt ausblenden:
- wenn in Spalte M die Zelle diesen "plt" Inhalt hat, dann soll die Zeile nicht ausgeblendet werden
- wenn in Spalte M die Zelle die Füllfarbe 15 hat., dann soll die Zeile nicht ausgeblendet...
27.10.2008 18:13:00
Thread-ID: 1019700
10 Beiträge
Spalte ausblenden, wenn in Zeile 7 der Zelleninhal
Selma

Hallo Leute,
wie kann ich die Spalten ausblenden, die in Zeile 7 als Zelleninhalt "x" oder "D" haben?
Vielen Dank im Voraus !
Liebe Grüße,
Selma
29.10.2008 15:41:00
Thread-ID: 1020332
4 Beiträge
Anzeige
Zeilen ausblenden wenn...
Marc

Hallo Forum
In Spalte E11:E94 sind Namen aufgeführt(Meier,Müller usw.). In dieser Spalte kommen
aber auch Namen mit einem Vorhängsel wie z.B. a_Meier, a_Müller usw. vor.
Ist es möglich, die Zeilen mit diesen Vorhängseln auszublenden?
Gruß
Marc
06.12.2008 21:44:00
Thread-ID: 1030753
6 Beiträge
Zeilen mit bestimmten Inhalt löschen
sascha76er

Hallo,
ich möchte immer alle Zeilen via Makro löschen, wenn der Inhalt der Zeile indentisch mit der ersten ist.
Ist das möglich, wenn ja wie?
Vorab vielen Dank
Sascha
08.12.2008 13:35:00
Thread-ID: 1031058
6 Beiträge
Spalte ausblenden, wenn leer
Peter

Guten Abend
Ich habe eine Tabelle mit verschiedenen benannten Bereichen innerhalb von jeweils einer Spalte, also beispielsweise
"AAA" bezieht sich auf Tabelle1!A5:A205
"BBB" bezieht sich auf Tabelle1!B5:B205
"CCC" bezieht sich auf Tabelle1!C5:C205
Nun möchte ich abfragen, ob...
05.02.2009 23:44:01
Thread-ID: 1047550
14 Beiträge
Zeilen ausblenden, wenn 0
evi

Hallo,
ich habe folgendes Problem:
Ich möchte bestimmte Zeilen eines Tabellenblattes (Blatt 2) ausblenden (bspw. Zeile 120-123), wenn in einem anderen Tabellenblatt (Blatt 1) in ein einer bestimmten Zelle (z. Bsp. C45) eine "0" eingetragen ist.
Leider hab ich nicht so viel Ahnung di...
06.02.2009 12:07:03
Thread-ID: 1047705
6 Beiträge
Dropdown-Auswahl, bestimmte Spalten ausblenden
Dan

Hallo
Ich habe folgendes Problem:
in einem Dropdown-Fenster kann ein Wert ausgewählt werden (z.B. Hund, Katze oder Maus).
- wenn ich nun Hund auswähle, sollen die Spalten F+H ausgeblendet werden,
- wenn ich nun Katze auswähle, sollen die Spalten G+I ausgeblendet werden, und
13.03.2009 11:07:26
Thread-ID: 1059787
5 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
9
16
9
3
3
5
5
13
5
4
4
4
2
2
8
4
1
3
3
4
1
3
4
4
3