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

Ansicht des Beitrags:
Von:
Gast95383		 Datum:
14.10.2015 14:40:08		 Views:
2191		 Rating:
     
Antwort:
  Ja
Thema:
If-Else Bedingung für Rangebereich - Fehlermeldung

Hallo,

Du fragst ja auch nur F11 ab, Du mußt die Abfrage in der Ereignisprozedur ändern und in ANITA den ganzen Bereich auf Leerzellen prüfen:

Der gesamte Code muß in das Modul der Tabelle:

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
  For Each objCell In probjRange
      If Not objCell.Value = vbNullString Then Exit For
  Next
  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

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