Change und Click
EarnyToLearny
stelle meine Frage hier nochmals unter anderem Betreff ein:
Auf einer Tabellenseite war bereits ein VBA-Code für eine "Click-Anwendung" enthalten. Nun mußte auf der gleichen Tabelle auch eine "Change-Anwendung" eingefügt werden.
Beide Anwendungen funktionierten als Einzelanwendung einwandfrei. Nach dem Einfügen der "Change" funktioniert diese aber nicht mehr. Wurde hier was übersehen? (der eingefügte Teil steht gleich am Anfang)
Private Sub Worksheet_Change(ByVal Target As Range)
Me.Shapes("Bild 58").Visible = Range("Q19") = 1
Me.Shapes("Bild 59").Visible = Range("Q19") = 2
Me.Shapes("Bild 60").Visible = Range("Q19") = 3
End Sub
Private Sub OptionButton1_Click()
Dim lngIndex As Long
For lngIndex = 4 To 15
Select Case lngIndex
Case 10 To 15
Me.OLEObjects("OptionButton" & lngIndex).Visible = False
Case Else
Me.OLEObjects("OptionButton" & lngIndex).Visible = True
End Select
Next
End Sub
Private Sub OptionButton2_Click()
Dim lngIndex As Long
For lngIndex = 4 To 15
Select Case lngIndex
Case 4, 5, 6, 7, 8, 9, 14 To 15
Me.OLEObjects("OptionButton" & lngIndex).Visible = False
Case Else
Me.OLEObjects("OptionButton" & lngIndex).Visible = True
End Select
Next
End Sub
Private Sub OptionButton3_Click()
Dim lngIndex As Long
For lngIndex = 4 To 15
Select Case lngIndex
Case 4 To 13
Me.OLEObjects("OptionButton" & lngIndex).Visible = False
Case Else
Me.OLEObjects("OptionButton" & lngIndex).Visible = True
End Select
Next
End Sub
Muss der obere Teil vielleich in ein Modul eingebaut werden? Kann hier jemand helfen? Vielen Dank sagt
Werner