Microsoft Excel

Herbers Excel/VBA-Archiv

suchen und markieren

Betrifft: suchen und markieren von: Markus
Geschrieben am: 24.11.2012 16:21:13

Hallo,
in der Zeile 3 stehen die Werte "Anna, Hans, Albert".
Wenn Excel diese Werte in der Zeile 3 findet, soll die entsprechende Spalte ausgeblendet werden.
Danke für Hilfe
Markus

  

Betrifft: AW: suchen und markieren von: Hajo_Zi
Geschrieben am: 24.11.2012 16:24:17

Halo Markus,

das geht nur über VBA.
Soll dies automatisch passieren?
Sind es Eingaben?

GrußformelHomepage


  

Betrifft: AW: suchen und markieren von: Markus
Geschrieben am: 24.11.2012 16:28:41

Hallo Hajo,
ja natürlich. Da ich aber ein ziemlicher Anfänger in VBA bin, hoffte ich, das mir jemand hilft.
Nein, der Befehl baue ich nacher in ein Menu ein.
Den eigenen Menuebefehl habe ich aus diesem Form, abschreiben und ändern kann ich bisher recht gut.
VBA versuche ich meist aufzuzeichnen und dann den Befehl anpassen und einbauen.
Markus


  

Betrifft: AW: suchen und markieren von: Hajo_Zi
Geschrieben am: 24.11.2012 16:36:03

Hallo Markus,

Option Explicit

Sub Ausblenden()
    ' "Anna, Hans, Albert"
    Dim LoI As Long
    Dim Loletzte As Long
    Loletzte = IIf(IsEmpty(Cells(3, Columns.Count)), _
        Cells(3, Columns.Count).End(xlToLeft).Column, Columns.Count)
    For LoI = 1 To Loletzte
        Select Case Cells(3, LoI)
            Case "Anna", "Hans", "Albert"
                Columns(LoI).EntireColumn.Hidden = True
            Case Else
                Columns(LoI).EntireColumn.Hidden = False
        End Select
    Next LoI
End Sub
Gruß Hajo


 

Beiträge aus den Excel-Beispielen zum Thema "suchen und markieren"