Kampf ich gegen VBA, 1:0 für VBA
Also ich habe mehrere Checkboxen, die aktivert werden können.
WEnn einen aktivert wird, blende ich darunter zeilen ein. Genau in diese Position möchte ich nun auch eine Textbox einblenden. Dazu habe ich bei aktivierten Checkboxen die Textbox an der entsprechenden Position in den eingeblendeten Zeilen positioniert.
Mein Problem:
Ich aktivere eine Checkbox so dass die Textbox eingebendet wird. Dann speicher ich die Excel Datei, schließe sie und öffne Sie dann wieder neu.
Die Textbox ist noch eingeblendet. Wenn ich jetzt jedoch eine Checkbox unterhalb der ersten aktivierten Checkbox aktiviere, blenden die Zeilen ein, aber die Textbox erscheint nicht in diesen Zeilen sondern irgendwo weiter unten. Irgendwie müsste mein Code also so umgeschrieben werden, dass die Textboxen wirklich immer in den eingebldenten Zeilen erscheinen, unabhängig davon, wieviel Checkboxen beim Speichern aktivert waren.
Mein Code (ich weiß der ist mist) sieht aktuell so aus, ich lasse einen Teil aus:
Private Sub UserForm_Activate()
Range("a1").Select
Dim X&
For X = 1 To 9
Me.Controls("Checkbox" & X).Value = Not Rows(X).Hidden
Next
End Sub
Private Sub CheckBox1_Click()
Rows("40:43").EntireRow.Hidden = Not CheckBox1.Value
End Sub
Private Sub CheckBox2_Click()
Rows("47:50").EntireRow.Hidden = Not CheckBox2.Value
End Sub
Private Sub CheckBox3_Click()
Rows("55:58").EntireRow.Hidden = Not CheckBox3.Value
End Sub
Private Sub CheckBox4_Click()
Rows("61:64").EntireRow.Hidden = Not CheckBox4.Value
Private Sub Checkbox1_Change()
If CheckBox1.Value = True Then
TextBox8.Visible = True
Else
TextBox8.Visible = False
End If
End Sub
Private Sub Checkbox2_Change()
If CheckBox2.Value = True Then
TextBox9.Visible = True
Else
TextBox9.Visible = False
End If
End Sub
Private Sub Checkbox3_Change()
If CheckBox3.Value = True Then
TextBox1.Visible = True
Else
TextBox1.Visible = False
End If
End Sub
Private Sub Checkbox4_Change()
If CheckBox4.Value = True Then
TextBox2.Visible = True
Else
TextBox2.Visible = False
End If
End Sub
Kann mir hier bitte einer weiterhelfen. Ich krieg echt die Krise.
VIelen Dank!!