kann jemand helfen?
In meiner Datei, (Im Makro noch einmal beschrieben), sind verschiedene Möglichkeiten gegeben, um unterschiedliche Aktionen abzufangen.
Irgendwie ist da ein Denkfehler drin. Im letzten Abschnitt funktioniert es nicht mehr.
Die Prüfung soll hier so sein, das ich eine bestehende Internetverbindung abfrage und ob ein Wert in einer Zelle steht. Ich weiss klingt einfach aber komm einfach nicht drauf.
https://www.herber.de/bbs/user/50618.xls
Hier mal ein Ausschnitt:
Option Explicit
Public Declare
Function InternetGetConnectedState _
Lib "wininet.dll" (lpdwFlags As Long, _
ByVal dwReserved As Long) As Boolean
Function IsConnected() As Boolean
Dim lStat As Long
IsConnected = (InternetGetConnectedState(lStat, 0&) 0)
End Function
Sub Meldung()
Application.DisplayAlerts = False
Dim fs
Set fs = CreateObject("Scripting.filesystemobject")
Dim bln As Boolean
bln = IsConnected
If bln And Worksheets("Tabelle1").Cells(1, 1).Value = 1 Then
Sheets("Tabelle1").CommandButton1.Visible = False
Sheets("Tabelle1").CommandButton5.Visible = False
End If
If bln And Worksheets("Tabelle1").Cells(1, 1).Value Sheets("Tabelle1").Range("A10") Then
MsgBox "Datei bleibt geschlossen," _
& vbCr & " !"
End If
End Sub
Danke schon mal.
Gr. T.