Thema Datum  Von Nutzer Rating
Antwort
Rot else ohne if Problem
 28.05.2020 09:21:22 Gastbeitrag4711
NotSolved
28.05.2020 09:42:40 Gast99115
NotSolved
28.05.2020 15:08:14 Gast13086
NotSolved
28.05.2020 17:28:39 Gast7777
NotSolved
28.05.2020 18:06:14 Gast99115
NotSolved
28.05.2020 18:59:24 Gast0815
NotSolved
29.05.2020 09:39:05 Gast61386
NotSolved
29.05.2020 09:40:32 Gast41771
NotSolved

Ansicht des Beitrags:
Von:
Gastbeitrag4711		 Datum:
28.05.2020 09:21:22		 Views:
1266		 Rating:
     
Antwort:
  Ja
Thema:
else ohne if Problem

Hallo, ich hab hier eine Denk- oder Sehschwäche:

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
If varEinSchalterLux.Value = "x" And varEinblendLux.Hidden = True Then [3. Vertreter einblenden]
       If varAusblendLux1.Hidden = False Then
          varAusblendLux1.Hidden = True
       End If
        
       If varAusblendLux2.Hidden = False Then
          varAusblendLux2.Hidden = True
       End If
        
       If varAusblendLux3.Hidden = False Then
          varAusblendLux3.Hidden = True
       End If
        
       If varAusblendLux4.Hidden = False Then
          varAusblendLux4.Hidden = True
       End If
        
       If varAusblendLux5.Hidden = False Then
          varAusblendLux5.Hidden = True
       End If
        
       If varAusblendLux6.Hidden = False Then
          varAusblendLux6.Hidden = True
       End If
        
       If varAusblendLux7.Hidden = False Then
          varAusblendLux7.Hidden = True
       End If
       varEinblendLux.Hidden = False
        
       Set varAusblendVertreter3 = ActiveSheet.Rows("55")
       Set varSchalterVertreter3 = ActiveSheet.Cells(55, 10)
 
       If varSchalterVertreter3.Value = "x" And varAusblendVertreter3.Hidden = True Then
           varAusblendVertreter3.Hidden = False
            
       Else
           If varAusblendVertreter3.Hidden = False Then
           varAusblendVertreter3.Hidden = True
           End If
       End If
            
       [If varSchalterVertreter3.Value <> "x" And varAusblendVertreter3.Hidden = False Then]
       [    varAusblendVertreter3.Hidden = True]
       [End If]
             
   Else: [3. Vertreter ausblenden]

Bei der letzten Zeile kommt die Fehlermeldung siehe Thread-Name, der Fehler muss ja davor sein. Ich hab hier nur ein Code-Ausschnitt, der Fehler sollte aber dort enthalten sein.

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:
WYSIWYG-Editor, ctl00_Content_editor1



  • 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
Rot else ohne if Problem
 28.05.2020 09:21:22 Gastbeitrag4711
NotSolved
28.05.2020 09:42:40 Gast99115
NotSolved
28.05.2020 15:08:14 Gast13086
NotSolved
28.05.2020 17:28:39 Gast7777
NotSolved
28.05.2020 18:06:14 Gast99115
NotSolved
28.05.2020 18:59:24 Gast0815
NotSolved
29.05.2020 09:39:05 Gast61386
NotSolved
29.05.2020 09:40:32 Gast41771
NotSolved