Betrifft: XLTM wird von ca. 200 Pers. gleichzeitig geöffnet
von: Simone
Sub AuslesenGeschlDatei()
Dim rng As Range, _
sFile As String, sPath As String, _
oldStatusBar As Boolean
Application.ScreenUpdating = False
oldStatusBar = Application.DisplayStatusBar
Application.DisplayStatusBar = True
sFile = "Datenbank.xls"
sPath = ThisWorkbook.path & "\"
Application.StatusBar = "Daten werden importiert. Bitte warten..."
With Sheets(1)
.Range("A1:E10000").Formula = "='" & sPath & "[" & sFile & _
"]Tabelle1'!A1:E10000"
Set rng = .Range("A1:E10000")
End With
rng.Cells(1).Copy rng
rng.Value = rng.Value
Application.ScreenUpdating = True
Application.StatusBar = False
Application.DisplayStatusBar = oldStatusBar
End Sub
Betrifft: AW: XLTM wird von ca. 200 Pers. gleichzeitig geöffnet
von: 1712343.html
Geschrieben am: 10.09.2019 19:52:14
Hallo Simone,
das kann höchstens zu Wartezeiten führen, aber zu keinen Konflikten.
Gruß
Nepumuk