Thema Datum  Von Nutzer Rating
Antwort
07.05.2014 17:39:26 Luca
NotSolved
Blau Zeilen ausblenden, wenn "Wert" nicht vorkommt
 12.05.2014 12:19:43 RVSG
NotSolved

Ansicht des Beitrags:
Von:
RVSG		 Datum:
12.05.2014 12:19:43		 Views:
619		 Rating:
     
Antwort:
  Ja
Thema:
Zeilen ausblenden, wenn "Wert" nicht vorkommt

Hi Luca

Here you are:

 

Sub Zeilen_ausblenden()

   Const Str_Zellenname_EingegebenerWert As String = "B3"
   Const Str_Zellenname_WertObenLinks As String = "B10"
   Const Str_Zellenname_WertUntenRechts As String = "J200"
      
   Dim Lng_ErsteZeile As Long
      Lng_ErsteZeile = Range(Str_Zellenname_WertObenLinks).Row
   Dim Lng_ErsteSpalte As Long
      Lng_ErsteSpalte = Range(Str_Zellenname_WertObenLinks).Column
   Dim Lng_LetzteZeile As Long
      Lng_LetzteZeile = Range(Str_Zellenname_WertUntenRechts).Row
   Dim Lng_LetzteSpalte As Long
      Lng_LetzteSpalte = Range(Str_Zellenname_WertUntenRechts).Column
      
   Dim Lng_LC1 As Long
   Dim Lng_LC2 As Long
   
   For Lng_LC1 = Lng_ErsteZeile To Lng_LetzteZeile
      For Lng_LC2 = Lng_ErsteSpalte To Lng_LetzteSpalte
         If Cells(Lng_LC1, Lng_LC2).Value = Range(Str_Zellenname_EingegebenerWert).Value Then
            Cells(Lng_LC1, Lng_LC2).EntireRow.Hidden = True
            Exit For
         End If
      Next Lng_LC2
   Next Lng_LC1

End Sub


Sub Zeilen_einblenden()

   Const Str_Zellenname_WertObenLinks As String = "B10"
   Const Str_Zellenname_WertUntenRechts As String = "J200"
   
   Range(Str_Zellenname_WertObenLinks & ":" & Str_Zellenname_WertUntenRechts).EntireRow.Hidden = False

End Sub

 

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
07.05.2014 17:39:26 Luca
NotSolved
Blau Zeilen ausblenden, wenn "Wert" nicht vorkommt
 12.05.2014 12:19:43 RVSG
NotSolved