suche einen Vba Code mit dem es mir Möglich ist, ein Bild in einen Tab1 einzufügen bei D57 in abhängikeit wlcher Name in P8 gerade steht. Die Bilder sind in der gleichen Datei wie Tab1.
Gibt es da eine oder mehrere Möglichkeiten?
Gruß Pitt54
'http://www.office-loesung.de/ftopic474117_0_0_asc.php
Option Explicit
Const strExt As String = ".jpg"
Private Sub Worksheet_Change(ByVal Target As Range)
Dim strFileName As String
If Target.Count > 1 Then Exit Sub
'ab hier die Eingabezelle ändern
If Not Intersect(Target, Range("P8")) Is Nothing Then
strFileName = ThisWorkbook.Path & "\" & Target.Text & strExt
If Dir(strFileName) "" Then
With ActiveSheet.Shapes.AddPicture(strFileName, _
True, True, 0, 0, 100, 100) 'Größe anpassen
.Left = Range("D57").Left
.Top = Range("D57").Top
.Name = "picture"
End With
End If
End If
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
Dim strFileName As String
On Error Resume Next
Me.Shapes("picture").Delete
On Error GoTo 0
If Target.Count > 1 Then Exit Sub
Application.EnableEvents = False
If Not Intersect(Target, Range("P8")) Is Nothing Then
strFileName = ThisWorkbook.Path & "\" & Target.Text & strExt
If Dir(strFileName) "" Then
With ActiveSheet.Shapes.AddPicture(strFileName, _
True, True, 0, 0, 100, 35) 'ist in etwa die Größe
.Left = Range("D57").Left
.Top = Range("D57").Top
.Name = "picture"
End With
End If
End If
Application.EnableEvents = True
End Sub
Matze
=INDEX(Tabelle2!F:F;R8) & " " & INDEX(Tabelle2!G:G;R8)