ein kleines Makro für eine vielbenutzte Datei
Sub AufträgeAktualisieren()
Dim owb1 As Workbook
Dim owb2 As Workbook
Application.ScreenUpdating = False
Set owb1 = ThisWorkbook 'Arbeitsmappe mit diesem Code
Sheets("Aufträge").Select
If ActiveSheet.FilterMode Then ActiveSheet.ShowAllData
Range("A3:D15000").Clear
'*************In diesem Bereich Abfrage nötig ****************
Set owb2 = Workbooks.Open("X:\AV-VK-SD\Auftragsbuch_neu.xls", ReadOnly:=True)
ActiveSheet.Range("$B$3500:$H$11000").AutoFilter Field:=9, Criteria1:="=CR", _
Operator:=xlAnd
ActiveSheet.Range("$B$3500:$H$11000").AutoFilter Field:=8, Criteria1:="="
Range("B3500:E11000").Copy
owb1.Activate
Worksheets("Aufträge").Range("A3").PasteSpecial
Application.CutCopyMode = False 'Zwischenablage löschen
owb2.Activate
ActiveWindow.Close SaveChanges:=False
owb1.Activate
Application.ScreenUpdating = True
Range("A72").Select
Sheets("Alle").Select
MsgBox "Abgleich mit Auftragsbuch erfolgreich"
Range("B6").Select
Application.ScreenUpdating = True
End Sub
Es geschieht tatsächlich, dass ein Kollege das Auftragsbuch bereits geöffnet hat- dann erhält er natürlich eine Fehlermeldung, wenn das Makro versucht, das Auftragsbuch erneut zu öffnen. Könnte mir jemand helfen - stehe leider unter Zeitdruck, und meine Basteleien (wie ihr aus dem obigen Code unschwer erkennen könnt) würden zu lange dauern.
Herzlichen Dank, Margarete