Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 23:47:55
Datum ausweisen, wenn definierte Summe erreicht ist
25.04.2024 21:40:53
Excel Datenquelle aus dem Web mit Anmeldung?
25.04.2024 21:21:16
Zellkommentar in UserForm anzeigen und bearbeiten
25.04.2024 21:13:13
Kalenderwochen addieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1008to1012
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
1008to1012
1008to1012
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Wechselbild in der Tabelle

Wechselbild in der Tabelle
18.09.2008 19:50:12
WalterK
Hallo,
die angehängte Tabelle habe ich in der Recherche gefunden, mittels VBA wird ein Wechselbild gesteuert.
2 Fragen hätte ich dazu:
1.) Ich möchte 2 andere Bilder einfügen, wie kann ich diese dann mit dem Makro ansprechen, muss ich den Bildern Namen geben ....?
2.) Das Makro wird immer ausgelöst, wenn ich in B6 ja oder nein eingebe. Ich hätte gern, dass es funktioniert, wenn das ja oder nein über eine Formel geändert wird.
Besten Dank schon mal und Servus, Walter
https://www.herber.de/bbs/user/55508.xls

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

Betreff
Datum
Anwender
Anzeige
AW: Wechselbild in der Tabelle
18.09.2008 20:49:59
WalterK
Hallo,
Frage 1 hat sich erledigt, ich hatte die Namen im Code nicht geändert (peinlich)
Frage 2 ist noch offen
Servus, Walter
etwas ist hier noch falsch
18.09.2008 22:46:48
WalterK
Hallo,
Soweit bin ich gekommen, aber er läuft noch nicht:
Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = Sheets("Parameter").Range("$A$1") Then
Select Case Sheets("Tabelle1").Range("B6")
Case "ja"
Me.Shapes("pic_yes").Visible = True
Me.Shapes("pic_no").Visible = False
Case "nein"
Me.Shapes("pic_yes").Visible = False
Me.Shapes("pic_no").Visible = True
Case Else
Me.Shapes("pic_yes").Visible = False
Me.Shapes("pic_no").Visible = False
End Select
End If
End Sub


Der Code folgendes machen:
a.) starte immer dann, wenn im Blatt Parameter in Zelle A1 etwas eingegeben wurde
b.) prüfe, ob in Tabelle1 in Zelle B6 entweder "Ja", "Nein" oder nichts steht
c.) bei "Ja" zeige Bild 1, bei "Nein" zeige Bild 2, wenn Zelle B6 leer ist, dann zeige kein Bild
So ist es vielleicht verständlicher.
Servus, Walter

Anzeige
AW: etwas ist hier noch falsch
19.09.2008 08:58:00
Beverly
Hi Walter,
diesen Code im Codemodul des arbeitsblattes "Parameter"

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then
Select Case UCase(Target)
Case "JA"
Worksheets("Tabelle1").Pictures("pic_yes").Visible = True
Worksheets("Tabelle1").Pictures("pic_no").Visible = False
Case "NEIN"
Worksheets("Tabelle1").Pictures("pic_yes").Visible = False
Worksheets("Tabelle1").Pictures("pic_no").Visible = True
Case Else
Worksheets("Tabelle1").Pictures("pic_yes").Visible = False
Worksheets("Tabelle1").Pictures("pic_no").Visible = False
End Select
End If
End Sub



Anzeige
AW: etwas ist hier noch falsch
19.09.2008 09:56:18
WalterK
Hallo Karin,
es funktioniert noch nicht, vielleicht auch mein Fehler!
Es sollte so sein, dass das Makro nach dem Verlassen der Zelle A1 im Blatt Parameter aktiviert wird und dann prüft, ob in Zelle B6 im Blatt Tabelle1 über eine Formelberechnung "Ja" oder "Nein" oder nichts angeführt wird und dann entweder Bild1 oder Bild2 oder nichts anzeigt.
Im Code fehlt m.E. der Bezug zur Zelle B6 im Blatt Tabelle1?
Besten Dank für Deine Hilfe
und Servus, Walter
Arnbeitsmappe stimmt nicht mit Frage überein
19.09.2008 11:42:16
Beverly
Hi Walter,
aus deiner hoch geladenen Arbeitsmappe geht nicht hervor, aus welcher Formel sich der Wert in B6 ergibt. Deshalb musste ich annehmen, dass sich B6 der "Tabelle1" auf A1 von "Parameter" bezieht. In diesem Fall wäre kein Bezug auf B6 erforderlich gewesen. Die Fragestellung sollte schon mit dem Beispiel übereinstimmen.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then
Select Case Worksheets("Tabelle1").Range("B6")
Case "Ja"
Worksheets("Tabelle1").Pictures("pic_yes").Visible = True
Worksheets("Tabelle1").Pictures("pic_no").Visible = False
Case "Nein"
Worksheets("Tabelle1").Pictures("pic_yes").Visible = False
Worksheets("Tabelle1").Pictures("pic_no").Visible = True
Case Else
Worksheets("Tabelle1").Pictures("pic_yes").Visible = False
Worksheets("Tabelle1").Pictures("pic_no").Visible = False
End Select
End If
End Sub



Anzeige
AW: Arnbeitsmappe stimmt nicht mit Frage überein
19.09.2008 18:11:00
WalterK
Hallo Karin,
das tut mir leid, da hab ich Dich in die irre geführt.
Ich habe jetzt eine Mappe angehängt und darin beschrieben, durch was die Bilder gewechselt werden sollen.

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

Vielleicht kannst Du mir noch einmal behilflich sein.
Servus, Walter
AW: Arnbeitsmappe stimmt nicht mit Frage überein
20.09.2008 08:21:00
Beverly
Hi Werner,
vergleiche mal meine erste If-Zeile und deine.
Man kann das ganze allerdings auch ohne VBA lösen. Dazu verwendet man eine Bild (Image)-Steuerelement aus der Steuerelemente-Toolbox. Ich habe diese Möglichkeit mal in Zeile 24 dargestellt. Die eigentlichen Bilder befinden sich im Tabellenblatt "Bilder" und werden über den Wert in A2 dieses Tabellenblattes ausgewählt. Für dern Bilder-Bereich wurde ein Name definiert und dieser Name wurde dem Bild-Steuerelement zugewiesen.
https://www.herber.de/bbs/user/55536.xls

Anzeige
AW: klasse
20.09.2008 08:40:00
WalterK
Hallo Karin,
besten Dank, es funktioniert tadellos.
Servus, Walter

303 Forumthreads zu ähnlichen Themen

Zwei Spalten in jeweils zwei Tabellen miteinander
Lutz

Liebe Leute,
ich habe zwei recht umfangreiche Tabellen mit Lieferdaten und dies in zwei von einander unabhängigen Tabellen.
In der Tabelle1 stehen neben anderen die Spalten Bestellnr. und Materialnr. sowie Lieferantennr. In der Tabelle2 stehen wiederum die Spalten Bestellnr. und Materia...
08.08.2008 15:56:55
Thread-ID: 1000336
4 Beiträge
Anzeige
Tabelle mit Daten aus zweiter Tabelle ergänzen
Fritz_W

Hallo VBA-Experten,
die nachfolgend dargestellte Tabelle "Statistik" möchte ich entsprechend der Daten aus der Tabelle "Daten" Bereich E3:E52 jeweils wie nachfolgend beschrieben erweitern:
In der Tabelle "Daten" können im Bereich E3:E52 bis zu 50 Namen stehen.
Das Makro soll diese N...
19.08.2008 19:49:00
Thread-ID: 1003024
10 Beiträge
Zellinhalt aus anderer Tabelle übernehmen
Marc

Hallo zusammen,
habe ein Problem mit dem ich einfach nicht weiterkomme (wahrscheinlich für Euch kein Problem...!)
Ich möchte aus einer Tabelle Zellinhalte in eine andere Tabelle im gleichen Arbeitsblatt übernehmen, d.h. aus Tabelle 2 soll der Zellinhalt aus D61 in Tabelle 1 in H60 über...
21.08.2008 22:08:00
Thread-ID: 1003658
3 Beiträge
Anzeige
Kombinationsfelder mit Daten aus anderer Tabelle
Bernhard

Hallo liebe Freunde,
ich brauche wieder einmal Eure Hilfe beim Umstricken eines VBA Codes, den ich hier im Archiv gefunden habe.
Die Userform hat u.a. 2 Kombinationsfelder, die mit den Daten aus den Spalten B bzw. C gefüllt werden. Wenn ich die Auswahl in Kombi1 treffe, wird Kombi2 glei...
25.08.2008 15:48:18
Thread-ID: 1004492
8 Beiträge
Werte in anderes Tabellenblatt übertragen
Bibo

Hallo liebe EXCEL-Freunde,
ich habe in der Online-Suche leider kein Makro gefunden, das ich mit meinen minimalen VBA-Kenntnissen hätte selbständig auf meine Problematik anpassen können und bitte Euch deshalb um Eure Hilfe.
In das Tabellenblatt "Kommission" der Beispielmappe, das als Har...
31.08.2008 17:54:00
Thread-ID: 1006231
4 Beiträge
Wert aus Tabellenblättern in ein anderes Blatt übe
Heiderer

Hallo!
Folgende Ausgangssituation: Ich habe ein Excel-Sheet mit 4 Tabellenblättern. In Tabelle1 stehen all meine gesamten Produkte. In Tablle 2 – 4 stehen jeweils einzelne Produkte. Nun möchte ich, dass wenn ich einen Wert in der Tabelle 2 – 4 schreibe, dieser mir automatisch in die Tabelle...
11.09.2008 06:58:00
Thread-ID: 1008960
6 Beiträge
mehrer Tabellen aus wählen (Liste = Listox)
Rocky

Hallo Excelgemeinde,
ich möchte gerne verschiedene Tabellen blätter auswählen um diese zusammen in eine andere (neue) Datei zu kopieren. Die entsprechenden Tabellen werden in einer Listbox angezeigt.
so z.b (Leihenhaft)
sheets.array(Listbox1.list).copy
Danke für eure Hilfe
...
15.09.2008 12:23:27
Thread-ID: 1009754
5 Beiträge
2 Combobox in UF in Tabelle1 u. Daten in Tabelle 2
Bernhard

Guten Abend liebe Excelprofis,
ich komme nicht weiter, folgende Aufgabenstellung zu lösen:
Ich rufe in Tabelle 1 eine Userform auf, die 2 ComboBoxen hat. (ArtikelNr. ArtikelBezeichnung). In Tabelle 2 stehen in Spalte A die ArtikelNrn. und in Spalte B die ArtikelBezeichnungen untereinand...
17.09.2008 21:32:00
Thread-ID: 1010532
5 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
3
3
9
2
20
7
3
5
4
4
2
5
1
3
5
1
6
4
4
1
1
4
11
2
2