ich verwende in einer Tabelle 2 VBA-Codes, die jeweils allein genutzt voll funktionsfähig sind. Sobald ich aber beide verwende, funktioniert der Code für den "Bildertausch" nicht mehr.
Habe den Code einmal an den Anfang gestellt, dazwischen und am Ende. Nix geht. Was mache ich falsch?
(der Code für den Bildertausch wurde zusätzlich eingefügt)
Gruß Werner
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