Prüfen ob Label gefüllt und Fehlermeldung

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
Label MsgBox
Bild

Betrifft: Prüfen ob Label gefüllt und Fehlermeldung
von: Christian
Geschrieben am: 12.08.2015 11:09:30

Hallo zusammen,
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

Bild

Betrifft: AW: Prüfen ob Label gefüllt und Fehlermeldung
von: ChrisL
Geschrieben am: 12.08.2015 11:29:47
Hi Christian
Ungetestet (Exit Sub einfügen):

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
Exit Sub
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
cu
Chris

Bild

Betrifft: AW: Prüfen ob Label gefüllt und Fehlermeldung
von: Christian
Geschrieben am: 12.08.2015 11:37:49
Danke Chris.
Jetzt wird die MsgBox nicht mehr angezeigt, wenn sich ein Hyperlink in dem Label befindet.
Wenn aber kein Hyperlink in dem Label ist, dann kommt die MsgBox aber nicht.
Ich habe schon mit den: <> und "" und = gespielt. Habe aber keine Lösung gefunden.
Vielleicht weißt und jm weiter.
Danke

Bild

Betrifft: If und Else - Hilfe lesen :-) owT
von: robert
Geschrieben am: 12.08.2015 12:04:29


Bild

Betrifft: AW: If und Else - Hilfe lesen :-) owT
von: Christian
Geschrieben am: 12.08.2015 12:18:47
Hallo zusammen,
ich habe es jetzt so gelöst:

Private Sub Lbl_KartonEtikett_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
     If Lbl_KartonEtikett <> "" Then
        ActiveWorkbook.FollowHyperlink Address:=Lbl_KartonEtikett.Caption, NewWindow:=True
    Else
  MsgBox "Kein Link vorhanden?" & Chr(10) & Chr(10) & "Soll ein Etikett hinzugefügt werden?" &  _
Chr(10) & Chr(10) & "Dann auf NEUER LINK klicken"
    End If
End Sub
Jetzt ist nur die Frage ob meine Lösung optimal ist?
Danke

Bild

Betrifft: Ja, wozu die Frage? owT
von: robert
Geschrieben am: 12.08.2015 13:28:53


Bild

Betrifft: AW: Ja, wozu die Frage? owT
von: Christian
Geschrieben am: 12.08.2015 13:31:05
Ich kenne mich im VBA nur etwas aus, deshalb wollte ich wissen ob der Code so ok ist.
Vorher war der Code ja etwas anders.
Danke

Bild

Betrifft: Na dann Beitrag zu.........owT
von: robert
Geschrieben am: 12.08.2015 13:40:49


Bild

Betrifft: AW: Na dann Beitrag zu.........owT
von: Christian
Geschrieben am: 12.08.2015 13:47:15
Danke Robert.

 Bild

Beiträge aus den Excel-Beispielen zum Thema "Prüfen ob Label gefüllt und Fehlermeldung"