ich möchte gerne prüfen ob das Label gefüllt ist.
Wenn es mit einem Hyperlink gefüllt ist, dann soll der geöffnet werden.
Wenn das Label keinen Hyperlink hat, dann soll eine MsgBox erscheinen.
Ich habe mir diesen Code zusammengesucht:
Private Sub Lbl_KartonEtikett_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
On Error GoTo Fehler
If Lbl_KartonEtikett "" Then
ActiveWorkbook.FollowHyperlink Address:=Lbl_KartonEtikett.Caption, NewWindow:=True
End If
Fehler:
MsgBox "Kein Link vorhanden?" & Chr(10) & Chr(10) & "Soll ein Etikett hinzugefügt werden?" & _
Chr(10) & Chr(10) & "Dann auf NEUER LINK klicken"
End Sub
Leider funktioniert der nicht so wie er soll.Wenn ein Hyperlink in dem Label steht wird dieser geöffnet. Nachdem schließen kommt dann trotzdem die MsgBox.
Ich hoffe es kann mir jm helfen.
Danke