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
880to884
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
880to884
880to884
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Bilder ein/asusblenden VBA

Bilder ein/asusblenden VBA
02.07.2007 10:28:00
Ralph
Hallo Excel/VBA Gemeinde,
ich habe wieder mal ein Problem.
Ich blenden bilder ein/aus mit dem folgenden cod im Tabelleblatt.

Private Sub Worksheet_Calculate()
Dim b As Byte
For b = 1 To 8
Me.Shapes("Bild " & b).Visible = False
Next
Select Case [BG1]
Case 1: Me.Pictures("Bild 1").Visible = True
Case 2: Me.Pictures("Bild 2").Visible = True
Case 3: Me.Pictures("Bild 3").Visible = True
Case 4: Me.Pictures("Bild 4").Visible = True
Case 5: Me.Pictures("Bild 5").Visible = True
Case 6: Me.Pictures("Bild 6").Visible = True
Case 7: Me.Pictures("Bild 7").Visible = True
Case 8: Me.Pictures("Bild 8").Visible = True
End Select
Next
For b = 60 To 62
Me.Shapes("Bild " & b).Visible = False
Select Case [BH1]
Case 1: Me.Pictures("Bild 62").Visible = True
End Select
End Sub


Im oberen Teil mit abhängigkeit der Zelle BG1.
Nun möchte ich ein weiteres Bild in abhängigkeit von Zelle BH1 einblenden.
Aber ich habe leider keine idee. anbei mein Versuch.
Vielleicht kann mir jemand erklären wie die vollen funktion des code ist
Danke im Voraus
Ralph

13
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Bilder ein/asusblenden VBA
02.07.2007 10:35:00
Hajo_Zi
Hallo Ralph,
welcher Fehler? Ich z.B. habe nicht die Datei und ich lade Sie mir von Deinem Rechner nicht runter. In Deinem Code fehlt ein Next.
For b = 60 To 62
Me.Shapes("Bild " & b).Visible = False
Next b
Select Case [BH1]
Case 1: Me.Pictures("Bild 62").Visible = True
End Select

AW: Bilder ein/asusblenden VBA
02.07.2007 10:49:24
Ralph
Hallo Hajo,
danke für die schnell antwort. Aber ich kann dies leider immer noch nicht verstehn.
Habe nun code folgendermaßen geändert aller dings funktioniert dies auch nicht.
Private Sub Worksheet_Calculate()
Dim b As Byte
For b = 1 To 8
Me.Shapes("Bild " & b).Visible = False
Next
Select Case [BG1]
Case 1: Me.Pictures("Bild 1").Visible = True
Case 2: Me.Pictures("Bild 2").Visible = True
Case 3: Me.Pictures("Bild 3").Visible = True
Case 4: Me.Pictures("Bild 4").Visible = True
Case 5: Me.Pictures("Bild 5").Visible = True
Case 6: Me.Pictures("Bild 6").Visible = True
Case 7: Me.Pictures("Bild 7").Visible = True
Case 8: Me.Pictures("Bild 8").Visible = True
End Select
For b = 60 To 62
Me.Shapes("Bild " & b).Visible = False
Next b
Select Case [BH1]
Case 1: Me.Pictures("Bild 62").Visible = True
Wenn ich einen Wert in Zell BH1 eintrage ist das Bild weiterhin zusehen.
Woran kann das leigen?
Danke im Voraus

Anzeige
AW: Bilder ein/asusblenden VBA
02.07.2007 10:53:00
Hajo_Zi
Hallo Ralph,
an dem Sachverhalt
z.B. habe nicht die Datei und ich lade Sie mir von Deinem Rechner nicht runter.
hat sich nichts geändert. Du hast die Zeit schon investiert und die Datei erstellt, warum sollte ich das nochmal. Ein Nachbau sieht meistens anders aus als das Original.
Gruß Hajo

AW: Bilder ein/asusblenden VBA
02.07.2007 11:06:42
Hajo_Zi
Hallo Ralph,
das Bild 62 gibt es in der Tabelle?
Das Calcualte Ereignis wird nur ausgelöst, wenn in der Tabelle Berechnungen sind. Ich habe bei Dir keine gefunden. Da hilft dann auch =Zufallszahl() in einer Zelle
BH1 ist nicht 1 bei Dir um das Bild einzublenden.
Gruß Hajo

Anzeige
AW: Bilder ein/asusblenden VBA
02.07.2007 11:12:42
Ralph
Aja ,
sorry bei dem Auszug aus der Datei ist es leider Bild 47.
habe dies nun so geändert.
Private Sub Worksheet_Calculate()
Dim b As Byte
For b = 1 To 8
Me.Shapes("Bild " & b).Visible = False
Next
Select Case [BG1]
Case 1: Me.Pictures("Bild 1").Visible = True
Case 2: Me.Pictures("Bild 2").Visible = True
Case 3: Me.Pictures("Bild 3").Visible = True
Case 4: Me.Pictures("Bild 4").Visible = True
Case 5: Me.Pictures("Bild 5").Visible = True
Case 6: Me.Pictures("Bild 6").Visible = True
Case 7: Me.Pictures("Bild 7").Visible = True
Case 8: Me.Pictures("Bild 8").Visible = True
End Select
For b = 1 To 8
Me.Shapes("Bild " & b).Visible = False
Next b
Select Case [BH1]
Case 1: Me.Pictures("Bild 47").Visible = True
End Select
Allerdings wird kein bild aus der Auswahl 1 udn auch nicht aus der neuen Auswahl dargestellt.
Hast Du noch eine Idee die mir helfen kann.
Habe die Datei nochmal geändert hochgeladen.
https://www.herber.de/bbs/user/43748.xls
Danke und sorry für die Mühe.
Ralph

Anzeige
AW: Bilder ein/asusblenden VBA
02.07.2007 11:31:56
Hajo_Zi
Hallo Ralph,
Du solltest im zweiten Teil schon die richtigen Bilder ausbenden.

Option Explicit
Private Sub Worksheet_Calculate()
Dim b As Byte
For b = 1 To 8
Me.Shapes("Bild " & b).Visible = False
Next
Select Case [BG1]
Case 1: Me.Pictures("Bild 1").Visible = True
Case 2: Me.Pictures("Bild 2").Visible = True
Case 3: Me.Pictures("Bild 3").Visible = True
Case 4: Me.Pictures("Bild 4").Visible = True
Case 5: Me.Pictures("Bild 5").Visible = True
Case 6: Me.Pictures("Bild 6").Visible = True
Case 7: Me.Pictures("Bild 7").Visible = True
Case 8: Me.Pictures("Bild 8").Visible = True
End Select
For b = 47 To 47
Me.Shapes("Bild " & b).Visible = False
Next b
Select Case [BH1]
Case 1: Me.Pictures("Bild 47").Visible = True
End Select
End Sub


Gruß Hajo

Anzeige
AW: Bilder ein/ausblenden VBA
02.07.2007 11:42:00
Ralph
Hallo Hajo,
ja klar habe ich immer übersehen.
Fubktioniert fast perfekt!
Nun habe ich noch ein Kleinigkeit . kann ich gleichzeitig noch zwei Linien oder evtl. anstelle des Bildes ein Gruppe ein/ausblenden.
Kannst Du mir evtl. ein Beispiel nennen?
DANKE und Gruss
Ralph

AW: Bilder ein/ausblenden VBA
02.07.2007 11:51:25
Hajo_Zi
Hallo Ralph,
was eine Linie ist ist mir klar, aber ein Gruppe ?

Die Datei https://www.herber.de/bbs/user/43749.xls wurde aus Datenschutzgründen gelöscht


Gruß Hajo

Anzeige
AW: Bilder ein/ausblenden VBA
02.07.2007 12:02:00
Ralph
Hallo Hajo,
ein Gruppe - Gruppierung von mehreren Objekten : Bilder + Linien + Textfelder ect.
Hintergrund ist das ich das Bild 47 sowei die beiden Linien 48 +49 gleichzeitig ein /ausblenden möchte.
Hab das mal probiert funktioniert auch .
Allerdinsg wird bei einer Änderung von BG1 auch die Linien ein/ausgeblendet.
wahrscheinlich findet dann auch ein shapes änderung statt.
Wie kann ich dies verhindern.
Anbei die geänderte Datei.
https://www.herber.de/bbs/user/43750.xls

AW: Bilder ein/ausblenden VBA
02.07.2007 12:10:00
Hajo_Zi
Hallo Ralph,
kann es sein das die Bilder nicht mehr da sind?

Option Explicit
Private Sub Worksheet_Calculate()
Dim b As Byte
For b = 1 To 8
Me.Shapes("Bild " & b).Visible = False
Next
Select Case [BG1]
Case 1: Me.Pictures("Bild 1").Visible = True
Case 2: Me.Pictures("Bild 2").Visible = True
Case 3: Me.Pictures("Bild 3").Visible = True
Case 4: Me.Pictures("Bild 4").Visible = True
Case 5: Me.Pictures("Bild 5").Visible = True
Case 6: Me.Pictures("Bild 6").Visible = True
Case 7: Me.Pictures("Bild 7").Visible = True
Case 8: Me.Pictures("Bild 8").Visible = True
End Select
For b = 47 To 47
Me.Shapes("Bild " & b).Visible = False
Next b
For b = 48 To 49
Shapes("Linie " & b).Visible = False
Next b
Select Case [BH1]
Case 1
Me.Pictures("Bild 47").Visible = True
Shapes("Linie 49").Visible = True
Shapes("Linie 48").Visible = True
End Select
End Sub


Gruß Hajo

Anzeige
AW: Bilder ein/ausblenden VBA
02.07.2007 15:51:00
Ralph
Hallo Hajo,
vielen Dank für dein Mühe.
Super Support!!
Danke
Bis demnächst..
Ps: und wieder ein glücklicher VBA Anfänger

AW: Bilder ein/ausblenden VBA
02.07.2007 14:32:00
Olaf
Hi,
du musst die Gruppen schon korrekt ansprechen.
Hier mal eine Liste der Shapes in deiner Mappe:
Picture 1
Group 3
Bild 1
Bild 2
Bild 3
Bild 4
Bild 5
Bild 6
Bild 7
Bild 8
Picture 16
Group 17
Picture 47
Line 48
Line 49
mfg Olaf

305 Forumthreads zu ähnlichen Themen

An Zellengröße anpassen in Verbundenen Zellen
Kai

Hallo
Ich habe folgendes Problem.
Ich habe die Zellen D12-G23 verbunden.
Darin soll ein längerer Text stehen, welcher mit sverweis geholt wird.
Wenn ich die Zelle mit Zeilenumbruch formatiere, dann ist der Text zu lang (unten fehlt was).
Wenn ich den Text mit "An Zellengröße...
18.08.2008 17:09:00
Thread-ID: 1002694
3 Beiträge
Anzeige
Script um auf jeden Blatt eine Zelle zu markieren
Eddie

Hallo, ich habe eine eigentlich ganz einfache sache, aber irgendwie ruft wohl eher das WE in meinen Kopf :-)
Ich will eigentlich nur ein kleinen VBA Code ... der in jeden vorhandenen Tabellenblatt die Zelle A1 markiert
Vielleicht kann mir jemand da etwas sagen ?
gruß Eddie
22.08.2008 15:11:53
Thread-ID: 1003910
15 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
Anzeige
Zellen ausblenden mit Wert 0 in Zelle
Ulrich

Hallo zusammen,
wie kann ich einem Tabellenblatt alle Zeilen ausblenden, bei denen in der ersten Zelle eine 0 (null) steht? Geht sowas überhaupt?
Viele Grüße,
Ulrich
01.09.2008 11:08:49
Thread-ID: 1006360
6 Beiträge
Zeile ausblenden, wenn in einer Zelle ein bestimmt
Jakob

Hallo,
Ich habe folgendes Problem:
Ich möchte in den Tabellenblatt "Form3" die zeilen 39-50 ausblenden wenn die Zelle A37 ungleich "Pentax" und "Ciclox" ist. Der Wert der Zelle A37 kommt aus der Eingabe im Tabellenblatt "Eingabemaske" (B7).
Wie müßte der entsprechende VBA-Code ausse...
03.09.2008 17:24:21
Thread-ID: 1007176
6 Beiträge
Zelle mit heutigem Datum finden
Steffi

Hallo liebe Spezialisten,
hier im Forum hat man mir den unten stehenden Code gezeigt um im Bereich "F:F" die Zelle mit dem heutigen Datum zu finden. Das klappt soweit auch prima :-)
Wenn das Datum jedoch per Formel wie z.B. =HEUTE() erzeugt wurde, funktioniert der Code nicht.
Könnt...
05.09.2008 11:46:00
Thread-ID: 1007634
12 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
gleich Zellen finden
Johannes

Hallo Excel-Kenner,
mein Sohn hatte gerade in der Schule bei der Bruchrechnung die Aufgabe vier verschiedene Brüche in aufsteigender Folge zu sortieren. Klarer Fall "kleinstes gemeinsames Vielfache" suchen und entsprechend erweitern und dann vergleichen.....
Aber für die Nenner mit 35,...
15.09.2008 15:29:00
Thread-ID: 1009809
3 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
2
7
14
9
2
5
5
11
1
2
4
5
4
2
2
1
8
7
9
3
3
6
15
2
5