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
Blau If-Else Bedingung für Rangebereich - Fehlermeldung
 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
19.10.2015 22:02:19 Gast95697
NotSolved

Ansicht des Beitrags:
Von:
BigBen		 Datum:
15.10.2015 14:47:25		 Views:
1756		 Rating:
     
Antwort:
  Ja
Thema:
If-Else Bedingung für Rangebereich - Fehlermeldung

Hallo,

das müsste mit diesem Code funktionieren:

Option Explicit
 
Private Sub Worksheet_Change(ByVal Target As Range)
Dim objRange As Range
Set objRange = Range("F11:G18")
If Not Intersect(Target, objRange) Is Nothing Then _
  Call ANITA(probjRange:=objRange)
Set objRange = Nothing
End Sub
 
Private Sub ANITA(ByRef probjRange As Range)
    Dim objCell As Range
    Dim objCell2 As Range
    For Each objCell In probjRange
        If Not objCell.Value = vbNullString Then Exit For
    Next
    For Each objCell2 In probjRange.Worksheet.Range("I10:K129")
        If Not objCell2.Value = vbNullString Then Exit For
    Next
    If objCell2 Is Nothing Then
        Columns("A:L").EntireColumn.Hidden = False
        Columns("M:EG").EntireColumn.Hidden = True
    Else
        Columns("A:P").EntireColumn.Hidden = False
        Columns("Q:CG").EntireColumn.Hidden = True
        Columns("CH:EI").EntireColumn.Hidden = False
    End If
    If Not objCell Is Nothing 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
        Set objCell = Nothing
    Else
        Columns("A:H").EntireColumn.Hidden = False
        Columns("I:EG").EntireColumn.Hidden = True
        Columns("CH:EI").EntireColumn.Hidden = False
    End If
End Sub

VG, BigBen

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
Blau If-Else Bedingung für Rangebereich - Fehlermeldung
 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
19.10.2015 22:02:19 Gast95697
NotSolved