Alle blaetter / WorkSheets per vba aktualisieren

Hallo,
So nachdem das mit dem Drucken super klappt, habe ich hierzu noch einmal eine andere Frage.
Ich habe diese Arbeitsmappe gefunden die genau macht, was ich will.
https://www.herber.de/bbs/user/92016.xls
Ich wuerde hier nun gerne alle WorkSheets ausser 'Daten' ausblenden.
Da ich nun die ausgeblendeten Sheet nicht auswaehlen kann, werden diese nicht aktualisiert.
Es werden sehr viele Blaetter und ich wuerde die gerne mit einem Knopf alle aktualisieren.
Ich habe mit einem Button und Makro bei eingeblendeten Sheets das hier versucht

Dim sh As Worksheet
For Each sh In ActiveWorkbook.WorkSheets
sh.Calculate
Next sh

Leider funktioniert das nicht.
Gibt es eine Moeglichkeit, alle x Sheets aufeinmal per vba zu aktualisieren?
Und wie wuerde das funktionieren, wenn diese sheets ausgeblendet sind? Erst einblenden lassen und dann sofort wieder ausblenden, oder funktioniert das auch wenn ausgeblendet ist?
Ich hoffe ich druecke mich klar aus.
Noch einmal vielen lieben Dank fuer alle Tipps und Hilfe,
Andreas

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Kann es sein, dass worksheet.calculate nicht funktioniert, weil die das Fuellen der Blaeter ueber Funktionen, welche in der Arbeitsmappe definiert sind, realisiert ist?
Code der Arbeitsmappe:


Option Explicit
Private Sub Workbook_SheetActivate(ByVal sh As Object)
If Range("DataStart").Parent.Name  sh.Name Then
Dim rngCrit As Range
On Error Resume Next
Set rngCrit = sh.Range("DataCrit")
On Error GoTo 0
If Not rngCrit Is Nothing Then
Filter sh
End If
End If
ErrorHandler:
Application.EnableEvents = True
Application.ScreenUpdating = True
End Sub
Private Sub Workbook_SheetChange(ByVal sh As Object, ByVal Target As Range)
If Range("DataStart").Parent.Name  sh.Name Then
Dim rngAct  As Range
Set rngAct = ActiveCell
On Error GoTo ErrorHandler
Set Target = Intersect(Target, sh.Range(sh.Range("DataCrit").Row & ":" & sh.Range(" _
DataGoal").Row - 1).EntireRow)
If Not Target Is Nothing Then
Filter sh
Application.GoTo rngAct
End If
End If
ErrorHandler:
Application.EnableEvents = True
Application.ScreenUpdating = True
End Sub
Private Sub Filter(sh As Object)
On Error GoTo ErrorHandler
Application.ScreenUpdating = False
Application.EnableEvents = False
Dim lngRows     As Long
Dim rngGoalData As Range
With sh
lngRows = .Range(.Range("DataCrit").Row & ":" & .Range("DataGoal").Row - 1). _
Find(What:="*", _
SearchOrder:=xlByRows, _
SearchDirection:=xlPrevious).Row
Set rngGoalData = .Range("DataGoal").CurrentRegion
If rngGoalData(1, 1).Row

Und wenn das so ist, wie kann ich aktualisieren, ohne jedes Blatt einzeln anklicken zu muessen?

dim x as long application.screenupdating = false For x = 1 to worksheets.count with worksheets(x) worksheets(x).visible = true worksheets(x).calculate worksheets(x).visible = false end with next application.screenupdating = true worksheets("name des sichtbaren tabellenblattes").visible = true

Beliebteste Forumthreads (12 Monate)

Alle blaetter / WorkSheets per vba aktualisieren

16
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

22 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Alle blaetter / WorkSheets per vba aktualisieren

16 Beiträge zum Forumthread Beiträge zu diesem Forumthread

22 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

16
Beiträge zum Forumthread

Beiträge zu diesem Forumthread