Wenn ---> dann Bild

Bild

Betrifft: Wenn ---> dann Bild
von: Matthias
Geschrieben am: 10.04.2005 12:09:41
Hallo,
jo also folgendes: ich habe 3 bilder und wenn eine bedingung erfüllt ist, kommt halt das jeweilige Bild.
Geht sowas??
Also es geht konkret um einen Rauchkostenkalkulator, den wir für die Schule machen sollen.
und wenn man die Marke wählt, soll dann das entsprechende Logo angezeigt werden.

Bild

Betrifft: AW: Wenn ---> dann Bild
von: Ramses
Geschrieben am: 10.04.2005 12:22:04
Hallo
geht nur mit VBA und die 3 Bilder müssen in der Tabelle "ausgeblendet" am richtigen Ort vorhanden sein
Gültigkeit auf eine Zelle erstellen
Auswahl oder Liste zuweisen
Den Code in das Klassenmodul der Tabelle kopieren, wo das funktionieren soll
Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address(False, False) = "A1" Then
     Select Case Range("A1").Value
          Case "Camel"
               ActiveSheet.Shapes("Bild 1").Visible = True
               ActiveSheet.Shapes("Bild 2").Visible = False
               ActiveSheet.Shapes("Bild 3").Visible = False
          Case "Marlboro"
               ActiveSheet.Shapes("Bild 2").Visible = True
               ActiveSheet.Shapes("Bild 1").Visible = False
               ActiveSheet.Shapes("Bild 3").Visible = False
          Case "HB"
               ActiveSheet.Shapes("Bild 3").Visible = True
               ActiveSheet.Shapes("Bild 1").Visible = False
               ActiveSheet.Shapes("Bild 2").Visible = False
          Case Else
               ActiveSheet.Shapes("Bild 1").Visible = False
               ActiveSheet.Shapes("Bild 2").Visible = False
               ActiveSheet.Shapes("Bild 3").Visible = False
     End Select
End If
End Sub

Die Bilder müssen natürlich so benannt sein, und die Auswahlzelle muss hier auf A1 stehen ansonsten anpassen
Gruss Rainer
Bild

Betrifft: AW: Wenn ---> dann Bild
von: Matthias
Geschrieben am: 10.04.2005 14:54:23
Hallo,
leider kenn ich mich mit VB nicht aus.
Kannst du mir das vielleicht genauer erklären?
Danke schonmal :)
Bild

Betrifft: AW: Wenn ---> dann Bild
von: Ramses
Geschrieben am: 10.04.2005 15:14:17
Hallo
Tut mir leid,... aber mehr kann ich dir dazu nicht erklären.
Es steht alles dabei was man wissen muss um das Ding zum laufen zu bringen.
Im Code steht hinter "Case" steht immer die Zigarettenmarke die ausgewählt wurde, oder sonst irgendeinen Eintrag der in der Liste vorkommt.
Gruss Raienr
Bild

Betrifft: AW: Wenn ---> dann Bild
von: Matthias
Geschrieben am: 10.04.2005 15:45:22
Ja den Code versteh ich ja, nur ich weiß nicht, wo genau ich den einfügen soll.
Bild

Betrifft: AW: Wenn ---> dann Bild
von: Ramses
Geschrieben am: 10.04.2005 15:50:25
Hallo
Rechte Maustaste auf Tabellenreiter
Code anzeigen
Reinkopieren
oder anders
VB-Editor starten
Doppelklick auf Deine Tabelle

Gruss Rainer
 Bild

Beiträge aus den Excel-Beispielen zum Thema "Passwortabfrage über Userform"