Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1332to1336
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
Inhaltsverzeichnis

Verweis auf eine zelle mit einem Wert

Verweis auf eine zelle mit einem Wert
28.09.2013 15:29:56
Truog
Hallo zusammen, wenn ich die Filternung nach "B" in einer Zelle A1 habe, wie kann ich den Bezug auf diese Zelle verweisen, damit ich mit dieser Zelle entweder nach "A", "B", "C" filtern kann. "*" bleibt immer eingeblendet, die anderen Werte je nach ausgewähltem Wert in der Zelle A1.
Bisher sieht es so aus, nun müsste der Wert "B" auf die Zelle A1 verweisen.
Dim colIndex As Long
Dim rngRange As Range
For Each rngRange In Worksheets("Tabelle1").Range("A2:z2")
If rngRange.Value = "B" Or rngRange.Value = "*" Then
rngRange.EntireColumn.Hidden = False
Else
rngRange.EntireColumn.Hidden = True
End If
Next
End Sub
Danke & Grüsse Christian

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

Betreff
Datum
Anwender
Anzeige
AW: Verweis auf eine zelle mit einem Wert
28.09.2013 15:35:37
Hajo_Zi
Hallo Christian,
For Each rngRange In Worksheets("Tabelle1").Range("A2:z2")
If rngRange.EntireColumn.Hidden = False Then
rngRange.EntireColumn.Hidden = rngRange.Value = "B" Or rngRange.Value = "*"
End If
Next

AW: Verweis auf eine zelle mit einem Wert
28.09.2013 16:12:39
Christian
Hallo Hajo
danke für die schnelle Antwort. Wahrscheinlich habe ich mich falsch ausgedrückt:
Ich möchte mit diesem Makro folgendes können.
Wenn in Zelle A1 der Wert A steht, dann hided es alle Spalten die nicht "A" oder "*" enthalten.
Wenn in Zelle A1 der Wert B steht, dann hided es alle Spalten die nicht "B" oder "*" enthalten.
etc.
Danke & Gruss Christian

Anzeige
AW: Verweis auf eine zelle mit einem Wert
28.09.2013 16:18:27
Hajo_Zi
Hallo Christian,
ich habe mich nun in die Aufgabe aus dem ersten Beitrag eingearbeitet. Für die neue Aufgabe überlasse ich dann das Feld den anderen. Das ist der Vorteil, wenn man seine Aufgabe gleich im ersten Beitrag richtig beschreibt, man bekommt eine Lösung dafür. Jetzt war der erste Beitrag ja nur ein Köder, damit jemand Antwortet.
Gruß Hajo

bedingt ausblenden
28.09.2013 16:58:27
Erich
Hi Christian,
probier mal diese beiden Varianten:

Option Explicit
Sub myFilter1()
Dim rngC As Range
With Worksheets("Tabelle1")
For Each rngC In .Range("A2:z2")
rngC.EntireColumn.Hidden = _
rngC.Value  .Cells(1, 1).Value And rngC.Value  "*"
Next rngC
End With
End Sub
Sub myFilter2()
Dim rngC As Range, rngH As Range
With Worksheets("Tabelle1")
.Range("A2:z2").EntireColumn.Hidden = False ' alle einblenden
For Each rngC In .Range("A2:z2")
If rngC.Value = .Cells(1, 1).Value Or rngC.Value = "*" Then
Else
If rngH Is Nothing Then          ' merken zum Ausblenden
Set rngH = rngC
Else
Set rngH = Union(rngH, rngC)
End If
End If
Next rngC
End With                                           ' ausblenden
If Not rngH Is Nothing Then rngH.EntireColumn.Hidden = True
End Sub
Rückmeldung wäre nett! - Grüße aus Kamp-Lintfort von Erich und: Schönes Wochenende allerseits!

Anzeige
AW: bedingt ausblenden
28.09.2013 18:09:51
Truog
Hallo Erich
Vielen Dank für die Lösung, klappen beide Versionen, nun ist mir aber noch eine Verbesserung eingefallen, der noch hilfreich ist:
wenn Zelle A1 leer ist, sollten alle Spalten eingeblendet sein.
Danke für deinen Support.
Viele Grüsse aus der Schwiz

332 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige