Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.09.2025 10:29:46
Wert aus einer Zelle bei jeder Eingabe in neue Zelle
26.09.2025 08:51:00
Teilinhalt einer Zelle vergleichen
25.09.2025 23:04:12
Einen von drei möglichen Einträgen in einer Zeile suchen
25.09.2025 19:59:48
Lebenserleichternde Datei, im Bezug auf die Essensauswahl
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
1744to1748
1744to1748
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Bilder mit VBA in Excel darstellen

Forumthread: Bilder mit VBA in Excel darstellen

Bilder mit VBA in Excel darstellen
05.03.2020 13:13:12
Wolfgang
Hallo zusammen.
Ich hoffe, dass mir - als absoluter Anfänger bei VBA - hier weitergeholfen werden kann.
Folgendes Problem:
Ich würde gerne einen Steckbrief einer Immobilie erstellen. Neben den Daten wie Laufzeit, Miete, usw. soll ein Luftbilder der Immobilie angezeigt, welches ich vorher auf dem Server abspeicher. Jede Immobilie ist durch eine 6-stellige Ziffer eindeutig zu erkennen. Die Bilder heißen genau wie die Immobilie. D.H: Bei Immobilie 123456 heußt die Bilddatei 123456.png.
Jetzt hätte ich gerne, dass wenn ich die Zeile B1 die 6-stellige Ziffer der Immobilie eintragen, das entsprechende Bild der Immobilie daneben erscheint. Wenn ich eine neue Ziffer eingebe, soll das alte Bild verschwinden und das neue angezeigt werden.
Bildorder: C:\Users\wsteinha\Desktop
Ich würde mich freuen, wenn mir jemand weiterhelfen kann. Ich konnte auch nach langer Suche im Netz keinen passenden Text für ein Makro gefinden.
Vielen Dank vorab.
Wolfgang
Anzeige

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Bilder mit VBA in Excel darstellen
05.03.2020 13:30:04
Joachim
Hallo,
ich hab ein ähnliches Problem wie folgt gelöst:
In dem Register, in dem Du das Bild haben willst fügst Du mit der Kamera ein Bild von deinem Bild ein. Dann hab ich über VBA den Bereich, den das Bild darstellt auf den Bereich gesetzt, in dem das Bild ist, das ich haben will. Setzt aber voraus, dass Du alle Bilder in die Exceldatei lädst.
Ansonsten würde ich mir den Makrorecorder nehmen, das Laden eines Bildes aufzeichnen und den Code dann so abändern, dass VBA das passende Bild lädt.
Hoffe das hilft Dir
Gruß
Anzeige
AW: Bilder mit VBA in Excel darstellen
05.03.2020 13:59:46
Wolfgang
Vielen Dank für die schnelle Rückmeldung.
Die erste Idee hilft mir leider nicht. Es sind meherere hundert Immobilien und entsprechend viele Bilder.
Der zweite Weg, den du genannt hast, wäre der, den ich mir vorstelle. Ich hatte die Hoffnung, dass jemand auf die schnelle einen entsprechenden Text kennt. Ich hatte mit dem Makrorecorder versucht, habe es dann aber nicht die Abhängigkeit zu der Zelle herzustellen :(
Viele Grüße
Anzeige
AW: Bilder mit VBA in Excel darstellen
05.03.2020 13:58:20
JoWE
Hallo Wolfgang,
hier ein Beispiel, Du musst die Pfadangaben noch anpassen.
Ich habe es mit "jpg's" getestet. 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim myPath As String, myPic As String
Dim shp As Shape
For Each shp In ActiveSheet.Shapes
shp.Delete
Next shp
myPath = "C:\myPath\trainings\"
If Target.Column = 2 And Target.Value  "" Then
On Error GoTo 0
myPic = myPath & Range(Target.Address).Value
With ActiveSheet.Pictures.Insert(myPic)
.Left = 150
.Top = 80
'.Width = 123
'.Height = 134
End With
End If
End Sub

Gruß
Jochen
Anzeige
@JoWe: Range(Target.Address)
05.03.2020 16:58:28
Rudi
Hallo,
wozu erst die Adresse eines Ranges ermitteln, um dann daraus einen Range zu erstellen?
myPic = myPath & Target.Value
reicht völlig aus. Selbst .Value kannst du dir sparen. 
myPic = myPath & Target
Und warum SelectionChange?
Außerdem bezieht sich dein Code auf alle Zellen in B
Private Sub Worksheet_Change(ByVal Target As Range)
Dim myPath As String, myPic As String
Dim shp As Shape
myPath = "C:\Users\wsteinha\Desktop\"
If Target.Address = "$B$1" Then 'geänderte Zelle ist B1
If Target  "" Then          'nicht leer
'Bild in C1 löschen
For Each shp In ActiveSheet.Shapes
If shp.TopLeftCell.Address = "$C$1" Then
shp.Delete
End If
Next shp
myPic = myPath & Target & ".png"
If Len(Dir(myPic)) Then 'Bild ist vorhanden
With ActiveSheet.Pictures.Insert(myPic)
.Left = Range("C1").Left
.Top = Range("C1").Top
'.Width = 123
'.Height = 134
End With
Else
MsgBox "Bild nicht vorhanden", , "Gebe bekannt..."
End If
End If
End If
End Sub
Gruß
Rudi
Anzeige
ja so geht's auch - war ne heiße Nadel...
05.03.2020 17:09:34
JoWE
...so zwischendurch gehudelt :-)
Gruß
Jochen
AW: ja so geht's auch - war ne heiße Nadel...
06.03.2020 11:06:13
Wolfgang
Das ist ja der Knaller. @ Rudi: es funktioniert einwandfrei. Vielen herzlichen Dank für eure Hilfe. Ihr seid echt der Knaller.
Schönes Wochenende.
Wolfgang
;

Forumthreads zu verwandten Themen

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
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
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
Excel Diagramm, Schraffur in den Hintergrund
konti83

Hallo zusammen,
ich möchte gerne eine rechteckige Schraffur von Hand in mein Excel-Diagramm zeichnen. Das funktioniert auch erstmal. Leider bekomme ich die Schraffur nicht in den Hintergrund, so dass die Kurven weiterhin gut sichtbar bleiben. Kann mir da jemand helfen?
Hier das Problem:...
02.12.2009 11:27:32
Thread-ID: 1121344
6 Beiträge
Anzeige
Bild im sichtbaren Bereich einblenden
Stefan

Hallo zusammen,
ich habe mir als Hilfefunktion ein Hardcopy der aktuellen Tabelle gemacht, mit entsprechenden Infos versehen (wofür die Buttons sind usw.) und dieses als .jpg in die Tabelle eingebunden. Mit ActiveSheet.Shapes("Picture 380").Visible = True kann ich das Bild nun bei Druck auf...
12.04.2010 14:39:35
Thread-ID: 1151200
7 Beiträge
zellgroße an bildgröße anpassen
Karel

Hallo Forum,
ist es möglich das wenn ein bild in Spalte A eigefügt wird diese Zelle sich automatisch anpasst an der vorgebenen bildgröße " With ActiveSheet.Shapes.AddPicture(StBild, True, True, RaZelle.Offset(0, -1).Left, _
RaZelle.Offset(0, -1).Top, 140, 140)" ?
Wenn kein bild d...
22.07.2010 12:27:42
Thread-ID: 1168307
11 Beiträge
Anzeige
Bild in UF im Hintergrund
Heinz

Mahlzeit im Forum
Kann man ein Image in einer UF im Hintergrund einfügen?
Es sollten alle Text+ComboBoxen im Vordergrund bleiben.
Wenn Ja,wie bitte.
Gruß
Heinz
14.01.2011 12:07:19
Thread-ID: 1195642
8 Beiträge
Webbrowser Control-Element in den Hintergrund
Malte

Hallo,
ich habe ein "Webbrowser Control"- Element [WBC] auf einem Excelsheet untergebracht, über VBA wird jetzt eine bestimmte Internetseite angesteuert und in diesem Element dargestellt.
Da sich das ganze jedoch optisch nicht sehr gut in das Gesamtsheet einfügt, würde ich gerne Teile v...
15.02.2011 16:01:28
Thread-ID: 1200943
4 Beiträge
Anzeige
Frame verschwindet in den Hintergrund
abu

Hallo zusammen,
habe mal wieder ein Problem das ich nicht geloest bekomme und hoffe ihr koennt mir helfen.
Ich habe eine UserForm die zwischen verschieden Ansichten wechselt. Dabei werden Steuerelemente aus- bzw eingeblendet die Teilweise uebereinander liegen.
In meiner UserForm lie...
19.03.2011 02:50:43
Thread-ID: 1206108
2 Beiträge
Bild in Zelle einsetzen
Hubert

Hallo erstmalHabe folgendes Problem .Wenn in Zelle A1 die Zahl 100 eingegeben wird, soll in Zelle A3 ein Bild ( 100.jpg ) von Festplatte C:\ eingefügt und angezeigt werden.Höhrt sich vielleicht einfach an , stellt mich aber vor ein unlösbares Problem .Gruß und Danke im Vorraus.
15.05.2002 02:56:43
Thread-ID: 120897
3 Beiträge
Formular (AutoForm) in den Hintergrund
Mandy

Hallo,
ich habe eine Mappe, da öffne ich mit einem Button eine kleine AutoForm.
Solange ich das Formular offen habe, komme ich nicht mehr an meine Tabelle, muss das Formular also vorher schliessen und ggf. wieder öffnen.
Gibt es in der AutForm eine Eigenschaft, die es erlaubt, wenn...
07.06.2011 12:13:26
Thread-ID: 1217555
2 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