Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema MsgBox
BildScreenshot zu MsgBox MsgBox-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema CommandButton
BildScreenshot zu CommandButton CommandButton-Seite mit Beispielarbeitsmappe aufrufen

Webseite per Schaltbutton öffnen


Betrifft: Webseite per Schaltbutton öffnen von: Hans
Geschrieben am: 27.11.2017 11:25:28

Hallo Forum,
Meine Excel Tabelle bekommt ihre Daten über eine Verbindung zu einer Access Datenbank. Nun hab ich mit Hilfe von Sepp einen Schaltbutton erstellt der Outlook öffnen kann um eine E-Mail zu versenden.

Nun möchte ich, ebenfalls über einen Schaltbutton noch die Webseite des Kunden mit dem Standardbrowser öffnen.

Wie bekomme ich Excel dazu die Zelle "BE13" auf einen Eintrag zu einer Webseite zu überprüfen, gegebenenfalls eine Warnmeldung auszugeben (Keine Website angegeben; oder so) Und sonst die Webseite zu öffnen ?

Der Schaltbutton ist schon fertig, steht aber noch nichts drin

Private Sub CommandButton2_Click()

End Sub

  

Betrifft: AW: Webseite per Schaltbutton öffnen von: Nepumuk
Geschrieben am: 27.11.2017 11:53:42

Hallo Hans,

in Prinzip so:

Option Explicit

Private Sub CommandButton2_Click()
    If Not IsEmpty(Range("BE13").Value) Then
        If LinkStatusOK(Range("BE13").Value) Then
            Call ThisWorkbook.FollowHyperlink(Address:=Range("BE13").Value)
        Else
            Call MsgBox("Adresse nicht gefunden.", vbExclamation, "Hinweis")
        End If
    Else
        Call MsgBox("Keine Adresse angegeben.", vbExclamation, "Hinweis")
    End If
End Sub

Private Function LinkStatusOK(ByVal sURL As String) As Boolean
    Dim xmlhttp As Object
    Dim lngStatus As Long
    Set xmlhttp = CreateObject("Msxml2.XMLHTTP")
    On Error Resume Next
    xmlhttp.Open "GET", sURL, False
    xmlhttp.send
    lngStatus = xmlhttp.Status
    Set xmlhttp = Nothing
    On Error GoTo 0
    LinkStatusOK = lngStatus = 200
End Function

Gruß
Nepumuk


  

Betrifft: @ Nepumuk von: Hans
Geschrieben am: 27.11.2017 12:02:45

Hallo Nepumuk,
den ersten Teil des Makros in den Schaltbutton (denke ich)

und der Zweite Teil? (Diese Arbeitsmappe)


Hans


  

Betrifft: AW: @ Nepumuk von: Nepumuk
Geschrieben am: 27.11.2017 12:12:52

Hallo Hans,

alles in das Modul der Tabelle.

Außer du deklarierst die Funktion LinkStatusOK als Public, dann kannst du diese in einem Standardmodul ablegen.

Gruß
Nepumuk


  

Betrifft: AW: @ Nepumuk von: Hans
Geschrieben am: 27.11.2017 12:22:39

Hallo Nepumuk,
und genau da liegt mein Problem:
Der Schaltbutton liegt in der Mappe "Hauptseite" Ich weiß wirklich nicht wohin damit, wie kann ich feststellen welches Modul ich nehmen soll?




  

Betrifft: AW: @ Nepumuk von: Nepumuk
Geschrieben am: 27.11.2017 12:33:53

Hallo Hans,

alles in das Modul "Hauptseite".

Gruß
Nepumuk


  

Betrifft: Noch einmal nachgefragt: von: Hans
Geschrieben am: 27.11.2017 12:36:47

Hallo Nepumuk,
du meinst in "Tabelle 1" (Hauptseite)

Hans


  

Betrifft: AW: Noch einmal nachgefragt: von: Nepumuk
Geschrieben am: 27.11.2017 12:45:25

Hallo Hans,

warum probierst du es nicht einfach?

Gruß
Nepumuk


  

Betrifft: Hab ich gemacht; kommt eine Fehlermeldung von: Hans
Geschrieben am: 27.11.2017 13:01:23

Moin Nepumuk,
hab ich versucht, bekomme dann eine Fehlermeldung Syntaxfehler



Wie gestern bei Sepp, frag ich dich, ob du nicht das Makro einfügen kannst. Ich habe dann gestern ganz gut nachvollziehen können wo das Makro gelandet ist....

Vielen Dank

https://www.herber.de/bbs/user/117943.xlsm


  

Betrifft: AW: Hab ich gemacht; kommt eine Fehlermeldung von: Nepumuk
Geschrieben am: 27.11.2017 14:51:07

Hallo Hans,

ohne die Mappe kann ich dir nicht weiterhelfen.

Gruß
Nepumuk


  

Betrifft: Hier die Datei von: Hans
Geschrieben am: 27.11.2017 15:12:50

Hallo Nepumuk,
ich komme erst jetzt wieder dazu weiter zu machen....

Hier nochmal die Datei

Hans

https://www.herber.de/bbs/user/117946.xlsm


  

Betrifft: AW: Hier die Datei von: Nepumuk
Geschrieben am: 27.11.2017 15:31:29

Hallo Hans,

die geänderte Mappe: https://www.herber.de/bbs/user/117949.xlsm

Gruß
Nepumuk


  

Betrifft: Vielen Dank, einfach Perfekt von: Hans
Geschrieben am: 27.11.2017 15:42:21

Hallo Nepumuk,
einfach Super.... Prima

Vielen, vielen Dank dafür....

Manchmal bin ich ein Excel - Legastheniker (jeder fängt mal klein an)

Ich bewundere immer die Leute im Forum, mit was für erstaunliche Lösungen da geboten werden.

Danke

Hans


  

Betrifft: AW: Vielen Dank, einfach Perfekt von: Nepumuk
Geschrieben am: 27.11.2017 15:51:58

Hallo Hans,

auch ich hab mal klein angefangen.

Gruß
Nepumuk


Beiträge aus den Excel-Beispielen zum Thema "Webseite per Schaltbutton öffnen"