Bilder mit VBA in Excel darstellen

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

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

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

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

Beliebteste Forumthreads (12 Monate)

Bilder mit VBA in Excel darstellen

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

162 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Bilder mit VBA in Excel darstellen

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

162 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread