Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 04:37:43
Mit Word erstellte PDF als Anhang an E-Mail anhängen
24.04.2024 00:20:14
Bestimmte Spalten als xls exportieren per Makro
23.04.2024 22:08:10
Auflisten in Spalte VBA
23.04.2024 21:33:46
Nur farbige/nicht farbige Zellen markieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
912to916
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
912to916
912to916
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Spalten automatisch ausblenden - die Zweite

Spalten automatisch ausblenden - die Zweite
09.10.2007 18:23:00
Boory
Hallo Leute, hallo Jens... :o)
in diesem Thread: https://www.herber.de/forum/archiv/912to916/t912515.htm hatte ich schon mal wegen dieser Problematik (Spalten automatisch ausblenden) angefragt.
Allerdings scheint das VBA-Script Probleme damit zu haben, wenn in der Bezugs-Zelle (Case Range...) der Inhalt aus einer anderen zelle übernommen wird.
Abhilfe wäre, wenn ich wüßte, wie ich mich auf eine Zelle in einem Datenblatt (dort ist die Quelle) beziehen kann. Wird dazu auch die Benennung des Tabellenblattes benutzt oder die Tabellennummer?
Schon mal vielen Dank
Boory

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Spalten automatisch ausblenden - die Zweite
09.10.2007 18:38:00
Renee
Hi Boory,
Wenn Du uns sagst, wo sich die Zelle befindet.
Falls sich keine Zelle auf dem Aktiven.Blatt verändert, kannst Du nicht mehr mit der _Change Methode arbeiten. Also sag uns bitte, welche Zelle auf welchem Blatt verändert sich und soll auf welchem Blatt die Spalten ausblenden ?
Nach dem Muster Sheets("BlattName").Range("ZelleAdresse") kannst du es auch mal selbst versuchen.
GreetZ Renee

AW: Spalten automatisch ausblenden - die Zweite
09.10.2007 19:21:53
Boory
OK - war bisschen wenig "Futter" - ich geb's zu... :o)
Als erstes hier das Script, das ich von Jens bekommen habe:

Private Sub Worksheet_Change(ByVal Target As Range)
Select Case Range("J1")
Case Is = "Abt. 1"
Columns(11).Hidden = False
Columns(12).Hidden = False
Columns(13).Hidden = True
Columns(14).Hidden = False
Columns(15).Hidden = True
Columns(16).Hidden = True
Columns(17).Hidden = False
Columns(18).Hidden = True
Case Is = "Abt. 2"
Columns(11).Hidden = False
Columns(12).Hidden = True
Columns(13).Hidden = True
Columns(14).Hidden = False
Columns(15).Hidden = True
Columns(16).Hidden = True
Columns(17).Hidden = False
Columns(18).Hidden = True
Case Is = "Abt. 3"
Columns(11).Hidden = False
Columns(12).Hidden = True
Columns(13).Hidden = True
Columns(14).Hidden = True
Columns(15).Hidden = True
Columns(16).Hidden = True
Columns(17).Hidden = False
Columns(18).Hidden = False
End Select
End Sub


Dann gibt es - dem Ganzen vorangestellt - ein Datenblatt, in das die Abteilung eingetragen wird. Auf dem Tabellenblatt, auf dem das Script steht, sollen die Zellen ausgeblendet werden, wenn jemand die Abteilung ändert. Dort befindet sich eine Zelle (J1), die vom Datenblatt die Abteilung übernimmt (=Datenblatt!D15).
Soweit die Struktur...
Boory

Anzeige
AW: Spalten automatisch ausblenden - die Zweite
09.10.2007 19:34:31
Horst
Hi,
verwende das Calculate-Ereignis.
mfg Horst

AW: Spalten automatisch ausblenden - die Zweite
09.10.2007 19:37:00
Boory
Ähm... danke, Horst...
Aber hast Du mal oben bei meinem Profil geschaut? "Excel gut - VBA bescheiden"...
Ich würde das "Calculate-Ereignis wirklich gern verwenden, glaub mir! Wenn ich nur wüßte, wie... :o)
Kannst Du mir da vielleicht einen etwas ausführlicheren Tip geben?
Greetz
Boory

AW: Spalten automatisch ausblenden - die Zweite
09.10.2007 19:56:48
K.Rola
Hallo,
versuchs mal so:

Private Sub Worksheet_Calculate()
Dim a1, a2, a3, i As Byte
a1 = Array(0, 0, -1, 0, -1, -1, 0, -1)
a2 = Array(0, -1, -1, 0, -1, -1, 0, -1)
a3 = Array(0, -1, -1, -1, -1, -1, 0, 0)
Select Case Range("J1")
Case Is = "Abt. 1"
For i = 0 To 7
Columns(i + 11).Hidden = a1(i)
Next
Case Is = "Abt. 2"
For i = 0 To 7
Columns(i + 11).Hidden = a2(i)
Next
Case Is = "Abt. 3"
For i = 0 To 7
Columns(i + 11).Hidden = a3(i)
Next
End Select
End Sub


Gruß K.Rola

Anzeige
AW: Spalten automatisch ausblenden - die Zweite
09.10.2007 20:56:00
Boory
Danke, K.Rola,
werde das Ganze morgen oder übermorgen mal zerfieseln und meinen Belangen anpassen. Ich melde mich dann wieder hier im Thread!
Vielen Dank
Boory

305 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