Moin moin,
ich benötige eure Hilfe. Mein VBA is nicht so toll und mit dem Macro-Rekorder komme ich da nicht hin.
Ich habe hier eine Tabelle mit diversen Bauteilen
Die Bauteile würde ich gerne beim anklicken in einer Zelle/Fenster anzeigen lassen. Dafür habe ich die Bauteile fotografiert und in Unterverzeichnis „Bilder“ abgelegt
Mein [Wunsch]-Gedanke geht da hin, das ich jeweils in der gleichen Zelle von Tabelle2 den Dateinamen [oder Pfad/Dateiname] platzieren möchte und diese Bild dann in Blatt 1 angezeigt wird.
Also
Klick auf Tabelle1!A2
Schaue nach Tabelle2!A2 nach Dateinamen.
Wenn vorhanden lade das Bild und zeige es in Tabelle1!M1 an.
Danke schon mal
Holger
Mein [Wunsch]-Gedanke geht da hin, das ich jeweils in der
gleichen Zelle von Tabelle2 den Dateinamen [oder
Pfad/Dateiname] platzieren möchte und diese Bild dann in Blatt
1 angezeigt wird.
Also
Klick auf Tabelle1!A2
Schaue nach Tabelle2!A2 nach Dateinamen.
Wenn vorhanden lade das Bild und zeige es in Tabelle1!M1 an.
Hallo Holger,
das Bild, soll das dann stehen bleiben wenn du z.B. auf tabelle1!A4 klickst oder etwas anderes tust?
Also tabelle1!A2 verläßt.
Gruß
Reinhard
das Bild, soll das dann stehen bleiben wenn du z.B. auf
tabelle1!A4 klickst oder etwas anderes tust?
Also tabelle1!A2 verläßt.
Gruß
Reinhard
Hallo Reinhard,
ja, das wäre der Wunsch:
Ist kein Link in tabelle2 vorhanden, dann passiert auch nichts bzw. das letzte Bild bleibt erhalten.
Danke Holger
das Bild, soll das dann stehen bleiben wenn du z.B. auf
tabelle1!A4 klickst oder etwas anderes tust?
Also tabelle1!A2 verläßt.
ja, das wäre der Wunsch:
Ist kein Link in tabelle2 vorhanden, dann passiert auch nichts
bzw. das letzte Bild bleibt erhalten.
Hallo Holger,
hab ich jetzt nicht verstanden, aber ist klar, ich peil laufend zum Fernseher *lach* da ist kaum die nötige Konzentration da 
Macht aber nix, geht ja erstmal darum das Bild anzuzeigen.
Vielleicht ist es eine gute Idee, du erzeugst ein jpg wo man halt sieht: „Es gibt noch kein Bild“ oder so.
Das Bild wird dann angezeigt wenns kein Bild gibt, oder man schreibts im Mx.
Probiere mal diesen Code, der gehört in das Modul von „tabelle1“:
In Tabelle2!Ax steht der reine Bildname ohne Pfad.
Option Explicit
'
Private Sub Worksheet\_SelectionChange(ByVal Target As Range)
Dim Bild As Object
Const Pfad As String = "C:\Test\" ' Anpassen
If Target.Cells.Count 1 Then Exit Sub
If Target.Column 1 Then Exit Sub
With Worksheets("Tabelle2")
If .Range(Target.Address).Value = "" Then Exit Sub
Set Bild = ActiveSheet.Pictures.Insert(Pfad & .Range(Target.Address).Value)
With Bild
.Top = Cells(Target.Row, 13).Top
.Left = Cells(Target.Row, 13).Left
.Height = Cells(Target.Row, 13).Height
.Width = Cells(Target.Row, 13).Width
End With
End With
End Sub
Gruß
Reinhard
Hallo Reinhard,
erst mal danke für deine Mühe.
Bin im Moment schon fast auf dem Weg zur Arbeit.
Komme also erst später zum testen.
Danke
Holger