Dieses Forum nutzt Cookies
Dieses Forum verwendet Cookies, um deine Login-Informationen zu speichern, wenn du registriert bist, und deinen letzten Besuch, wenn du es nicht bist. Cookies sind kleine Textdokumente, die auf deinem Computer gespeichert werden. Die von diesem Forum gesetzten Cookies werden nur auf dieser Website verwendet und stellen kein Sicherheitsrisiko dar. Cookies aus diesem Forum speichern auch die spezifischen Themen, die du gelesen hast und wann du zum letzten Mal gelesen hast. Bitte bestätige, ob du diese Cookies akzeptierst oder ablehnst.

Ein Cookie wird in deinem Browser unabhängig von der Wahl gespeichert, um zu verhindern, dass dir diese Frage erneut gestellt wird. Du kannst deine Cookie-Einstellungen jederzeit über den Link in der Fußzeile ändern.

Code von Tabellenblatt in Modul
#11
Hallo Atilla,

Ich wollte gerade einen Beitrag schicken, wie man eine geöffnete Datei erfragen kann.
Das hast Du ja nun schneller gemacht :18:

Oben habe ich auch geschrieben, daß ich mitlernen werde.
Dein Beitrag lautete: Prüfung, ob eine Datei im Netz bereits geöffnet ist.
Ich finde aber keine Netzabfrage, sondern einen Pfad, der auf das Laufwerk C:\... weist.

Da Herbert nun schreibt, daß es geklappt hat, entnehme ich der ganzen Geschichte,
daß es im Code Wurscht ist, ob es sich um ein Netzlaufwerk oder um ein lokales Laufwerk handelt.

Ist das soweit richtig, oder ist meine Überlegung falsch?
Gruß
Antworten Top
#12
Hallo Peter,

Zitat:Dein Beitrag lautete: Prüfung, ob eine Datei im Netz bereits geöffnet ist.

so hat Herber das Thema benannt.

Zitat:Ist das soweit richtig, oder ist meine Überlegung falsch?

Ich verstehe es nicht anders.
Gruß Atilla
Antworten Top
#13
Hallo Peter,

(09.05.2014, 16:25)Gardinenhaken schrieb: Ich finde aber keine Netzabfrage, sondern einen Pfad, der auf das Laufwerk C:\... weist.

Ich habe zu Testzwecken die Dateien lokal bearbeitet. Daher ist teilweise der Verweis auf C:\... vorhanden.
Es funktioniert aber auch mit Netzlaufwerken, bei mir Y:\...

Ich stelle hier noch den Teil vom Code für die Abfrage ob die Datei geöffnet ist zur Verfügung.

Code:
Option Explicit
'Funktion für Abfrage ob Summendatei geöffnet
Private Function TestOpen(sPath As String) As Integer
   If Dir(sPath) = "" Then
      TestOpen = 2
   Else
      On Error GoTo ERRORHANDLER
      Open sPath For Random Access Read Lock Read Write As #1
      Close #1
   End If
ERRORHANDLER:
   If Err = 70 Then TestOpen = 1
End Function

Sub Datenweitergabe()
    Dim LoLetzte As Long
    Dim inAbfrage As Integer
    Dim DatName As String, DatPfad As String
    Dim curWkb As Workbook, curWks As Worksheet
    Dim Datprüf  'As String
    Dim msga As String 'Definition Msgboxvariable "Datensatz vorhanden ..."
    Dim suchvar As Range
    Dim BstName As String
    
      
    Set curWkb = Workbooks(ActiveWorkbook.Name)
    Set curWks = curWkb.Worksheets(ActiveSheet.Name)
    
    DatName = "BA_Summen.xlsx" 'Dateiname anpassen
    DatPfad = "Y:\Summen" & "\" 'Dateipfad anpassen
    BstName = ActiveSheet.Name  'Variable für Tabellenblatt
    Datprüf = curWks.Range("Datum") 'Variable für Datum

    Application.ScreenUpdating = False
    
    'Abfrage ob Summendatei geöffnet (In Verbindung mit Funktion)
    
    Dim iOpen As Integer
    Dim sFile As String
    sFile = DatPfad & DatName
    If sFile = "" Then Exit Sub
    iOpen = TestOpen(sFile)
    Select Case iOpen
    'Case 0: MsgBox "Die Summendatei " & sFile & " ist frei"
    Case 1: MsgBox "Die Summendatei ist geöffnet!" & vbCrLf & _
            "Bitte die geöffnete Datei schließen und den Übertrag nochmals starten!" & vbCrLf & vbCrLf & _
            sFile, 48, "Achtung"
    Case 2: MsgBox "Die Summendatei wurde nicht gefunden" & vbCrLf & _
            "Bitte Kontrollieren!" & vbCrLf & vbCrLf & _
            sFile, 48, "Achtung"
    End Select
    
    If iOpen = 1 Then Exit Sub
    If iOpen = 2 Then Exit Sub

    'Summendatei öffnen und Datumsabfrage
    curWks.Range("Datum").Copy
    Workbooks.Open DatPfad & DatName

weiterer Code ....

Danke für die Hilfe an Atilla.
LG Herbert
Windows 10
Office 365
Antworten Top
#14
Hallo Herbert,

Danke für Deine Ausführungen.
Ich werde mich jetzt mal ein bischen mehr um die Netzwerk-Problematik kümmern.

Und für Dich freut es mich natürlich, daß das so problemlos geklappt hat :19:
________________________________________________________________________
wer aufgibt, ohne es versucht zu haben, gibt einfach nur auf!

Grüße aus Norderstedt, Peter
Antworten Top


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste