Hallo,
in Zelle B1, C1, D1 steht eine Zahl X
In Zelle E1 steht eine Zahl Y
Nun würde ich gerne in Zelle A1 X oder Y schreiben und hätte dann gerne, dass die Spalten ausgewählt werden, in denen X oder halt Y steht.
Quasi wie eine Filterfunktion für Spalten.
Wie könnte ich sowas am dümmsten anstellen?
Dank &
Gruss
René
Müssen die Zahlen Zeilenweise stehen oder würde das auch Spaltenweise gehen ?
Also so, das deine Zahlen in A2, A3, A4 usw. stehen.
Dann wäre es mit dem Filter ganz einfach.
Müssen die Zahlen Zeilenweise stehen oder würde das auch
Spaltenweise gehen ?
Also so, das deine Zahlen in A2, A3, A4 usw. stehen.
Dann wäre es mit dem Filter ganz einfach.
ungünstigerweise nicht…die Tabelle ist leider schlecht angelegt…
Ich denke an eine if-Bedingung oder index oder ähnliches…bin noch am grübeln, aber so schwer kann das doch nicht sein:smile:
Es geht aber auch anders.
Markiere den Bereich, der gefiltert werden soll.
(Das kann eine Zeile oder auch mehrere Zeilen sein.)
Klicke auf „Bedingte Formatierung“ und wähle ‚neue Regel‘
Wähle den Regeltyp „Nur Zellen formatieren, die enthalten“ aus
In der Regelbeschreibung muss dann folgendes ausgewählt sein :
„Zellwert“ „gleich“ „=Eingabezelle“
Wobei mit „Eingabezelle“ die Zelle gemeint ist, in der du deine Eintrag machen möchtest, also in deinem Beispiel oben wäre das „A1“ bzw. „=$A$1“.
Dann formatieren anklicken und z.B. Schrift ‚fett‘ und Ausfüllen ‚gelb‘ auswählen
Alles mit ok bestätigen.
Wenn du nun in A1 eine Zahl einträgst, werden alle gleichen Zahlen in der Reihe dahinter ‚fett‘ dagestellt und der Hintergrund ist ‚gelb‘ ausgefüllt.
Hoffe, ich konnte dir weiter helfen.
MfG Uwe
ok, das wird dann schon mal farbig. aber wie kann ich die anderen spalten nun eliminieren?
Hallo,
Wie könnte ich sowas am dümmsten anstellen?
mit vba vielleicht:
Sub selektiv_ausblenden()
For i = 2 To 5
If Cells(1, i) Cells(1, 1) Then
Columns(i).EntireColumn.Hidden = True
End If
Next i
End Sub
Sub alle_ein()
’ Alle ausgeblendeten Spalten und Zeilen werden eingeblendet,
’ alle Filter zurückgesetzt
Cells.EntireColumn.Hidden = False: Cells.EntireRow.Hidden = False
If ActiveSheet.FilterMode Then ActiveSheet.ShowAllData
End Sub
Freundliche Grüße
Thomas
Hallo,
Wie könnte ich sowas am dümmsten anstellen?
mit vba vielleicht:
Sub selektiv_ausblenden()
For i = 2 To 5
If Cells(1, i) Cells(1, 1) Then
Columns(i).EntireColumn.Hidden = True
End If
Next iEnd Sub
Sub alle_ein()
’ Alle ausgeblendeten Spalten und Zeilen werden eingeblendet,
’ alle Filter zurückgesetztCells.EntireColumn.Hidden = False: Cells.EntireRow.Hidden =
False
If ActiveSheet.FilterMode Then ActiveSheet.ShowAllDataEnd Sub
danke, allerdings kenne ich mich jetzt mit Makros nicht aus. Ich dachte halt, es gibt eine relative simple Methode, seitwärts zu filtern.
Gruß
Rene
danke auch für den Hinweis, allerdings möchte ich nicht manuell eingreifen. Möchte eine Woche aus einem Jahr herausfiltern können, mit einem Klick, aber die Daten gehen nicht vertikal, sondern horizontal.