mal eine Frage:
Ich würde gerne wenn eine bestimmte Zelle einen bestimmten Wert aufweist in einer anderen Zelle statt eines Wertes eine Grafik anzeigen lassen.
Geht sowas denn ? Hier bin ich leider überfragt.
Danke schon mal,
Lg, Verena
Sub BilderKommentar()
Dim x%, oComm As Comment, sPfad$, iEnde%
iEnde = ActiveCell.SpecialCells(xlLastCell).Row
For x = 0 To iEnde - 1
'Für Spalte A, Zeile 1 bis zur letzten
Range("A" & x + 1).ClearComments
sPfad = Range("A" & x + 1) 'Hier müßte z.Bsp. stehen: C:\Bilder\MeinBild.jpg
' Kommentar einfügen
Set oComm = ActiveSheet.Range("A" & x + 1).AddComment
With oComm
.Shape.Fill.UserPicture sPfad
.Shape.Height = 150 'oder wie groß auch immer...
.Shape.Width = .Shape.Height * 0.75
End With
Next x
End Sub