Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 17:18:47
Große Datenmenge in komplexes Diagramm verpacken
26.04.2024 16:22:47
Aktualisierung Verknüpfung bei geschlossener Quelldatei
26.04.2024 16:05:28
PivotChart-Stapeldiagramm erstellen
26.04.2024 15:34:42
Überlagernde Textbox-Ansicht
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
864to868
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
864to868
864to868
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Worksheet_Change startet nicht (Bilder einblenden)

Worksheet_Change startet nicht (Bilder einblenden)
23.04.2007 17:21:00
Ralph
Hallo Excel/ Vba Gemeinde,
ich habe mir folgenden code gebastelt um verscheiden Bilder ein und ausblenden zulassen.
Und lasse aus einem anderen Worsheet die Zelle BB1 mit den Zahlen 1 bis 8 Füllen.
Allerdings startet das Change ereigniss nicht. Wenn ich manuell die Zahlen in BB1 eintrage funktionierts.

Private Sub Worksheet_Change(ByVal Target As range)
If range("BB1").Value = 1 Then
ActiveSheet.Pictures("Bild 1").Visible = True
Else
ActiveSheet.Pictures("Bild 1").Visible = False
End If
If range("BB1").Value = "2" Then
ActiveSheet.Pictures("Bild 2").Visible = True
Else
ActiveSheet.Pictures("Bild 2").Visible = False
End If
If range("BB1").Value = 3 Then
ActiveSheet.Pictures("Bild 3").Visible = True
Else
ActiveSheet.Pictures("Bild 3").Visible = False
End If
If range("BB1").Value = 4 Then
ActiveSheet.Pictures("Bild 4").Visible = True
Else
ActiveSheet.Pictures("Bild 4").Visible = False
End If
If range("BB1").Value = 5 Then
ActiveSheet.Pictures("Bild 5").Visible = True
Else
ActiveSheet.Pictures("Bild 5").Visible = False
End If
If range("BB1").Value = 6 Then
ActiveSheet.Pictures("Bild 6").Visible = True
Else
ActiveSheet.Pictures("Bild 6").Visible = False
End If
If range("BB1").Value = 7 Then
ActiveSheet.Pictures("Bild 7").Visible = True
Else
ActiveSheet.Pictures("Bild 7").Visible = False
End If
End Sub


Vielleicht kann mir jemand helfen.!?
Beste Dank im Voraus
Ralph

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Worksheet_Change startet nicht (Bilder einblenden)
23.04.2007 17:24:00
Andi
Hi,
Und lasse aus einem anderen Worsheet die Zelle BB1 mit den Zahlen 1 bis 8 Füllen.
Wie lässt Du die Zelle befüllen? Mit einer Formel? Dann wird nicht das Change-Ereignis ausgelöst, sondern das Calculate-Ereignis.
Schönen Gruß,
Andi

AW: Worksheet_Change startet nicht (Bilder einblenden)
23.04.2007 17:27:00
Ralph
Hallo Andi,
ja mit ner Formel bzw. mit
='EINGABEMASKE VQC2000'!AI13
hier ist ein Dropdown Menu das sich ständig ändert.
Wie kann ich die Bilder sonst einbelenden?
Danke
Gruss
Ralph

AW: Worksheet_Change startet nicht (Bilder einblenden)
23.04.2007 17:35:00
Andi
Hi,
wie gesagt, indem Du das Calculate-Ereignis verwendest statt des Change-Ereignisses.
Schönen Gruß,
Andi

Anzeige
AW: Worksheet_Change startet nicht (Bilder einblenden)
23.04.2007 18:07:00
Ralph
Hi,
und wie mach ich das ?
Bin doch absolut Ahnungslos!
DANKE
Ralph

AW: Worksheet_Change startet nicht (Bilder einblenden)
23.04.2007 18:29:00
Andi
Hi,
indem Du im VB-Editor im rechten Drop-Down-Menü das Calculate-Ereignis auswählst, und Deinen Code dort hineinkopierst. Natürlich ohne die Zeilen

Private Sub Worksheet_Change(ByVal Target As Range)
 und End Sub


Schönen Gruß,
Andi

AW: Worksheet_Change startet nicht (Bilder einblenden)
25.04.2007 17:42:00
Ralph
Hallo Andi,
ich habe es so gemacht: - Allerdings ohne erfolg.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Calculate
If Range("BB1").Value = 1 Then
ActiveSheet.Pictures("Bild 1").Visible = True
Else
ActiveSheet.Pictures("Bild 1").Visible = False
End If
If Range("BB1").Value = 2 Then
ActiveSheet.Pictures("Bild 2").Visible = True
Else
ActiveSheet.Pictures("Bild 2").Visible = False
End If
If Range("BB1").Value = 3 Then
ActiveSheet.Pictures("Bild 3").Visible = True
Else
ActiveSheet.Pictures("Bild 3").Visible = False
End If
If Range("BB1").Value = 4 Then
ActiveSheet.Pictures("Bild 4").Visible = True
Else
ActiveSheet.Pictures("Bild 4").Visible = False
End If
If Range("BB1").Value = 5 Then
ActiveSheet.Pictures("Bild 5").Visible = True
Else
ActiveSheet.Pictures("Bild 5").Visible = False
End If
If Range("BB1").Value = 6 Then
ActiveSheet.Pictures("Bild 6").Visible = True
Else
ActiveSheet.Pictures("Bild 6").Visible = False
End If
If Range("BB1").Value = 7 Then
ActiveSheet.Pictures("Bild 7").Visible = True
Else
ActiveSheet.Pictures("Bild 7").Visible = False
End If
End Sub


Was mach ich falsch?
DANKE
Ralph

Anzeige
AW: Worksheet_Change startet nicht (Bilder einblenden)
25.04.2007 19:35:00
Kurt 

Private Sub Worksheet_Calculate()
Dim b As Byte
For b = 1 To 7
Me.Shapes("Bild " & b).Visible = False
Next
Select Case [bb1]
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
End Select
End Sub


mfg Kurt

AW: Worksheet_Change startet nicht (Bilder einblenden)
26.04.2007 10:05:00
Ralph
Hallo Kurt,
danke für deine Antwort.
Funktioniert einwandfrei.
DANKE!
Ralph
Anzeige

306 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