Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
492to496
492to496
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

MsgBox wenn bei FollowHyperlink nicht online...

Forumthread: MsgBox wenn bei FollowHyperlink nicht online...

MsgBox wenn bei FollowHyperlink nicht online...
01.10.2004 18:30:55
oos
Hallo zusammen,
nach Anklicken eines Buttons öffne ich eine Website:

'ActiveWorkbook.FollowHyperlink Address:="http://www.xy.de", NewWindow:=True'

Wie kann ich nach Anklicken des Buttons eine Fehlermeldung abfangen, wenn ich beispielsweise nicht online bin?
Danke für eure Mühe und schönes WE.
Gruß
Niko
Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: MsgBox wenn bei FollowHyperlink nicht online...
01.10.2004 18:38:38
GraFri
Hallo
Damit überprüfst du, ob eine Online-Verbindung aktiv ist.


      
Option Explicit
Private Declare Function RasEnumConnections Lib "RasApi32.dll" _
        Alias "RasEnumConnectionsA" (lpRasCon As Any, lpcb As _
        Long, lpcConnections As Long) As Long
        
Private Declare Function RasGetConnectStatus Lib "RasApi32.dll" _
        Alias "RasGetConnectStatusA" (ByVal hRasCon As Long, _
        lpStatus As Any) As Long
Const RAS_MaxEntryName = 256
Const RAS_MaxDeviceType = 16
Const RAS_MaxDeviceName = 32
Private Type RASType
  dwSize As Long
  hRasCon As Long
  szEntryName(RAS_MaxEntryName) As Byte
  szDeviceType(RAS_MaxDeviceType) As Byte
  szDeviceName(RAS_MaxDeviceName) As Byte
End Type
Private Type RASStatusType
  dwSize As Long
  RasConnState As Long
  dwError As Long
  szDeviceType(RAS_MaxDeviceType) As Byte
  szDeviceName(RAS_MaxDeviceName) As Byte
End Type
Private Function DFÜStatus() As Boolean
  Dim RAS(255) As RASType, RASStatus As RASStatusType
  Dim lg&, lpcon&, Result&
Mit freundlichen Grüßen, GraFri
Anzeige
AW: MsgBox wenn bei FollowHyperlink nicht online...
Ulf
Dafür gibts die Funktion:
Public Declare Function InternetGetConnectedState _
Lib "wininet.dll" (lpdwFlags As Long, _
ByVal dwReserved As Long) As Boolean
da ist der ganze Code ein Einzeiler.
Ulf
danke für eure Tipps (oT)
oos
Hi
;

Forumthreads zu verwandten Themen

Kriterien in Query aus Exceltabelle
Joachim

Hallo zusammen,
ich hab heute entdeckt, dass ich mit dem Query direkt auf meine Oracle-DB komme. Mal wieder was neues gelernt.
Ich habe die Abfrage im Query mit Kriterien gebastelt und übergebe das Ergebnis nach Excel. Alles wunderschön. Nur sehr statisch.
Ich möchte aber per VBA:
20.11.2008 15:52:00
Thread-ID: 1026469
2 Beiträge
Öffnen einer xlt - Vorlage per Hyperlink
Alfons

Hallo Zusammen
Ich hab da ein Problem.
Ich hab ein Excel - Menue erstellt und möchte in diesem Menue Kollegen
xlt Vorlagen zur Verfügung stellen.
Auf einem Tabellenblatt öffnet sich die Vorlage wie gewollt, so dass beim Speichern
das "Speichern unter ...." Menue erscheint.<...
17.12.2008 09:31:00
Thread-ID: 1033522
3 Beiträge
Minisymbolleiste Excel 2007
Susanne

Hallo,
selbst wenn ich das Häkchen bei den Excel-Optionen aus mache, erscheint diese Minisymbolleiste bei einem Rechtsklick auf eine Markierung - zusätzlich zum herkömmlichen Rechtsklick-Menü. Wie wird man die los?
18.01.2009 05:50:00
Thread-ID: 1041046
7 Beiträge
Dateiinhalt mit Hyperlinks in Excel ausgeben
PaMa

Guten Tag zusammen
Ich hoffe, Ihr VBA - Profis könnt mich hier bei meiner aktuellen Problemstellung unterstützen.
Und zwar hab ich folgendes vor:
in einer Excel - Arbeitsmappe hab ich einen Knopf
Wenn ich auf diesen Knopf klicke so soll folgendes geschehen:
- Der Dateiinhalt...
23.01.2009 07:15:00
Thread-ID: 1042795
4 Beiträge
Anzeige
Zelladresse in Code mit - Syntaxfrage
Peter

Guten Tag
Innerhalb eines Codes füge ich eine neue Codezeile ein. Dabei gibt mir "Variante 1" für die Zeile 5 den richtigen Wert.
Nun möchte ich G5 ersetzen, damit in jeder Schlaufe der richtige Wert resultiert.
Anstatt G5 schreibe ich für G
[spName].column ' dies ergibt die Zah...
11.02.2009 08:54:00
Thread-ID: 1049441
7 Beiträge
Formel Textteilstring dynamisch extrahieren
Horst_H

Hallo,
seit Stunden probiere ich bislang leider ergebnislos eine Formel zu erstellen:
Quelle:
"S2001W.rar;http://www.netload.in/dateigTTIDfQowZ/S2001W.rar.htm;93.32
MB;0;12.02.2009"
Ergebnis soll sein der string zwischen dem 1. und dem 2. Semikolon, weil die Testlänge unters...
19.02.2009 13:50:00
Thread-ID: 1052127
6 Beiträge
Anzeige
Text:Hyperlink makro zuweisen
Tobias

Ahoi allerseits,
Ich möchte einem text ein sortierungs-makro zuweisen.
Ich könnte jetzt ein textfeld aufziehen, so gings mit rechtermaustaste-zuweisen ganz einfach
kann ich es aber auch direkt auf den text legen?
sozusagen ein hyperlink zum makro ?
besten dank,
tobias
23.02.2009 20:08:37
Thread-ID: 1053274
4 Beiträge
wieso geht das nicht?
reto

Private Sub Label18_Click() If Label18_Click.Value > Label1_Click.Caption Then Label18_Click.Caption = 24 End If End Sub
Vielen Dank für die Hilfe!
Gruss Reto
24.03.2009 15:15:56
Thread-ID: 1063373
21 Beiträge
Info in Symbolleiste oder Extrafenster
Oliver

Hallo.
Wie kann ich, zum Beispiel die Spalte und Reihe, in einer Symbolleiste oder einem Extrafenster (sollte immer im Vordergrund sein - als Info!!) mir anzeigen lassen?
Danke
Oliver
20.04.2009 13:22:22
Thread-ID: 1069799
17 Beiträge
Ausgabeverknüpfung, wie geht das?
hroth

Hallo Excel-Freunde
Ich arbeite auf einem Mac (Mac OS X, Excel 2004). Auf dem Eingabeformular für dieses Forum ist die Excel-Version 2004 für den Max nicht aufgeführt. Daher meine ergänzenden Informationen!
Ich arbeite an einem Reservationssystem für ein Hotel. Dabei habe ich eine Arbei...
23.05.2009 19:03:32
Thread-ID: 1076883
2 Beiträge
kleines Syntaxproblem
Jörg

Guten Abend zu später Stunde!
wenn die Tabellenblätter FG0, FG1, FG2 usw heißen, hole ich mir von da einen bestimmten Wert mit zB der simplen Formel =FG0!E2 ins Blatt xyz
Jetzt ist in Blatt xyz in Zelle B2 dieser Blattname mit noch was dran vorhanden, zB FG0Meier
Nun will ich mich a...
22.06.2009 23:30:21
Thread-ID: 1083626
4 Beiträge
VBA: GoalSeek mit Schätzwert --Wie geht das?
Gho-Reg

Private Sub CommandButton2_Click() 'C39 = Ergebnisrendite 'C15 = Zielrendite 'F28 = hochkontierte Gewinnmarge Range("C39").GoalSeek Goal:=Range("C15"), ChangingCell:=Range("F28") End Sub
Das ist mein derzeitiger code. Der funktioniert auch problemlos. Nur durch die Beschränkung der Näher...
26.06.2009 22:57:57
Thread-ID: 1084667
2 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige