Thema Datum  Von Nutzer Rating
Antwort
03.07.2017 08:20:58 Singsa
NotSolved
03.07.2017 11:53:28 RPP63
NotSolved
03.07.2017 12:09:47 Gast70117
NotSolved
Blau ich meinste so
03.07.2017 15:58:25 Gast70117
NotSolved
03.07.2017 16:37:01 Gast59592
NotSolved
03.07.2017 15:54:23 Gast74810
NotSolved

Ansicht des Beitrags:
Von:
Gast70117		 Datum:
03.07.2017 15:58:25		 Views:
592		 Rating:
     
Antwort:
  Ja
Thema:
ich meinste so

Sry, ich kann nicht anders

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Arr(), c, x, y

   If Intersect(Range("I14:I50"), Target) Is Nothing Then Exit Sub
   
   Arr = Array("EMZ", "EMZF", "HAZ")
   
   For Each c In Target.Cells
      y = 0
   
      For x = 0 To 2
         If Not Range("I14:I50").Find(Arr(x), , xlValues, xlWhole) Is Nothing Then _
            y = y + (x + 2)
      Next x

      Application.ScreenUpdating = False
      Columns("P:AG").Hidden = False
   
      Select Case y
         Case 0
            Columns("P:AG").Hidden = True
         Case 2
            Columns("V:AG").Hidden = True
         Case 3
            Columns("P:U").Hidden = True
            Columns("AD:AG").Hidden = True
         Case 4
            Columns("P:AC").Hidden = True
         Case 5
            Columns("AD:AG").Hidden = True
         Case 6
            Columns("P:U").Hidden = True
         Case 7
            Columns("V:AC").Hidden = True
      End Select
   Next c
   
   Application.ScreenUpdating = True

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
03.07.2017 08:20:58 Singsa
NotSolved
03.07.2017 11:53:28 RPP63
NotSolved
03.07.2017 12:09:47 Gast70117
NotSolved
Blau ich meinste so
03.07.2017 15:58:25 Gast70117
NotSolved
03.07.2017 16:37:01 Gast59592
NotSolved
03.07.2017 15:54:23 Gast74810
NotSolved