Prüfen ob Label gefüllt und Fehlermeldung
12.08.2015 11:09:30
Christian
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
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
Anzeige