Live-Forum - Die aktuellen Beiträge
Datum
Titel
27.04.2024 20:04:34
Excel in Formen z.b Rechteck, eine Tabelle einfügen?
27.04.2024 19:23:05
Passwortabfrage für verschiedene tabellenblätter
27.04.2024 16:48:06
Formel gibt Falsch aus und ich weiß nicht warum - VBA
27.04.2024 14:45:54
Verknüpfung Tabelleneinträge mit Datumsspalte
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1932to1936
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
1932to1936
1932to1936
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Spalten mit VBA ein-ausblenden

Spalten mit VBA ein-ausblenden
10.07.2023 11:17:18
Holger

Hallo,

ich habe eine Tabelle in der ich mit einer Combobox, diese ist auf dem Tabellenblatt, Spalten nach ihrem Wert ein bzw. ausblenden möchte.
Dieses soll möglichst dynamisch sein.
Mit folgenden Code geht es, leider muss ich ihn immer anpassen wenn ich in Zeile 4 was ändere.
Der Bereich der Überprüft werden soll ist von I bis KP

Diesen Code muss ich für jede auswahl der Combobox, also Gruppe 1W bis Gruppe 23W schreiben und immer anpassen.

If ComboBox1 = "Gruppe 1W" Then
Columns("I:KP").Select
Selection.EntireColumn.Hidden = True 'alle Ausblenden
Range("BA:BA,CS:CS,DN:DN,DW:DW,ET:ET,FD:FD").Select
Selection.EntireColumn.Hidden = False
End If

Ich hoffe das mein Anliegen für euch verständlich ist, auch ohne Tabelle. :-)
Ich kann mir gut vorstellen das es bedeutend einfacher geht als ich es zur Zeit mache.

schon mal vielen Dank

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

Betreff
Datum
Anwender
Anzeige
AW: Spalten mit VBA ein-ausblenden
10.07.2023 11:50:02
Daniel
Naja, deine Informationen sind etwas dürftig.
beispielsweise wäre interessant, was steht in Zeile 4, was änderst du und wie musst du den Code dann anpassen?
wie hängt das Makro mit den Inhalten von Zeile 4 zusammen? Aus dem gezeigten Codeschnipsel geht das nicht hervor, hier wird Zeile 4 nie verwendet.
die nächste Frage wäre, was ändert sich am Code von "Gruppe 1W" bis "Gruppe 2W"?
ich vermute mal, dass immer andere Spalten betroffen sind und sich somit die Range für das wieder einblenden ändert.
Sowas musst du uns sagen.

Wenn meine Vermutung richtig ist, kannst du dir die Programmierung so vereinfachen:
1. lege dir eine Hilfstabelle an, in der ersten Spalte die Gruppenbezeichnung ("Gruppe 1W") in der zweiten Spalte daneben die schreibst du dann die Zelladressen für die Range zum Einblenden: "BA:BA,CS:CS,DN:DN,DW:DW,ET:ET,FD:FD"

2. Verwende diese Tabelle mit beiden Spalten als Quelle für die Combobox.
hierzu bei ColumnCount die 2 eintragen und bei RowSource die Adresse der Tabelle mit Tabellenblattnamen.

der Code wäre dann
if Combobox1.ListIndex >= 0 then  
   Columns("I:KP").EntireColumn.Hidden = True 'alle Ausblenden
   Range(Combobox1.List(Combobox1.ListIndex, 1)).EntireColumn.Hidden = False
End if
wenn sich Spalten für die Gruppen ändern, dann änderst du dies einfach in der Tabelle ohne in den Code eingreifen zu müssen.
Gruß Daniel


Anzeige
AW: Spalten mit VBA ein-ausblenden
10.07.2023 12:13:54
Holger
Hallo Daniel,

in Spalte 4 stehen die Gruppen die ich über die Combobox anzeigen möchte, Gruppe 1W bis Gruppe 23W,
Die Combobox wird mit diesen Werten gefüllt. Habe die Werte auf einem Seperaten Blatt, diese ändern sich auch nicht.
In Zeile 4 stehen auch nur diese Werte, Gruppe 1W bis Gruppe 23W.

Ist es nicht möglich "I4" nach ihrem Wert zu überprüfen, wenn es der gleiche Wert ist wie in der Combobox dann die Zeile einblenden. ( Wert auf Visible = False setzen)
Das sollte dann mit jeder Zelle in Zeile 4 gemacht werden bis "KP4"

Da die Arbeitsmappe schon sehr Groß ist möchte ich nicht zusätzliche Tabellenblätter erstellen.

schon mal vielen Dank für deine Mühe


Anzeige
AW: Spalten mit VBA ein-ausblenden
10.07.2023 12:44:16
Daniel
Hi
dann gehts eigentlich noch einfacher mit nochweniger Code.
1. definiere für die Combobox eine Ausgabezelle (Zelladresse in Eigenschaft LinkedCell bzw Controlsource
2. in einer weiteren Zeile (z.B. Zeile 3) schreibst du in den Zellen I3:KP3 die Formel: =Wenn(I4=$A$3;"";1)
3. verwende dann folgenden Code:
with Range("I3:KP3")
    .EntireColumn.Hidden = False
    if .Worksheetfunction.Sum(.Cells) > 1 then .SpecialCells(xlcelltypeformulas, 1).EntireColumn.Hidden = true
end with
Gruß Daniel


Anzeige
AW: Spalten mit VBA ein-ausblenden
10.07.2023 12:02:55
GerdL
Moin Holger!

Columns("I:KP").Hidden = True 'alle Ausblenden
Select Case ComboBox1
Case "Gruppe 1W"
Range("BA:BA,CS:CS,DN:DN,DW:DW,ET:ET,FD:FD").EntireColumn.Hidden = False
Case "Gruppe 23W"
Range("BB:BB,CA:CA,DO:DO,DX:DX,EO:EO,FE:FE").EntireColumn.Hidden = False
End Select

Gruß Gerd


AW: Spalten mit VBA ein-ausblenden
10.07.2023 12:22:55
Rudi Maintaire
Hallo,
sowas?
Sub aa()
  Dim r As Range
  Application.ScreenUpdating = False
  For Each r In Range("I4:KP4")
    r.EntireColumn.Hidden = r > combobox1
  Next r
End Sub
Gruß
Rudi


Anzeige
AW: Spalten mit VBA ein-ausblenden
10.07.2023 12:31:34
Holger
Hallo Rudi,

vielen Dank das ist genau das was ich brauche.
Der Code macht genau das was ich wollte.
vielen dank an alle.

305 Forumthreads zu ähnlichen Themen

Zellen ausblenden mit Wert 0 in Zelle
Ulrich

Hallo zusammen,
wie kann ich einem Tabellenblatt alle Zeilen ausblenden, bei denen in der ersten Zelle eine 0 (null) steht? Geht sowas überhaupt?
Viele Grüße,
Ulrich
01.09.2008 11:08:49
Thread-ID: 1006360
6 Beiträge
Anzeige
Register ein- und ausblenden
HaKa

Hallo Forum
Wie lautete der VBA-Code um z.B. das Register "Tabelle3" aus-, resp. wieder einzublenden?
Gruss Heinz
14.09.2008 15:40:00
Thread-ID: 1009597
5 Beiträge
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
Anzeige
Zelleninhalt mit CommandButton in Textbox anzeigen
Markus

Hallo an alle!
Mein Makro kann bisher folgendes:
Per Klick auf 1 von 300 Comandbuttons wird der entsprechende Inhalt aus einer von 300 Zellen in eine Textbox geladen.
"Das funktioniert"
Nun möchte ich , nachdem ich einen Button gedrückt habe und der Inhalt in Textbox angezeigt w...
21.11.2008 11:05:00
Thread-ID: 1026664
2 Beiträge
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
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
Ein-/Ausblenden v. Arbeitsblättern mit VBA
Lenni

Moin Excellianer!
Mit folgendem Code "Sheets("Tabelle1").Visible = False" in einem UserForm blende ich die Tabelle 1 und 2 aus. Mit "True" für "False" blende ich sie wieder ein.
Das Ganze hat nur den Nachteil, dass man die Tabelle 1 und/oder 2 über das Menü "Format > Blatt > Einbl...
01.02.2009 00:12:00
Thread-ID: 1045802
4 Beiträge
Anzeige

Links zu Excel-Dialogen

ComboBox

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
2
4
3
5
1
1
4
5
3
3
4
2
2
5
6
6
7
5
2
3
21
5
7
8