Live-Forum - Die aktuellen Beiträge
Datum
Titel
23.04.2024 12:57:21
Makro für aktuell geöffn. Datei mit gleichen Namen speichern
23.04.2024 12:37:19
gew. Mittelwert Spalten mit Text ignorieren
23.04.2024 12:29:20
VBA nur Zeilen mit bestimmten Eintrag selektieren
23.04.2024 11:26:57
Probleme mit tbl.Listrows.add
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
772to776
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
772to776
772to776
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Bild in Abhängigkeit von Zelleintrag einfügen

Bild in Abhängigkeit von Zelleintrag einfügen
22.06.2006 15:12:29
Zelleintrag
Hallo Forum,
ich bitte um Unterstützung bei der Verwirklichung von folgendem Vorhaben:
ich möchte in der "Tabelle2" eine Grafik einfügen und dies in der Größe des (Zell-)Bereichs O7:T17. Welche Grafik eingefügt wird, soll davon abhängig sein, ob und ggf. welche Zahl in der "Tabelle1" in der Zelle "C27" eingetragen ist.
Wenn in der Zelle "C7" (in Tabelle1) die Zahl 1 steht (oder wenn diese Zelle leer ist) soll die Grafik "Bild1.bmp" eingefügt werden, beim Eintrag "2" entsprechend die Grafik "Bild2.bmp", bei Eintrag "3" die Grafik "Bild3.bmp" usw. Die Bilder befinden sich im Verzeichnis C:\Bilder. In diesem Verzeichnis befinden sich die Grafiken "Bild1.bmp" bis "Bild5.bmp".
Vielen Dank für eure Mühen.
Gruß
Fritz

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

Betreff
Datum
Anwender
Anzeige
AW: Bild in Abhängigkeit von Zelleintrag einfügen
22.06.2006 15:26:41
Zelleintrag
Hallo Fritz,
hier ein Auszug aus einer Lagerdatei.
Bild wird in Abhängigkeit von Cursor angezeigt.
Die Bilder haben bei mir den Namen DREAG+Nr.
Die Nummer ist in Spalte A.
Die Bilder sind im Unterpfad "Bilder", die Exceldatei ist im Hauptpfad.
Vieleicht hilft Dir das schon weiter.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Row < 6 Then Exit Sub
If Cells(Target.Row, 1) = "" Then Exit Sub
Dim pos
Dim pfad As String
pfad = Cells(1, 2)
pos = Cells(ActiveWindow.ScrollRow, 1).Top
Image1.Top = pos
Dim nummer As String
nummer = Cells(Target.Row, 1)
Image1.Picture = LoadPicture(pfad & "Bilder\" & "DREAG" & nummer & ".jpg")
Sheets("Bild").Image2.Picture = LoadPicture(pfad & "Bilder\" & "DREAG" & nummer & ".jpg")
End Sub

Gruss
Frank
Anzeige
AW: Bild in Abhängigkeit von Zelleintrag einfügen
22.06.2006 15:34:28
Zelleintrag
Hallo Frank,
vielen Dank für Deine prompte Unterstützung.
Ich bin allerdings wohl alleine überfordert, um den Code meinen Wünschen entsprechend anzupassen. Vielleicht kann mir dabei jemand noch helfen. Meine VBA-Kenntnisse reichen einfach nicht aus.
Gruß
Fritz
AW: Bild in Abhängigkeit von Zelleintrag einfügen
22.06.2006 20:15:21
Zelleintrag
Bei C:\Eigene Datei\Bilder ist der Unterpfad,hier sind die Bilder
Bei C:\Eigene Datei ,hier muß deine Mappe?.xls sein.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Row < 6 Then Exit Sub
If Cells(Target.Row, 1) = "" Then Exit Sub
Dim pos
Dim pfad As String
pfad = Cells(1, 2)
pos = Cells(ActiveWindow.ScrollRow, 1).Top
Image1.Top = pos
Dim nummer As String
nummer = Cells(Target.Row, 1)
Image1.Picture = LoadPicture(pfad & "Bilder\" & "DREAG" & nummer & ".bmp")
Sheets("Bild").Image2.Picture = LoadPicture(pfad & "Bilder\" & "DREAG" & nummer & ".bmp")
End Sub

Das müßte Dir aber helfen.
Gruß Emi
Anzeige
AW: Bild in Abhängigkeit von Zelleintrag einfügen
22.06.2006 20:40:02
Zelleintrag
Hallo Emi,
zunächst vielen Dank, dass Du versuchst mir zu helfen.
Allerdings komm ich mit diesem Code auch nicht zu der Lösung, die ich eigentlich anstrebte.
Unter anderen wollte ich auch die Grafiken in der Größe an einen bestimmten Zellbereich anpassen!
Vielleicht kannst Du oder ein anderer VBA-Spezialist mir v.a. in diesem Punkt noch weiterhelfen!
Gruß
Fritz
AW: Bild in Abhängigkeit von Zelleintrag einfügen
24.06.2006 07:59:41
Zelleintrag
Hallo Fritz,
Du hast ja nun ein paar Schritte im VBA kennengelernt. Für die Größen gibt es auch Angaben wie Height, Width und die Position resultiert aus Top (hast Du schon im code) und Left. Zeichne mal den code auf wenn Du das Bild anpasst und die Abhängigkeit von der Zellposition setzt.

Hoffe geholfen zu haben
Grüße von André aus Gera - Excel-97-2003

Anzeige

309 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
VBA: Bild an Zelle anhängen
Franz

Hallo Fachleute,
kann man ein Bild per VBA an eine bestimmte Zelle anhängen?
So kann ich ein Bild verschieben:
ActiveSheet.Shapes("Picture 3").IncrementLeft 50
ActiveSheet.Shapes("Picture 3").IncrementTop 50
Es soll aber bei Auftreten eines bestimmten Change-Ereignisses an d...
28.10.2008 11:53:00
Thread-ID: 1019873
3 Beiträge
Bild von Zelle in Zelle verlinken
Zelle

Hi Leute
Ich habe in Tabelle1 Zelle A1 einen Text, und danach habe ich in die Zelle ein Bild eingefügt
Nun möchte ich die gesamte Zelle A1 (Bild und Text) in Zelle Z17 haben.
Bei normalen Texten geht es ja mit =A1 (wenn ich in Zelle Z17 stehe)
Gibt es diesen Befehl auch für mein...
04.11.2008 16:19:07
Thread-ID: 1021687
4 Beiträge
Anzeige
Bild in Zelle einfügen
ray

Hallo,
hallo, ich möchte in einer Zelle ein Bildanzeigen/einfügen. Es liegt aber vor allen Zellen.
Viele Grüße aus dem schneeweißen Hamburg
Ray
21.11.2008 08:25:00
Thread-ID: 1026601
9 Beiträge
Fotogrösse an Zellen anpassen per Makro
Florian

Hi,
habe eine Makro die .bmp-Dateien in ein Worksheet importiert. Leider ist die Grösse jrdesmal unterschiedlich. Kann ich die Bildgrösse eindeutig an den Zellrändern ausrichten (also z.B. Bild immer von Range "B2 - C5" (Äquivalent dem Benutzen der Alt-taste manuell)?
Danke,
Gruss F...
25.02.2009 15:16:42
Thread-ID: 1053991
4 Beiträge
Userform automatisch an Bildschirmgröße anpassen
Krügner

Hallo,
könnt Ihr mir bitte noch einmal helfen. Ich bin blutiger VBA-Laie. Ich habe eine Userform kreiert. Sie soll auf verschiedenen Bildschirmen (17, 15, 19 Zoll) angewendet werden. Wie bekomme ich eine automatische Anpassung auf die verschiedenen Bildschirmgrößen und Auflösungen hin. Vers...
18.03.2009 09:02:15
Thread-ID: 1061275
4 Beiträge
Internetbild in Zelle anzeigen
stef@n

Hallo zusammen
bin auf der Suche nach einer Möglichkeit, ein Bild aus dem Internet in einer Zelle anzeigen zu lassen.
Ich habe es mit einem Hyperlink probiert z.b.
src="http: //www.google.de/intl/de_de/images/logo.gif" />
(Leerzeichen nach http: damit das Logo hier im Thre...
21.05.2009 15:50:09
Thread-ID: 1076569
9 Beiträge
Zelleinhalt mittels VBA in Programm einfügen
marspoki

Hallo,
ich möchte mittels VB in einem externen Programm eine Bummer einfügen.
mein Code sieht zur Zeit so aus.
Private Sub Form_Load() AnwID = Shell("notepad.exe", 1) SendKeys "TTTTTTTTT", True End Sub
Jetzt werden ja die TTTTTTTTT eingefügt.
Das funktioniert auch gut.
29.06.2009 16:47:14
Thread-ID: 1085187
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
3
2
3
3
8
3
3
8
2
2
4
3
6
11
9
7
7
5
3
3
1
3
4
7