Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 11:49:37
Array verwenden
25.04.2024 10:38:52
Bedingte Formatierung per VBA / MaxPoint
25.04.2024 10:30:04
Suche mit MINWENNS und Rückgabe mehrerer Werte
25.04.2024 09:47:49
Daten aus mehreren Dateien untereinander importieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
492to496
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
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 Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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

299 Forumthreads zu ähnlichen 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
Anzeige
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
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
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
xls nach pdf Hyperlinks übernehmen
Florian

Hallo zusammen,
wie kann ich Hyperlinks beim Konvertieren einer xls-Datei nach pdf übernehmen?
Danke,
Gruss Florian
04.03.2009 18:07:33
Thread-ID: 1056538
2 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
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
1
2
6
3
6
5
3
1
20
16
1
3
1
3
2
5
2
2
3
5
4
11
2
2
2