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.
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:
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
|