Thema Datum  Von Nutzer Rating
Antwort
15.05.2015 15:35:28 Rüya
NotSolved
15.05.2015 17:13:20 Rüya
NotSolved
16.05.2015 12:21:28 Gast18804
NotSolved
16.05.2015 19:32:53 Rüya
NotSolved
17.05.2015 12:42:06 Gast85541
Solved
17.05.2015 12:35:33 Gast46737
NotSolved
Rot Mit einer Combobox(Ja/Nein) Zellen ein & ausblenden
 20.05.2015 10:44:26 Rüya
NotSolved
20.05.2015 11:32:59 Rüya
Solved

Ansicht des Beitrags:
Von:
Rüya		 Datum:
20.05.2015 10:44:26		 Views:
949		 Rating:
     
Antwort:
  Ja
Thema:
Mit einer Combobox(Ja/Nein) Zellen ein & ausblenden

So, jetzt hab ich das nächste Problem. Zeilen Ein- und Ausblenden funktioniert soweit, wenn ich aber z.B. auf Ja geklickt habe, und dann wieder auf nein (in der gleichen ComboBox), dann passieren komische Sachen. Die Zeilen verschwinden zwar, aber nur der Combobox wird nicht mit ausgeblendet.

Und obwohl ich die Datei ohne zu speichern schließe und wieder öffne, ist es nicht so wie vorher (ohne dass man was ausgewählt hat). Ich will es so, dass das Formular nach dem Schließen ohne Speichern, so vorliegt ohne Veränderungen-

Vielleicht fällt euch was in den Codes auf. Ich bitte euch es mal anzuschauen. Vielen lieben Dank.

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Im Modul ZeilenEinAusblenden:
 
 
 
Sub OnExecute()
If UserForm1.CheckBox1.Value = True Then
    Worksheets("technical request").Rows("7:36").EntireRow.Hidden = True
    Worksheets("technical request").Rows("37:46").EntireRow.Hidden = False
    Worksheets("technical request").Rows("49:50").EntireRow.Hidden = True
    End If
     
If UserForm1.CheckBox2.Value = True Then
    Worksheets("technical request").Rows("7:50").EntireRow.Hidden = False
    End If
     
If UserForm1.CheckBox3.Value = True Then
    Worksheets("technical request").Rows("7:37").EntireRow.Hidden = False
    Worksheets("technical request").Rows("39:50").EntireRow.Hidden = True
    End If
     
End Sub

In der tabelle1:

?
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
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
Private Sub ComboBox1_Change()
    If Me.ComboBox1.Value = "" Then Exit Sub
    
    If Me.ComboBox1.Value = "yes" Then
        Range("A11:I17").EntireRow.Hidden = False '2a,2b einblenden
        Range("A18:I19").EntireRow.Hidden = True '2c ausblenden
        Range("A20:I50").EntireRow.Hidden = False 'ab 3 einblenden
    Else
        Range("A11:I21").EntireRow.Hidden = True '2a,2b,2c ausblenden
        Range("A22:I50").EntireRow.Hidden = False  'ab 3 einblenden
            
         
    End If
End Sub
 
Private Sub ComboBox2_Change()
If Me.ComboBox2.Value = "" Then Exit Sub
    
    If Me.ComboBox2.Value = "yes" Then
        Range("A18:I50").EntireRow.Hidden = False 'ab 2c einblenden
         
    Else
        Range("A18:I21").EntireRow.Hidden = True '2c ausblenden
        Range("A22:I48").EntireRow.Hidden = False  'ab 3-5 einblenden
        Range("A49:I50").EntireRow.Hidden = True '6 ausblenden
         
        End If
            
End Sub
 
Private Sub ComboBox3_Change()
If Me.ComboBox3.Value = "" Then Exit Sub
    
    If Me.ComboBox3.Value = "yes" Then
        Range("A24:I50").EntireRow.Hidden = False '3a,3b,3c einblenden und der Rest
         
    Else
        Range("A24:I27").EntireRow.Hidden = False '3a einblenden
        Range("A28:I37").EntireRow.Hidden = True  '3b,3c ausblenden
         
        End If
         
End Sub
 
Private Sub ComboBox4_Change()
    If Me.ComboBox4.Value = "" Then Exit Sub
        Range("A32:I50").EntireRow.Hidden = False 'ab 3c einblenden
         
        Else
        Range("A32:I46").EntireRow.Hidden = False '3c-5b einblenden
        Range("A49:I50").EntireRow.Hidden = True '6 ausblenden
         
        End If
End Sub
 
Private Sub ComboBox5_Change()
 If Me.ComboBox5.Value = "" Then Exit Sub
        Range("A42:I50").EntireRow.Hidden = False 'ab 5a-6 einblenden
         
        Else
        Range("A42:I46").EntireRow.Hidden = False '5a-5b einblenden
        Range("A48:I50").EntireRow.Hidden = True '6 ausblenden
         
        End If
End Sub
 
Private Sub ComboBox6_Change()
 
End Sub
 
 
Sub ShowForm()
UserForm1.Show
End Sub
 
 
Private Sub CommandButton1_Click()
Call ShowForm
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:
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
15.05.2015 15:35:28 Rüya
NotSolved
15.05.2015 17:13:20 Rüya
NotSolved
16.05.2015 12:21:28 Gast18804
NotSolved
16.05.2015 19:32:53 Rüya
NotSolved
17.05.2015 12:42:06 Gast85541
Solved
17.05.2015 12:35:33 Gast46737
NotSolved
Rot Mit einer Combobox(Ja/Nein) Zellen ein & ausblenden
 20.05.2015 10:44:26 Rüya
NotSolved
20.05.2015 11:32:59 Rüya
Solved