Live-Forum - Die aktuellen Beiträge
Datum
Titel
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
23.04.2024 21:29:56
Bestimmte Zellen auf andere Arbeitsblätter kopieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1020to1024
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
1020to1024
1020to1024
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Filtern in Zeilen

Filtern in Zeilen
07.11.2008 06:20:00
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?
Ich habe schon viel herum probiert, aber nichts gefunden. Der Spezialfilter konnt mir bisher auch nicht helfen.
Vielen Dank im Voraus für die Hilfe.
Gruß
Andreas

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

Betreff
Datum
Anwender
Anzeige
AW: Filtern in Zeilen
07.11.2008 07:05:00
Beverly
Hi Andreas,
du hast die Möglichkeit, das mit VBA zu machen, da man in Excel bekanntlich nicht in Zeilen filtern kann:

Sub ausblenden()
Dim inSpalte As Integer
Dim raSpalten As Range
For inSpalte = 1 To 26
If Cells(2, inSpalte)  "x" Then
If raSpalten Is Nothing Then
Set raSpalten = Columns(inSpalte)
Else
Set raSpalten = Union(raSpalten, Columns(inSpalte))
End If
End If
Next inSpalte
If Not raSpalten Is Nothing Then raSpalten.EntireColumn.Hidden = True
End Sub
Sub einblenden()
Columns("A:Z").Hidden = False
End Sub



Anzeige
AW: Filtern in Zeilen
07.11.2008 10:00:56
Andreas
Hallo,
Danke erstmal. das MAkro funktioniert gut.
Ich habe es noch etwas verändert s.u.

Sub ausblenden()
Dim inSpalte As Integer
Dim raSpalten As Range
mysheets1 = Application.InputBox("Nr. der zu filternden Zeile eingeben. Nur die Nr., sonst  _
Fehler!!")
mysheets2 = Application.InputBox("Gesuchten Wert eingeben. Schreibweise muss genau stimmen,  _
sonst Fehler!!")
For inSpalte = 2 To 26
If Cells(mysheets1, inSpalte)  mysheets2 Then
If raSpalten Is Nothing Then
Set raSpalten = Columns(inSpalte)
Else
Set raSpalten = Union(raSpalten, Columns(inSpalte))
End If
End If
Next inSpalte
If Not raSpalten Is Nothing Then raSpalten.EntireColumn.Hidden = True
End Sub


Ist es möglich das nach Werten gefiltert wird die zb "x" enthalten und nicht genau entsprechen?
Danke im Voraus.

Anzeige
AW: Filtern in Zeilen
07.11.2008 10:18:24
Beverly
Hi Andreas,

If InStr(Cells((mysheets1, inSpalte), mysheets2) = 0 Then



Nachgefragt
07.11.2008 11:07:00
Matthias
Hallo Karin
Fehlt da eine Klammer, aber ich tippe mal nach Cells ist eher eine Klammer zuviel. Oder?
Bin nicht ganz sicher.
Gruß Matthias
AW: Nachgefragt
07.11.2008 11:34:00
Andreas
Hallo ihr beide,
@Karin: Danke für die Hilfe es funktioniert
@Matthias: es war eione Klammer zu viel vor "mysheets1"
Jetzt funktioniert es so wie ich es mir vorgestellt hab.
Danke nochmal
Andreas
Anzeige
noch ein Tipp
07.11.2008 12:14:00
Matthias
Hallo Andreas
Hier noch ein Vorschlag.
Mir persönlich (jetzt mal als Benzutzer) würde es nicht gefallen, wenn Excel ständig einen Fehler bringt, sobald ich etwas falsches eingegeben habe und dann hängenbleibt.
Nicht jeder kann damit umgehen und es nervt eher den Benutzer, wenn es öfters vorkommt
  • Beispiel1:

    • Gib in die erste InputBox z.B. ein "F" ein und in der zweiten InputBox drückst Du auf "Abbrechen"
    Fehler:Typen unverträglich
    Ja, ich weis - Du schreibst extra ..."sonst Fehler" (aber besser ist es den Fehler abzufangen)

  • Beispiel2

    • Gib in die erste InputBox z.B. eine "2" ein und in der zweiten InputBox drückst Du auf "Abbrechen"
    Abbrechen sollte auch das tun was es verspricht und zwar wirklich abbrechen.
    macht Excel aber nicht, es wird fleißig ausgeblendet.

  • Beispiel3

    • wenn Du auf beide Inputboxen jeweils "Abbrechen" drückst, kommt Fehler400

    Nicht jeder (Benutzer) befasst sich so intensiv mit Excel wie wir das hier im Forum tun.
    Deshalb wollte ich Dir den Vorschlag machen, die Fehler einfach abzufangen
    Hier mein Vorschlag:
    füge diese Zeilen ein, dann sollten die Fehlermeldungen der Vergangenheit angehören
    '............
    '.........
    '......
    nummer:
    mysheets1 = Application.InputBox(" Bitte die Nr. der zu filternden Zeile eingeben.", " Eingabe Zeilennummer")
    'eingefügt...
    If Not IsNumeric(mysheets1) Then MsgBox "Fehler, bitte nur die Zeilennummer eingeben": GoTo nummer
    If mysheets1 = 0 Then MsgBox "Abbruch": Exit Sub
    '............
    mysheets2 = Application.InputBox("Bitte gesuchten Wert eingeben.", " Eingabe zu suchender Wert")
    'eingefügt...
    If mysheets2 = 0 Then MsgBox "Abbruch": Exit Sub
    '......
    '.........
    '............
    Gruß Matthias
    Anzeige

    309 Forumthreads zu ähnlichen 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
    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
    Spalten statt Zeilen filtern
    Steffen

    Hallo Forum,
    den Autofilter kenne ich, aber ich brauche einen Filter der Spalten anstatt der Zeilen und von VBA habe ich leider keine Ahnung.
    ich habe eine Tabelle mit Namen in A2:A10. Im Bereich B2:X10 steht in verschiedenen Zellen entweder ein "x" oder die Zellen sind leer.
    Nun hä...
    29.10.2008 16:41:00
    Thread-ID: 1020355
    13 Beiträge
    Anzeige
    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:09:11
    Thread-ID: 1170134
    5 Beiträge
    Anzeige

    Links zu Excel-Dialogen

    InputBox

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