VBA Bilder kopieren und in ein anderes T
03.09.2022 17:36:16
Andreas
Ich möchte, wenn in Tabelle2 Saplte E eine zahl steht, das er dann ein dazugehöriges Bild mit dem angegebenen Pfad, dieses Bild dann in Tabelle1 auf der Position wie sie auf Tabelle2 in Spalte E steht wieder einfügt.
Bsp.: Zahl steht in Tabelle2 / E 15
Dann soll er das Bild auf Tabelle1 auch in E15 einfügen.
Mein Ansatz war bisher dieser:
Sub Bilder_einfügen()
Dim Bildpfad As String
Dim rngSuchWert As Range
With Sheets("Tabelle2")
Set rngSuchWert = .Columns(6).Find(Sheets("Tabelle2").Cells(15, 1))
If Not rngSuchWert Is Nothing Then
Range(.Cells(rngSuchWert.Row, 5), .Cells(rngSuchWert.Row + 0, 5)).Copy
Sheets ("Tabelle2")
With Tabelle2.Pictures.Insert(D : DokumenteDokumenteBilderBilder01 -Test.jpg)
End With
.Height = 85 'Tabelle1.Range("G2").Height
.Name = "Test"
End If
End With
End Sub