Mein Anliegen, ich habe 3 Label in meiner Tabelle1 welche ich auf eine Auswahl prüfen möchte.
Wenn ich es wie unten im Code angezeigt umsetzen möchte, wird geprüft ob jedes Label gewählt wurde, ich möchte aber prüfen ob eins von dreien ausgewählt wurde.
Dim obj As Shape, i%
For i = 1 To 3
Set obj = Sheets(1).Shapes("Label" & i)
If obj.DrawingObject.Object.Caption = Chr(163) Then
MsgBox "Keine Auswahl getroffen"
Exit Sub
End If
Next i
If obj.DrawingObject.Object.Caption = "R" Then 'gehts weiter
Hat hierzu jemand eine Idee wie die Prüfung erfolgen könnte?
vielen Dank für Eure Hilfe
LG Lisa