Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Mehrere VBA-Codes in Tabelle (Fehler)

Mehrere VBA-Codes in Tabelle (Fehler)
EarnyToLearny
Liebe Excel-Gemeinde,
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
  • Option Explicit
    
    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
    

  • 1
    Beitrag zum Forumthread
    Beitrag zu diesem Forumthread

    Betreff
    Benutzer
    Anzeige
    ERledigt, neue Anfrage läuft o.w.T
    24.10.2011 19:45:06
    Reinhard
    
    

    Anzeige
    Anzeige

    Links zu Excel-Dialogen

    Beliebteste Forumthreads (12 Monate)

    Anzeige

    Beliebteste Forumthreads (12 Monate)

    Anzeige
    Anzeige
    Anzeige
    Archiv - Verwandte Themen
    Forumthread
    Beiträge