Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 00:42:03
Listbox mit gefilterten Daten füllen
24.04.2024 20:38:58
Summe mit Bedingung, nur letzte Ergebnisse anzeigen
24.04.2024 19:29:30
Formel filter
24.04.2024 18:49:56
merge & select
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1684to1688
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
1684to1688
1684to1688
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Ausblenden von überflüssigen Spalten

Ausblenden von überflüssigen Spalten
10.04.2019 15:30:12
überflüssigen
Hallo alle Zusammen,
ich habe ein Problem was meine VBA Kenntnisse überschreitet. Ich habe ein Beispiel Dokument angefügt und nun brauche ich ein Macro das folgendes macht:
Wenn man in B1 irgendetwas angibt soll das Programm es mit der Zeile 3 ab D vergleichen und alle die das Kriterium nicht erfüllt ausblenden. Also zB schreibt man in B1 "Aufga" müsste das Programm Spalte D bis H und N bis W ausblenden.
Zusätzlich soll es noch ein Dropdown Menue in A3 geben welches, schön wäre es auch mit der Möglichkeit der Mehrfachmakierung das Gleiche macht nur mit einer vorgegebenen Auswahl. Also das was ich Auswähle soll nicht Ausgeblendet werden.
Ich hoffe jmd kann mir dabei helfen :-)
Vielen Dank im Voraus

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Wo bitte ist der Anhang? (owT)
10.04.2019 15:31:12
EtoPHG

AW: Ausblenden von überflüssigen Spalten
10.04.2019 15:49:51
überflüssigen
Hallo,
Diesen Code in das Tabellenblatt: 
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim iCol As Long
If Target.Address = "$B$1" Then
Range("C:W").EntireColumn.Hidden = False
If Not IsEmpty(Target) Then
For iCol = 3 To 23
Columns(iCol).EntireColumn.Hidden = _
(Left(Cells(3, iCol), Len(Target)) = Target)
Next iCol
End If
End If
End Sub

Zum Problem Dropdown: Das geht nicht mit einer Gültigkeitsliste, sondern nur mit einer ActiveX-Control (z.B. ListBox). Braucht auch etwas umfangreicheres Programmieren.
Gruess Hansueli
Anzeige
AW: Ausblenden von überflüssigen Spalten
10.04.2019 16:04:47
überflüssigen
Vielen Dank schonmal, aber das Programm macht genau das Gegenteil von dem was es soll. Es soll die Spalten nicht ausblenden die die Kriterien erfüllen
AW: Ausblenden von überflüssigen Spalten
10.04.2019 16:10:06
überflüssigen
Hallo,
Auch bei Level bescheiden, hilft mitdenken. Sorry gedankenlos gelesen ;-)
Ersetze: 
(Left(Cells(3, iCol), Len(Target))  Target)
Gruess Hansueli

301 Forumthreads zu ähnlichen Themen

Zelle nichtleer, dann Spalten ausblenden
kellerkind42

hallo.
Ich tue mich sehr schwer mit folgendem Wunsch:
Im Spaltenbereich A-Z:
Im Zeilenbereich 10 -20:
z.B:
Steht in Spalte C etwas in Zeile 10 oder 11 oder 12.... dann Blende diese Spalte aus!
Kann mir bitte jemand auf die Sprünge helfen?
Gruß Reinhardt.
20.08.2008 07:29:00
Thread-ID: 1003062
6 Beiträge
Anzeige
Bei Eintrag in eine Zeile Spalten ein/ausblenden
Matthias

Guten Morgen,
ich bräuchte mal wieder Hilfe :/ Mein Excelhorizont ist stark begrenzt und habe ein für mich unlösbares Problem, da ich keinerlei VAB-Kenntnisse habe. Ich bräuchte eine Lösung für folgende Problemstellung.
Wenn im Feld A50 irgendetwas steht, dann sollen Zeile 22-24 eingeb...
09.10.2008 07:54:00
Thread-ID: 1015202
6 Beiträge
Fehlermeldung beim Ausblenden von vielen Spalten
vielen

Hallo,
ich muß in einer Tabelle ziemlich viele Infos über sehr viele Spalten einfügen (es reicht bis Spalte FM) und erst danach kann ich in den anschließenden Spalten das ausweisen was ich möchte. Deswegen
möchte ich die Spalten B bis FM gruppieren und einklappen (sprich ausblenden).
16.10.2008 17:14:44
Thread-ID: 1016924
7 Beiträge
Anzeige
Makro zum Befüllen von Spalten aus einer 2. Datei
Spalten

Hallo zusammen,
wurde leider wieder von eine Aufgabe gestellt, die meine beschränkten Makro Fähigkeiten ziemlich ausreizt.
Ich habe eine ziemlich große xls Datei (>100 Spalten), die für den Export in mehrere txt.Dateien für eine Fremdsoftware Schnittstelle benötigt wird.
Nun wu...
18.11.2008 09:39:00
Thread-ID: 1025506
3 Beiträge
Bestimmten Zellenwert ausblenden VBA
Alex

Guten Morgen Liebe Excelisten,
ich bräuchte mal Eure hilfe, unzwar bräuchte ich ein Formel/VBA die mir auf dem Tabellenblatt z.B. Urlaub die Kürzungen F,S und AS ausblendet, sie sollten nicht gelöscht werden sondern nur nicht mehr angezeigt werden. zum beispiel in einer anderen schriftfarbe...
20.11.2008 07:19:09
Thread-ID: 1026287
4 Beiträge
kopieren/filtern von x-Spalten in x-Blättern
x-Spalten

So, anderes Thema:
Ich habe eine Arbeitsmappe mit verschiedenen Arbeitsblättern, diese Arbeitsblätter sind von der struktur her alle gleich aufgebaut, nur der Inhalt unterscheidet sich voneinander.
Ich möchte jetzt eine Auflistung generieren, die mir auf dem letzten Blatt der Arbeitsmap...
22.11.2008 16:34:00
Thread-ID: 1026984
16 Beiträge
Alle anderen Spalten ausblenden!
lisa

Hallo zusammen
Ich habe ein Macro aufgezeichnet, mit dem ich in der Tabelle 3 Spalte E filtere.
Ich suche nun eine möglichkeit alle anderen Spalten auszublenden!
Hat hierzu jemand eine Idee?
Private Sub CommandButton2_Click() Sheets("Tabelle3").Select Selection.AutoFilter Fie...
04.12.2008 17:16:32
Thread-ID: 1030239
20 Beiträge
Ausblenden von Linien und Blockpfeilen
Linien

Hallo zusammen!
Eine Frage:
Wie ich Drop-Down Felder und Buttons per VBA ausblenden kann ist mir bekannt:
ThisWorkbook.Worksheets("Tabelle1").Shapes("Dropdown 1").Visible = False '(DropDown-Feld)
Sheets("Tabelle1").Buttons(1).Visible = False...
22.01.2009 14:59:32
Thread-ID: 1042643
4 Beiträge
Anzeige

Links zu Excel-Dialogen

ListBox

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
1
5
6
2
2
3
15
19
3
2
2
1
4
1
13
3
2
6
8
7
3
4
3
2