Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1772to1776
1772to1776
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA: nach Spalten filtern

Forumthread: VBA: nach Spalten filtern

VBA: nach Spalten filtern
30.07.2020 20:40:43
Fritz_W
Hallo Forumsbesucher,
ich würde gerne ein Tabellenblatt über ein Makro wie folgt filtern und die Filterung über ein weiteres Makro wieder aufheben.
es sollen alle Spalten ausgeblendet werden, die in Zeile 2 nicht den Inhalt von Zelle A2 enthalten, es soll dabei immer
der Zellbereich bis zur ersten leeren Spalte in Zeile 2 geprüft werden.
Für eure Unterstützung besten Dank im Voraus.
mfg
Fritz
Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA: nach Spalten filtern
30.07.2020 21:48:14
Werner
Hallo,
Sub Ausblenden()
Dim i As Long, raWeg As Range
Application.ScreenUpdating = False
With Worksheets("Tabelle1")
For i = 2 To .Cells(2, .Columns.Count).End(xlToLeft).Column
If .Cells(2, "A")  .Cells(2, i) Then
If raWeg Is Nothing Then
Set raWeg = .Cells(2, i)
Else
Set raWeg = Union(raWeg, .Cells(2, i))
End If
End If
Next i
If Not raWeg Is Nothing Then raWeg.EntireColumn.Hidden = True
End With
Set raWeg = Nothing
End Sub
Public Sub Einblenden()
Worksheets("Tabelle1").Columns.Hidden = False
End Sub
Gruß Werner
Anzeige
AW: VBA: nach Spalten filtern
30.07.2020 21:58:19
Fritz_W
Hallo Werner,
perfekt, einfach großartig.
Vielen Dank
mfg
Fritz
Gerne u. Danke für die Rückmeldung. o.w.T.
30.07.2020 22:28:22
Werner
AW: ohne Schleife
31.07.2020 11:34:17
Gerd
Moin 
Sub Unit()
Dim R As Range
If Cells(2, 1)  "" And Cells(2, 2)  "" Then
Set R = Range(Cells(2, 1), Cells(2, 1).End(xlToRight)). _
RowDifferences(Comparison:=Cells(2, 1))
End If
If Not R Is Nothing Then
R.EntireColumn.Hidden = True
Set R = Nothing
End If
End Sub

Gruß Gerd
Anzeige
;

Forumthreads zu verwandten Themen

Zeilenhöhe nach Zelleninhalt
Tom

Hallo,
Ich möchte gern je nach Zelleninhalt in der Spalte "D" die Zeilenhöhe abhängig machen.
Steht in "D" Hauptprojekt, so soll die Zeilenhöhe 27 betragen
steht in "D" Teilprojekt, so soll die Zeilenhöhe 20 sein
und ist "D" leer, dann soll die Zeilenhöhe 15 betragen
Die For...
01.09.2008 13:53:00
Thread-ID: 1006431
2 Beiträge
nur eine der Spalten darf gefüllt sein
Simon

Hallo,
ich habe glaube ich eine einfache Frage, komme aber nicht drauf Sie selbst zu lösen:
ich habe 4 Spalten: ja; nein; mehr Menge; weniger Menge
dahinter möchte ich eine 5te Spalte Kontrolle setzen. In dieser soll eine Fehlermeldung erscheinen falls mehr als eine Spalte ausgefüll...
01.09.2008 16:15:00
Thread-ID: 1006502
8 Beiträge
Anzeige
Daten ab bestimmter Anzahl Zeile abschneiden
Joachim

Hi,
ich kopiere auf mein Sheet Daten in eine Textbox und wenn die Informationen zu lange sind, schneide ich sie:
If Len(TextBox7.Value) GRÖSSER 300 Then TextBox7.Value = Left(TextBox7.Value, 300) & "... (mehr Informationen finden Sie online !)"
Nun meine Frage: geht so was auch...
02.09.2008 13:37:00
Thread-ID: 1006769
6 Beiträge
Filtern in Zeilen
Andreas

Guten Morgen,
ist es möglich im Excel waagerecht zu filtern? Zum Beispiel sollte in Zeile 2 nach allen Spalten gesucht werden die den Wert "x" enthalten. D.h alle anderen Spalten die nicht dem Suchktrerium entsprechen müssten ausgeblendet werden.
Ist soetwas (ggf ohne Makro) möglich?
07.11.2008 06:20:00
Thread-ID: 1022476
7 Beiträge
Code soll erst ab bestimmter Zeile funktionieren
Joachim

Hi,
wie kann ich denn erreichen, dass der nachfolgende Code erst ab der 10. Zeile überprüft.
Zeilen 1-9 sollen unbeachtet bleiben:
Sub Kopieren() Dim lngRow As Long lngRow = Cells(Rows.Count, "B").End(xlUp).Row MsgBox lngRow End Sub
Danke mal
Joachim
04.12.2008 11:54:00
Thread-ID: 1030126
3 Beiträge
SelectFilter erst ab Zeile4
Josef

Guten Morgen!
Wenn ich bei der nachstehenden Musterdatei zuerst das Makro "Filter_setzen" und danach das Makro "Select_Filter-Terst" starte, so erfolgt in der Tabelle1 die Markeirung erst ab der Zeile 4 und nicht wie gwünscht ab der Zeile 3. Wo und wie müßte ich bitte hier den Code veränder...
13.01.2009 07:52:48
Thread-ID: 1039077
6 Beiträge
Zeilennr. in gefilterten und markierten Bereich
Kasimir

Hallo Leute,
ich stehe auf dem Schlauch und weiß ehrlich auch nicht so ganz, ob das was ich realisieren möchte überhaupt geht?
Also, ich filtere über den Autofilter Daten. Bei diesen gefilterten Daten möchte ich danach einen Bereich, also mehrere zusammenhängende Zellen in einer Spalte...
04.04.2009 08:21:59
Thread-ID: 1066813
7 Beiträge
erste Zeile des Autofilters per VBA erkennen
Ptonka

Hallo zusammen,
ich stehe vor folgendem Problem:
Ich filtere per VBA per Autofilter eine umfangreiche Liste.
Je nach dem, welches Filterkriterium ich mitgebe, ist die erste angezeigte Zeile
eine andere Zeilennummer - logisch.
Nun möchte ich diese erste angezeigte Zeilennumme...
07.05.2009 13:31:01
Thread-ID: 1073590
5 Beiträge
Spaltenbreite nach Filtern anpassen
urs

Guten Abend
Über Filter werden die gesuchten Werte einer grossen Tabelle eingegrenzt.
Wie kann ich nun die Spaltenbreite automatisch der benötigten Breite der SICHTBAREN Zeilen anpassen.
Lässt sich diese benötigte Breite ermitteln? Makro gesucht!
Vielen Dank für Eure Hilfe
G...
26.01.2010 15:51:16
Thread-ID: 1133117
6 Beiträge
Zeilen einfügen bei Autofilter
Martin

Hallo liebe Herber-Gemeinde,
ich habe in einer Datei einen Autofilter gesetzt und möchte mehrere gefilterte Zeilen in eine andere Datei mit identischem Aufbau hineinkopieren. Die Spaltenanzahl und Benennung ist in der 2. Datei wie gesagt genau derselbe und dort verwende ich ebenfalls einen...
03.08.2010 11:07:34
Thread-ID: 1170150
2 Beiträge
Zeilen einfügen bei Autofilter
Martin

Hallo liebe Herber-Gemeinde,
ich habe in einer Datei einen Autofilter gesetzt und möchte mehrere gefilterte Zeilen in eine andere Datei mit identischem Aufbau hineinkopieren. Die Spaltenanzahl und Benennung ist in der 2. Datei wie gesagt genau derselbe und dort verwende ich ebenfalls einen...
03.08.2010 11:06:50
Thread-ID: 1170154
3 Beiträge
Zeilen nach Einträgen filtern
Joni

Hallo,
ich bin auf der Suche nach einer Lösung für folgendes Problem.
Ich habe eine Liste mit Datensätzen und möchte diese über die Eingabe von Werten "in Echtzeit" filtern. Dies funktioniert mit dem Spezialfilter und folgendem Makro.
Private Sub Worksheet_Change(ByVal Target As Ra...
24.09.2010 18:31:04
Thread-ID: 1179243
3 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige