gibt es auch eine Möglichkeit zu prüfen ob ein Bild angewählt ist z.B.
If ActiveSheet.Shapes("Picture 41").Select Then
MsgBox "TEST"
Else
MsgBox "Nix ausgewählt"
End If
Vielen Dank im voraus für eure Hilfe!
MFG Jens
If TypeName(Selection) = "Picture" Then
if Selection.name = "Picture 41" then
MsgBox Selection.Name
end if
End If
If TypeName(Selection) = "Picture" Then
If Selection.Name = "Picture 41" Then
MsgBox "TEST"
Else
MsgBox "ausgewählt wude " & Selection.Name
End If
End If
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen