Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
18.04.2024 19:30:20
VBA - Tabelle mit Mannschaftsergebnissen sortieren
18.04.2024 18:04:29
Formel fehler Wert#
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
240to244
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
240to244
240to244
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Ampel in EXCEL/VBA

Ampel in EXCEL/VBA
10.04.2003 12:49:25
Geoff
wie kann ich einen Ampel in EXCEL aufbauen ?
z.B. Status 1=rot; 2=orange; 3=grun

Ich kann es leicht mit bedingte Formattierung machen,
möchte ich es aber lieber mit VBA machen,
mit einem schönen Grafik hinterlegt ....

Geht sowas überhaupt?
Vielen Dank im Voraus !
Geoff

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Ampel in EXCEL/VBA
10.04.2003 13:01:53
ChrisL

Hallo Geoff

Alle 3 Grafiken in Tabellenblatt einfügen und folgender Code in Tabelle hinterlegen:

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Address = "$A$1" Then

Select Case Range("A1")

Case 1
ActiveSheet.Shapes("Picture 1").Visible = True
ActiveSheet.Shapes("Picture 2").Visible = False
ActiveSheet.Shapes("Picture 3").Visible = False

Case 2
ActiveSheet.Shapes("Picture 1").Visible = False
ActiveSheet.Shapes("Picture 2").Visible = True
ActiveSheet.Shapes("Picture 3").Visible = False

Case 3
ActiveSheet.Shapes("Picture 1").Visible = False
ActiveSheet.Shapes("Picture 2").Visible = False
ActiveSheet.Shapes("Picture 3").Visible = True

End Select

End If
End Sub


Gruss
Chris

Anzeige
Re: Ampel in EXCEL/VBA
10.04.2003 13:24:10
Geoff

danke Chris !

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige