Bild Einfügen
22.05.2007 23:40:57
Jack
der Code klappt super hab aber noch eine Frage. Wenn ich jetzt ausversehen einen Namen doppelt in der Dateneingabe eingebe und ich dann auf die strecke gehe erscheint eine Fehlermeldung. Kann man das nicht ändern das eine MsgBox erscheint das die Strecke 2 mal vorhanden ist. 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 = True
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