Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
648to652
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
648to652
648to652
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Grafik einfügen - Vereinfachung Code

Grafik einfügen - Vereinfachung Code
08.08.2005 20:29:41
Tom
Hallo,
wer hat ne Idee, wie man diesen Code "von Beate" noch vereinfachen kann:
Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
If Range("$B$2").Value = "Hund" Then
ActiveSheet.Pictures("Bild 3").Visible = True
Else
ActiveSheet.Pictures("Bild 3").Visible = False
End If
If Range("$B$4").Value = "Katze" Then
ActiveSheet.Pictures("Bild 4").Visible = True
Else
ActiveSheet.Pictures("Bild 4").Visible = False
End If
If Range("$B$4").Value = "Maus" Then
ActiveSheet.Pictures("Bild 5").Visible = True
Else
ActiveSheet.Pictures("Bild 5").Visible = False
End If
End Sub

Gruß
Tom

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Grafik einfügen - Vereinfachung Code
08.08.2005 20:41:43
Leo
Hi,

Private Sub Worksheet_Change(ByVal Target As Range)
Me.Pictures("Bild 3").Visible = [b2] = "Hund"
Me.Pictures("Bild 4").Visible = [b4] = "Katze"
'usw.
End Sub

mfg Leo
AW: Grafik einfügen - Vereinfachung Code
08.08.2005 20:54:06
Tom
Hi Leo,
klappt prima.
Nun noch eine Zusatzfrage:
Die eingefügten Bilder liegen alle in D4 übereinander und werden bei Eingabe des betreffendes Wortes (Hund, Katze oder Maus) in B2 ausgegeben.
Nun möchte ich aber auch z.B. in B24 diese Werte eingeben. Wenn ich den Code aber so wie unten angegeben erweitere funktioniert das leider nicht ...

Private Sub Worksheet_Change(ByVal Target As Range)
Me.Pictures("Bild 32").Visible = [b4] = "Hund"
Me.Pictures("Bild 34").Visible = [b4] = "Katze"
Me.Pictures("Bild 35").Visible = [b4] = "Maus"
Me.Pictures("Bild 32").Visible = [b24] = "Hund"
Me.Pictures("Bild 34").Visible = [b24] = "Katze"
Me.Pictures("Bild 35").Visible = [b24] = "Maus"
End Sub

Anzeige
AW: Grafik einfügen - Vereinfachung Code
08.08.2005 21:14:31
Leo
Hi,
dann so:

Private Sub Worksheet_Change(ByVal Target As Range)
Select Case Target.Address(0, 0)
Case "B4"
Me.Pictures("Bild 32").Visible = [b4] = "Hund"
Me.Pictures("Bild 34").Visible = [b4] = "Katze"
Me.Pictures("Bild 35").Visible = [b4] = "Maus"
Case "B24"
Me.Pictures("Bild 32").Visible = [b24] = "Hund"
Me.Pictures("Bild 34").Visible = [b24] = "Katze"
Me.Pictures("Bild 35").Visible = [b24] = "Maus"
End Select
End Sub

mfg Leo
AW: Grafik einfügen - Vereinfachung Code
08.08.2005 21:31:46
Tom
Super, vielen vielen Dank !! Gruß Tom

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige