Thema Datum  Von Nutzer Rating
Antwort
13.10.2015 20:49:32 Anita
***
Solved
13.10.2015 23:53:40 BigBen
NotSolved
14.10.2015 10:17:00 Anita
NotSolved
14.10.2015 14:40:08 Gast95383
NotSolved
15.10.2015 10:04:39 Anita
NotSolved
15.10.2015 14:47:25 BigBen
NotSolved
15.10.2015 21:04:55 Anita
NotSolved
16.10.2015 18:49:31 Gast93512
NotSolved
17.10.2015 09:08:12 Gast67283
NotSolved
Blau If-Else Bedingung für Rangebereich - Fehlermeldung
 19.10.2015 22:02:19 Gast95697
NotSolved

Ansicht des Beitrags:
Von:
Gast95697		 Datum:
19.10.2015 22:02:19		 Views:
1385		 Rating:
     
Antwort:
  Ja
Thema:
If-Else Bedingung für Rangebereich - Fehlermeldung

...und noch besser....

Option Explicit

'...

Private Sub ANITA(ByRef probjRange As Range, ByRef probjTarget As Range)
  If Not Intersect(probjTarget, probjRange.Areas(1)) Is Nothing Then
    If WorksheetFunction.CountA(probjRange.Areas(1)) <> 0 Then
      Columns("A:L").EntireColumn.Hidden = False
      Columns("M:EG").EntireColumn.Hidden = True
      Columns("CH:EI").EntireColumn.Hidden = False
      ActiveWindow.FreezePanes = False
      Range("D10").Select
      ActiveWindow.FreezePanes = True
      Range("A10").Select
    Else
      Columns("A:H").EntireColumn.Hidden = False
      Columns("I:EG").EntireColumn.Hidden = True
      Columns("CH:EI").EntireColumn.Hidden = False
    End If
  End If
  If Not Intersect(probjTarget, probjRange.Areas(2)) Is Nothing Then
    If WorksheetFunction.CountA(probjRange.Areas(2)) <> 0 Then
      Columns("A:P").EntireColumn.Hidden = False
      Columns("Q:CG").EntireColumn.Hidden = True
      Columns("CH:EI").EntireColumn.Hidden = False
    Else
      Columns("A:L").EntireColumn.Hidden = False
      Columns("M:EG").EntireColumn.Hidden = True
      Columns("CH:EI").EntireColumn.Hidden = False
    End If
  End If
End Sub

Gruß,

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
13.10.2015 20:49:32 Anita
***
Solved
13.10.2015 23:53:40 BigBen
NotSolved
14.10.2015 10:17:00 Anita
NotSolved
14.10.2015 14:40:08 Gast95383
NotSolved
15.10.2015 10:04:39 Anita
NotSolved
15.10.2015 14:47:25 BigBen
NotSolved
15.10.2015 21:04:55 Anita
NotSolved
16.10.2015 18:49:31 Gast93512
NotSolved
17.10.2015 09:08:12 Gast67283
NotSolved
Blau If-Else Bedingung für Rangebereich - Fehlermeldung
 19.10.2015 22:02:19 Gast95697
NotSolved