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
1800to1804
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
1800to1804
1800to1804
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Spalten mit best. Inhalten ausblenden

Spalten mit best. Inhalten ausblenden
06.01.2021 12:33:38
bzwa
Hallo liebe Excelfreunde und VBA-Profis,
ich brauche bitte eure Hilfe für für folgendes Vorhaben:
1.) Ich möchte in einer Arbeitsmappe auf einem Tabellenblatt alle Spalten per Makro ausblenden, die in Zeile 1 mit den Werten "Feedback" oder "Points" beginnen. Die Spalten für Feedback und Points gibt es öfters, diese werden fortlaufend mit "Feedback_1", "Feedback_2" bzw. "Points_1", "Points_2" weitergezählt. Die betroffenen Spalten würde ich gerne immer ausgeblendet haben.
Die Werte am Tabellenblatt sind hierbei immer max. bis in Zeile 20 eingetragen - die Anzahl der Spalten variiert.
2.) Zusätzlich zu den zuvor ausgeblendeten Spalten möchte ich gerne entscheiden können, welche der restlichen Spalten eingeblendet bleiben. Hierfür sollen ebenfalls die Werte in Zeile 1 berücksichtigt werden. Alle Spalten, die mit bestimmten Werten beginnen, z. B. "HÜ" oder "SÜ" sollen somit ebenfalls eingeblendet werden können.
Hier findet ihr einen Auszug aus der betroffenen Arbeitsmappe:
https://www.herber.de/bbs/user/142805.xlsx
Ich bin euch für jegliche Hilfestellung sehr dankbar!
Beste Grüße
Birgit

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Spalten mit best. Inhalten ausblenden
06.01.2021 12:45:36
Nepumuk
Hallo Birgit,
teste mal:
Option Explicit

Public Sub Ausblenden()
    
    Dim objCell As Range
    Dim vntItem As Variant
    
    For Each vntItem In Array("Feedback", "Points")
        
        Set objCell = Rows(1).Find(What:=vntItem, LookIn:=xlValues, LookAt:=xlPart, MatchCase:=False)
        
        If Not objCell Is Nothing Then
            
            Do
                
                objCell.EntireColumn.Hidden = True
                
                Set objCell = Rows(1).FindNext(After:=objCell)
                
            Loop Until objCell Is Nothing
        End If
    Next
End Sub

Public Sub Einblenden()
    Columns.Hidden = False
End Sub

Gruß
Nepumuk
Anzeige
AW: Spalten mit best. Inhalten ausblenden
06.01.2021 14:02:04
bzwa
Hallo Nepomuk,
danke für deine Antwort, damit kann ich auf jeden Fall mal die Spalten mit "Feedback" und "Points" loswerden.
Danke und liebe Grüße
Birgit
AW: Spalten mit best. Inhalten ausblenden
06.01.2021 12:51:26
ChrisL
Hi Brigit
Da die Daten sowieso von einer externen Quelle mittels Datenverbindung bezogen werden, würde ich das Thema direkt in Power-Query erledigen.
- Reiter Daten, Abfragen anzeigen
- rechte Maustaste auf die bereits existierende Abfrage, bearbeiten
- Power-Query Editor öffnet sich
- Spalten (exkl. First Name) markieren, rechte Maustaste, entpivotieren
- Filter auf Attribut setzen: beginnt nicht mit X und beginnt nicht mit Y usw.
- Im PQ-Editor, Reiter Transformieren, Spalte pivotieren (erweiterte Option, Nicht aggregieren)
- Schliessen und laden
cu
Chris
Anzeige
AW: Spalten mit best. Inhalten ausblenden
06.01.2021 14:17:52
bzwa
Hi Chris,
oh toll, danke für den Tipp mit Power-Query, das kannte ich noch nicht!
Wenn ich deine Anleitung aber nachbaue, dann werden die Werte am Ende aber leider seltsam zusammengewürfelt dargestellt, vermutlich, weil die Pivotierung zwischenzeitlich aufgehoben wurde?
Ist es möglich, dass in Spalte A die Vor- in Spalte B die Nachnamen und ab Spalte C die jeweils gewählten Inhalte angezeigt werden? Habe es mit "Spalte auswählen" ausprobiert, aber das müsste man dann halt immer die gesamte Liste durchsuchen...
Liebe Grüße
Birgit
AW: Spalten mit best. Inhalten ausblenden
06.01.2021 14:30:29
ChrisL
Hi Brigit
Zuerst Spalte Attribut markieren. Sollte auch funktionieren, wenn zusätzlich noch ein Nachname vorhanden ist.
Userbild
cu
Chris
Anzeige
AW: Spalten mit best. Inhalten ausblenden
06.01.2021 13:20:58
GerdL
Moin Birgit 
Option Explicit
Sub Unit()
Application.ScreenUpdating = False
Rows(1).EntireColumn.Hidden = False
End Sub
Sub Unit1()
Dim C As Range
Application.ScreenUpdating = False
For Each C In Cells(1, 1).CurrentRegion.Rows(1).Cells
If C.Value Like "Points*" Or C.Value Like "Feedback*" Then
C.EntireColumn.Hidden = True
End If
Next
End Sub
Sub Unit2()
Static b As Boolean
Dim C As Range, strText As String
If b Then strText = "SÜ" Else strText = "HÜ"
Application.ScreenUpdating = False
For Each C In Cells(1, 1).CurrentRegion.Rows(1).Cells
C.EntireColumn.Hidden = Not C.Value Like strText & "*"
Next
b = Not b
End Sub

Gruß Gerd
Anzeige
AW: Spalten mit best. Inhalten ausblenden
06.01.2021 14:26:50
bzwa
Hallo Gerd,
danke für deine Rückmeldung - das ist schon fast DIE perfekte Lösung! :-)
Bei "Unit 2" verschwindet jetzt nur die Spalte mit den Namen der Schüler/innen. Könntest du diese noch ergänzen? Dann wäre es ideal!
Vielen Dank und liebe Grüße
Birgit
AW: Spalten mit best. Inhalten ausblenden
06.01.2021 15:08:33
GerdL
Hallo Birgit,
du könntest in diesem Makro nach der Schleife bzw. unter "Next"
Columns(1).Hidden = False
schreiben.
Gruß Gerd

303 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

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