Thema Datum  Von Nutzer Rating
Antwort
23.06.2021 13:02:26 Werner
NotSolved
23.06.2021 13:12:13 Werner
NotSolved
23.06.2021 13:15:50 Werner
NotSolved
23.06.2021 13:55:44 Werner
NotSolved
23.06.2021 14:04:40 Gast86254
NotSolved
Blau VBA Makro für ein Suchfeld
 23.06.2021 14:52:52 Gast46334
NotSolved
24.06.2021 08:04:54 Werner
Solved

Ansicht des Beitrags:
Von:
Gast46334		 Datum:
23.06.2021 14:52:52		 Views:
589		 Rating:
     
Antwort:
  Ja
Thema:
VBA Makro für ein Suchfeld

Hallo,

Code in ein allgemeines Modul:

Option Explicit

Sub Ausblenden()
Dim strSuche As String, loZeile As Long, i As Long, raFund As Range
Dim raEin As Range, strAdresse As String

loZeile = Range("C5").CurrentRegion.SpecialCells(xlCellTypeLastCell).Row

If Range("I3") <> "" Then
    strSuche = Range("I3")
    For i = 3 To 6
        With Columns(i)
            Set raFund = .Find(what:="*" & strSuche & "*", LookIn:=xlValues, lookat:=xlPart)
            If Not raFund Is Nothing Then
                strAdresse = raFund.Address
                Do
                    If raEin Is Nothing Then
                        Set raEin = raFund
                    Else
                        Set raEin = Union(raEin, raFund)
                    End If
                    Set raFund = .FindNext(raFund)
                Loop While Not raFund Is Nothing And raFund.Address <> strAdresse
            End If
        End With
    Next i
    
    If Not raEin Is Nothing Then
        Range("C6:C" & loZeile).EntireRow.Hidden = True
        raEin.EntireRow.Hidden = False
    End If
Else
    Cells.EntireRow.Hidden = False
End If

Set raFund = Nothing: Set raEin = Nothing
End Sub

Code ins Codemodul des Tabellenblattes

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address(0, 0) = "I3" Then
    If Target.Count = 1 Then
        Call Ausblenden
    End If
End If
End Sub

 

Gruß Werner

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
23.06.2021 13:02:26 Werner
NotSolved
23.06.2021 13:12:13 Werner
NotSolved
23.06.2021 13:15:50 Werner
NotSolved
23.06.2021 13:55:44 Werner
NotSolved
23.06.2021 14:04:40 Gast86254
NotSolved
Blau VBA Makro für ein Suchfeld
 23.06.2021 14:52:52 Gast46334
NotSolved
24.06.2021 08:04:54 Werner
Solved