Auswählen bestimmter Spalten basierend auf ihrem Wert

Question

Ich habe eine Tabelle mit all meinen Anfragen erstellt.

Ich möchte beispielsweise alle Spalten mit „B“ auswählen. Mein Hauptziel ist es, in einer kurzen Zusammenfassung alle Personen anzuzeigen, die gebucht haben. Wenn ich dann alle meine Anfragen sehen möchte, kann ich nur die Spalten „E“ auswählen und dann werden alle meine Stornierungen und Buchungen ausgeblendet.

Answer 1

Ich verstehe, dass Sie alle Spalten ausblenden möchten, deren erste Zelle weder "E" noch "B" enthält. Dazu ist ein VBA-Makro erforderlich.

Der erste Schritt besteht darin, die Tabelle so zu speichern, dass .xlsmVBA-Makros zulässig sind, und sie dann mit Excel zu öffnen.

Geben Sie Alt+ ein F11, um den VBA-Editor zu öffnen. Klicken Sie mit der rechten Maustaste entweder auf "Sheetl (Sheetl)" oder "ThisWorkbook" und wählen Sie Einfügen > Modul.

Kopieren Sie den folgenden Text und fügen Sie ihn in den Editor ein:

Sub Hide_Columns_Not_A()
Dim c As Range
For Each c In Range("A1:E1").Cells
    If c.Value <> "A" Then
        c.EntireColumn.Hidden = True
    Else
        c.EntireColumn.Hidden = False
    End If
Next c
End Sub

Sub Hide_Columns_Not_E()
Dim c As Range
For Each c In Range("A1:E1").Cells
    If c.Value <> "E" Then
        c.EntireColumn.Hidden = True
    Else
        c.EntireColumn.Hidden = False
    End If
Next c
End Sub

Sub Unhide_All_Columns()
Dim c As Range
For Each c In Range("A1:E1").Cells
    c.EntireColumn.Hidden = False
Next c
End Sub

Wichtig: Ändern Sie im obigen Text alle drei Vorkommen von A1:E1 in den tatsächlichen Bereich, der in Ihrem Fall mindestens zu betragen scheint A1:U1.

Drücken Sie dann Ctrl+, Sum die Tabelle zu speichern, und dann Alt+ Q, um den VBA-Editor zu schließen und zu Excel zurückzukehren.

Sie können ab sofort auf dieEntwicklerKlicken Sie im Fensterbereich aufMakrosDaraufhin werden die drei definierten Makros angezeigt. Wählen Sie das gewünschte aus und klicken Sie auf Laufen.