VBA-Schleife zur Bearbeitung von Excel.+-Tabellen 2-13 einer Mappe

Hallo,

erstens ist der Excel-Schutz nicht 100%-ig. Zweitens müsstest du die Zellen sperren und damit wäre eine Bearbeitung nicht mehr möglich.

Schreibe deine Zeilenhöhen und Spaltenbreite jeweils in ein Array und lasse vor dem Schließen der Mappe die Zellen mit VBA wieder auf die gewünschte Höhe und Breite einstellen.

Claus

Grüezi Peter et all

Peter Schleif schrieb am 02.07.2010

Marcel Seethaler schrieb am 02.07.2010 09:34 Uhr:
Muss der Anwender der Tabelle im Ordner T2 Schreibrechte auf den Ordner

T1 haben um die Tabelle aktualisieren zu können?

Ja, sieht so aus. ich habe bei mir zwei Ordner T1 und T2 angelegt und

meinem Test-User "test" die Rechte für T2 entzogen. Dann klappt das

Aktualisieren nicht mehr. Trotzdem ungewöhnlich, dass die Meldung schon

beim Aktualisieren kommt, denn gespeichert wird zu diesem zeitpunkt ja

noch gar nicht.
Aufgrund der Arbeitsweise von Excel bei der Bearbeitung von Dateien ist das

aber so:

- Wird eine Mappe geöffnet erstellt Excel eine Kopie derselben

(mit einer kryptischen Zeichen/Ziffern-Kombianation als Dateiname)

- Das Original wird als 'in Bearbeitung' gekennzeichnet

- Gearbeitet wird generell in der Kopie

- Beim Speichern wird das Original überschrieben und die Kopie gelöscht

Beim Aktualisieren werden daher (vermutlich) in der Kopie die Werte zur

Anzeige direkt geändert, was bei reinen Leserechten nicht klappen

kann/darf.

Mit freundlichen Grüssen



- MVP für Microsoft-Excel -

Mit freundlichen Grüssen - MVP für MS-Excel -

Hallo Jens,

wie aktualisierst du die Pivot-Tabellen? Mit Rechtsklick => Aktualisieren? Dann werden sehr wahrscheinlich alle Pivot-Tabellen, die auf der gleichen Quelle basieren aktualisiert.

Probiere es mal mit VBA:

Sub Aktualisieren()

ThisWorkbook.RefreshAll

End Sub

Falls du auch Abfragen in der Mappe hast, die dabei nicht aktualisiert werden sollen, müsstest du eine Schleife über deine Pivot-Tabellen legen. Du kannst auch die Pivot-Tabellen eines Blattes aktualisieren lassen, wenn du dieses Blatt aktivierst:

Private Sub Workbook_SheetActivate(ByVal Sh As Object)

Dim pt As PivotTable

For Each pt In Sh.PivotTables

    pt.PivotCache.Refresh

Next

End Sub

Claus

Hallo Manfred,

VBA ist ein Bestandteil von Excel.

In der Tabelle wird aber kein VBA verwendet. Die Werte werden mit Formeln übernommen und die inverse Darstellung wird mit der Bedingten Formatierung erzeugt. Um die Regel für diese Formatierung zu sehen, musst du die Mappe herunterladen und lokal öffnen.
Klicke dann in die Tabelle => Bedingte Formatierung => Regeln verwalten und du kannst die Formel dazu auslesen.

Wenn dir dies genügt, ist kein VBA notwendig. Das würde erst gebraucht werden, wenn du in der Inventarliste in die gesuchte Zelle springen möchtest. Aber du siehst ja eigentlich alle Werte in der Suchtabelle.

Claus

Hallo Claus,

was meinst du genau mit "nicht sauber referenziert"?

Die Schleife liest alle Zeilen eines Blattes, sucht dazu einen passenden Eintrag in einem 2. Blatt und aktualisiert diesen dann. Teilweise sind die Daten des 2. Blattes auch in einem Array abgelegt um die Suche zu beschleunigen und die Laufzeit von ca. 1
Sekunde pro Tausend ist auch völlig OK. Nur warum geht das ganze dann so drastisch in die Knie wenn die 2. Tabelle geöffnet wird?

Gruß Norbert

PS anscheinend kann man hier keine Anlage hinzufügen sonst könnte ich das VBA posten ... die Tabelle(n) selbst müsste ich vorher anonymisieren ;-)