Type 13
28.05.2007 16:15:37
Jack
ich hatte diesen Code schon unter einem anderen Betreff im Forum. Ich wollte nur noch mal nachfragen ob mir einer helfen kann den Code auf Bilder mit Type 13 umzustellen weil ich keine ahnung habe wie das geht. Denn wenn ich den Code so anwende verschwinden meine Buttons. Bitte um Hilfe !!!
Gruß Jack
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
If Sh.Name Like "*GP" Then
Application.ScreenUpdating = False
Sh.DrawingObjects.Visible = False
Select Case Range("O2").Text
Case "Australien": Sh.Shapes("Melburne").Visible = True
Case "Malaysia": Sh.Shapes("Kuala Lumpur").Visible = True
Case "Bahrain": Sh.Shapes("Manama").Visible = True
Case "Spanien": Sh.Shapes("Barcelona").Visible = True
Case "Monaco": Sh.Shapes("Monte Carlo").Visible = True
Case "Kanada": Sh.Shapes("Montreal").Visible = True
Case "USA": Sh.Shapes("Indianapolis").Visible = True
Case "Frankreich": Sh.Shapes("Magny Cours").Visible = True
Case "Großbritannien": Sh.Shapes("Silverstone").Visible = True
Case "Deutschland": Sh.Shapes("Nürburgring").Visible = True
Case "Ungarn": Sh.Shapes("Budapest").Visible = True
Case "Türkei": Sh.Shapes("Istanbul").Visible = True
Case "Italien": Sh.Shapes("Monza").Visible = True
Case "Belgien": Sh.Shapes("Spa").Visible = True
Case "Japan": Sh.Shapes("Fuji").Visible = True
Case "China": Sh.Shapes("Shanghai").Visible = True
Case "Brasilien": Sh.Shapes("Sao Paulo").Visible = True
Case Else: MsgBox "Kein Bild!"
End Select
Application.ScreenUpdating = True
End If
End Sub