Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.10.2025 13:18:36
Übersicht von Excel Konstanten
16.10.2025 11:48:44
Makro von Excel in Word aufrufen
16.10.2025 11:16:26
SUMMEWENN erweitern
16.10.2025 09:40:53
Mehrere Konferenzen ohne Personenüberschneidung terminieren
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1100to1104
1100to1104
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Grafik ein-/ausblenden per Formel

Forumthread: Grafik ein-/ausblenden per Formel

Grafik ein-/ausblenden per Formel
mberger@schnake-wohnmoebel.de
Hallo,
das Beipielbild zeigt Text (4x Bodenträger ...), Werte (3,...) und Grafiken in Excel.
Userbild
Derzeit erzeuge ich solche Listen mit Grafiken über sehr aufwendige und langsame VBA Codes.
Kann mir jemand sagen, wie folgendes abzubilden ist:
Wenn die Zellen mit Werten 0, dann sollen Grafiken angezeigt werden, wenn =0 bzw. leer dann eben nicht.
Danke für Eure Hilfe
Marcus Leu
Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Grafik ein-/ausblenden per Formel
17.09.2009 13:31:45
ptonka
Hallo Marcus,
1. solltest Du die Grafiken mit Namen vesehen (Grafik_1, Grafik_2, Grafik_3 etc.)
2. Nutze dann folgenden Code, den Du im VBA-Editor aber unter der Tabelle einträgst (nicht als Modul) in der sich die Grafiken befinden:
Private Sub Worksheet_Change(ByVal target As Range)
Wert = target.Value
Zelle1 = Range("A11").Value
Zelle2 = Range("B11").Value
Zelle3 = Range("C11").Value
Zelle4 = Range("D11").Value
Select Case Zelle1
Case Is > 0
Shapes("Grafik_1").Visible = True
Case Is = 0
Shapes("Grafik_1").Visible = False
End Select
Select Case Zelle2
Case Is > 0
Shapes("Grafik_2").Visible = True
Case Is = 0
Shapes("Grafik_2").Visible = False
End Select
Select Case Zelle3
Case Is > 0
Shapes("Grafik_3").Visible = True
Case Is = 0
Shapes("Grafik_3").Visible = False
End Select
Select Case Zelle4
Case Is > 0
Shapes("Grafik_4").Visible = True
Case Is = 0
Shapes("Grafik_4").Visible = False
End Select
End Sub
Gruß,
Ptonka
Anzeige
AW: Grafik ein-/ausblenden per Formel
17.09.2009 13:44:04
mberger@schnake-wohnmoebel.de
Hallo,
danke ich werde mich an die Arbeit machen.
Tschüss
Marcus
AW: Grafik ein-/ausblenden per Formel
17.09.2009 14:05:22
mberger@schnake-wohnmoebel.de
Hallo,
funktioniert prima, vielen Dank.
Allerdings wird der Wert (3 oder 2 oder so) durch eine Formel berrechnet.
In diesem Fall funktioniert der Code nicht.
Was Du Hilfe?
Vielen, vielen Dank
marcus
Anzeige
AW: Grafik ein-/ausblenden per Formel
17.09.2009 14:33:43
mberger@schnake-wohnmoebel.de
Hallo,
funktioniert doch einwandfrei, vielen, vielen Dank !!!!!!!
Marcus
das erklär mal deinem Admin
17.09.2009 22:10:20
Spammer
wie kann man nur so blöd sein, seine Mailadresse zu veröffentlichen.
;

Forumthreads zu verwandten Themen

Kann Fehler in Formel nicht finden. :(
Alex

Hallo Forum!
Ich habe eine Formel, die ein Moment für eine Schraubverbindung berechnet. Eigentlich ist die Eingabe von Formeln kein Problem für mich, aber irgendwie habe ich in der aktuellen Formel einen Fehler reingepackt, den ich nicht finden kann.
Hier erstmal die Formel:

Hi...
20.08.2008 09:09:00
Thread-ID: 1003086
5 Beiträge
VBA Formel finden
Baywatch

Hi,
ich brauche etwas hilfe, mit einer VBA programmierung, vielleicht hat jemand ein paar MInuten Zeit.
Ich habe eine Tabelle 1 in der eine eingabe passiert und eine TAbelle 2 sollen die Einträge aus TAbelle 1 hinkopiert werden und erst nach Spalte G dann nach B und dann nach A sortiert...
25.08.2008 08:47:34
Thread-ID: 1004371
7 Beiträge
Hintergrundfärbung in UserForm Textbox in Zelle...
Josef

Guten Morgen!
wie ich Daten über Userform TextBoxen in die Zellen zurückschreibe, dafür habe ich bereits eine Lösung.
Is es jedoch möglich einen gefärbten Hintergrund einer TextBox in die dafür vorgesehene Zelle zu übertragen?
Wenn ja, wie würde dann bitte eine VBA Lösung lauten?
28.08.2008 06:57:47
Thread-ID: 1005257
10 Beiträge
Zellenformatierung testen - .InsertIndent
Tom

Guten Morgen,
mittels diesem kleinen VBA möchte ich erreichen, dass in Spalte "D" nach "Teilprojekt" gesucht wird.
Wird dieses gefunden, so wird der Text in der Spalte "F" um 2 Einzüge nach rechts verschoben.
Das funktioniert auch soweit.
Private Sub CommandButton2_Click() For...
01.09.2008 10:56:47
Thread-ID: 1006352
3 Beiträge
Bild in UserForm dynamisch aus Internet laden
Ben

hallo,
ich möchte in folgender Codezeile ein Bild aus dem Internet laden, statt von der Festplatte.
Wenn ich jedoch einfach C:\... durch eine "http" Resource ersetze bekomme ich eine Fehlermeldung.
UserForm.DYNAMISCH_PIC.Picture = LoadPicture("C:\temp\bild.jpg")
Weiss jemand w...
05.09.2008 12:55:00
Thread-ID: 1007652
2 Beiträge
Anzeige
MultiPage und ImageCombo - Bilder verschwinden
Alfons

Hallo,
ich habe eine UserForm mit einer MultiPage.
In der ersten Registerkarte ist eine ImageCombo.
Die Bilder für die ImageCombo sind in einer ImageList.
Beim starten der UserForm sind die Bilder in der ImageCombo auch zu sehen.
Wird aber zwischendurch ein anderes Register...
15.10.2008 19:38:13
Thread-ID: 1016667
9 Beiträge
Formel verbinden
Malivendi

Guten Abend,
habe gerade ein problem und komme nicht weiter. Ich gabe eine formel mit der kann ich in einer Tabelle 2 suchen und vergleichen, jetzt müsste ich die formel so erweitern, dass ich in Tabelle 3 , Tabelle 4 usw. suchen und vergleichen kann. In der ersten Tabelle gebe ich die Bez...
04.11.2008 21:31:00
Thread-ID: 1021733
4 Beiträge
Bild in Userform laden
Toby


hallo zusammen
Die aufgabe ist es, mit einer auswahl liste verschiedene Bilder in eine userform zu laden!
die Bilder sollte mit dem Excelfile gespeichert werden können
Zur Zeit mache ich das so, ich lade ein bild mit folgender Funktion in eine Userform
Public Function Bil...
15.12.2008 12:57:09
Thread-ID: 1033005
4 Beiträge
Bild einblenden
Stefan

Hallo Forum,
habe beim suchen im Forum folgenden Code gefunden:
Dim HWH As Object
Sub CommandButton1_Click() CommandButton1.Caption = "Bild" [A300].Activate Set HWH = ActiveSheet.Pictures.Insert("G:\...\....gif") End Sub
Sub CommandButton2_Click() ActiveSheet.Shapes("Pictur...
07.01.2009 13:19:00
Thread-ID: 1037518
3 Beiträge
UserForm überblenden /ein-ausblenden
Nik

Hallo.
Folgendes Problem:
Ich habe eine Userform erstellt, auf der sich links ein Menü befindet.
Je nach Klick auf Menü sollen verschiedene Elemente erscheinen (z.B. Listbox, labels usw...)
Dies mache ich z.B. mit listbox.visible = true
Da es immer mehr Objekte gibt, ist die...
04.02.2009 09:39:00
Thread-ID: 1046897
5 Beiträge
Formeln verbinden
Ralf

Hallo Experten,
ich arbeite gerade an einer Stundenberechnung für einen Dienstplan. Probleme habe ich jetzt bei der Berechnung der Krankstunden. Wenn eine Schicht geplant war und jetzt ein K (Krank) kommt sollen 8h berechnet werden, wenn aber ein DF oder kein Eintrag vorhanden war sollen 0h...
10.02.2009 20:03:15
Thread-ID: 1049294
5 Beiträge
Anzeige
Problem: Grafik in die Kopfzeile einbinden
Gordon

Moin moin,
ich arbeite derzeit mit Excel 2000 und schreibe an einer Datei, aus der später eine neue Datei generiert wird. Die neue Datei soll in der linken Zeil der Kopfzeile ein Logo (logo.jpg) enthalten.
Ich weiß, dass wenn man das Makro zur Generierung unter Excel 2000 ausführt, das...
04.03.2009 21:03:12
Thread-ID: 1056580
3 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige