ich habe eine Tabelle(Überblick) mit Passfotos; diese sind benamt mit Ziffern von 1 bis 23.
In einer weiteren Tabelle (Bilder) dieser Mappe sind die Bilder mit Daten hinterlegt.
Nun möchte ich die Bilder in der Tabelle Überblick abfragen und mit denen in der Bildertabelle abgleichen - funzt auch.
Gibt es eine Übereinstimmung, dann möchte ich allerdings auf die Bidler der Tabelle Überblick einen Hyperlink setzen... und genau hier halt es bei mir...
Dim objShape As Shape
For Each objShape In Worksheets("Überblick").Shapes
If IsNumeric(objShape.Name) Then
For I = 3 To Worksheets("Bilder").UsedRange.Rows.Count
If Worksheets("Bilder").Cells(I, 2) = objShape.Name Then
dummy = Worksheets("Bilder").Cells(I, 4)
Exit For
End If
Next I
objShape.Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:=Worksheets(dummy), ScreenTip:=" _
Hier gelangen Sie Einzelübersicht"
End If
Next
Die Meldung bei der Zeile mit dem Hyperlink ist simpel: Typen unverträglichWas mache ich falsch?
Danke
Jack