Thema Datum  Von Nutzer Rating
Antwort
29.10.2024 13:36:31 Sabi
NotSolved
29.10.2024 13:50:20 Gast84226
NotSolved
29.10.2024 13:59:44 Sabi
NotSolved
29.10.2024 16:36:29 Gast7094
NotSolved
29.10.2024 16:47:33 Gast47626
NotSolved
Blau Makros und Netzwerklaufwerke...
 30.10.2024 08:00:38 Sabi
NotSolved
31.10.2024 08:11:21 Sabi
NotSolved
31.10.2024 11:02:31 Alwin Weisangler
NotSolved
31.10.2024 12:57:24 Sabi
NotSolved

Ansicht des Beitrags:
Von:
Sabi		 Datum:
30.10.2024 08:00:38		 Views:
49		 Rating:
     
Antwort:
  Ja
Thema:
Makros und Netzwerklaufwerke...

Hi, Danke, schau ich mir an ob ich das so hinbekommen ;)

Aja genau, das ist eine eigene Funktion:

 

Function IstDateiOffen(DateiName As String) As Boolean

    Dim DateiNr As Long
    Dim FehlerNr As Long
    
    On Error Resume Next
    DateiNr = FreeFile()
    
    Open DateiName For Input Lock Read As #DateiNr
    Close DateiNr
    FehlerNr = Err
    On Error GoTo 0
    
    Select Case FehlerNr
        Case 0
            IstDateiOffen = False
        Case 70
            IstDateiOffen = True
        Case Else
            'Error FehlerNr
             
    End Select
    
End Function

 

Danke LG

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
29.10.2024 13:36:31 Sabi
NotSolved
29.10.2024 13:50:20 Gast84226
NotSolved
29.10.2024 13:59:44 Sabi
NotSolved
29.10.2024 16:36:29 Gast7094
NotSolved
29.10.2024 16:47:33 Gast47626
NotSolved
Blau Makros und Netzwerklaufwerke...
 30.10.2024 08:00:38 Sabi
NotSolved
31.10.2024 08:11:21 Sabi
NotSolved
31.10.2024 11:02:31 Alwin Weisangler
NotSolved
31.10.2024 12:57:24 Sabi
NotSolved